|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:$ j" [5 [* z& |, ?" F; Z% W
proc capTrue { args } {
7 g6 C8 c3 H8 n d/ H: W return 11 N7 z9 f; G. k" U
}
# v1 B! n+ q% ]: T1 l1 O1 x* V, p& W2 X* S
proc CisExplorerPreCreate { args } {
4 K& `$ N0 \8 I# P) E- w/ Q set result 1, l/ Z# P& C$ [) b8 s+ P, `3 H) f# W$ t
SetCISMultiValuedField {Datasheet}
3 G/ l+ O2 J, v7 O( s SetCISMultiValuedField {Value}
6 u) J1 n+ V' G9 I* z, v AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]2 S0 S J0 a& \% ^, b
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]: |- b. F- ~; x; I3 P( V/ c
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]1 h! F" q8 h" ^
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] " Y6 x; U5 x1 k
return $result9 c% z& n0 r: L% f1 I) J
}
$ m4 _1 c2 `% f+ X
* |" _( d) A: E0 M: E0 @4 yRegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""& q; C* r, p: y+ u5 `/ N
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。* W- a& |0 @! t2 S' M+ B6 K4 C5 D. s
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。# \ t1 O' d+ k
|
评分
-
查看全部评分
|