|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:0 _; r4 G ^$ M8 F3 f8 I
proc capTrue { args } {
/ X1 M; G* A4 s1 g return 1* r! Y4 s- W5 T* s; Y% B1 A
}5 r* I% ?) N$ ^: I9 e! Y; W$ c: S
2 S, `' c4 v. ~# a% v
proc CisExplorerPreCreate { args } {
9 k4 r7 x! ?4 c7 T8 | set result 1
A+ @$ [2 I7 | SetCISMultiValuedField {Datasheet}8 Y. K3 D2 A- v, ^; w& i$ ~; z
SetCISMultiValuedField {Value}
# j: R8 E$ D& e/ o% a! o AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]+ l: x+ ?3 r0 [0 V4 y% H
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
8 J0 X* g. p7 e/ J AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]" G4 E3 ^7 k& c4 X- u: j- h% H4 U
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
. V {+ m- v: G" T; P2 w9 E& Q2 X return $result3 l, _- d3 T/ @6 y4 w% b9 x7 n/ @* m
}6 C9 v0 g: U2 D; y, y8 Q0 k
9 `8 q* m' |& R* L/ U
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
# c8 g* K1 V- ]/ U$ a* K& t 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
6 o) Z7 i6 V6 O3 H( { 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。9 |$ T# |- q: n1 a" Y7 \
|
评分
-
查看全部评分
|