|
|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:! i1 z8 e! B4 I* _2 k
proc capTrue { args } {' d( O0 b; _1 B( b7 O6 h5 T1 P: P
return 1: N8 L' ] a1 U
}$ Z1 o, j/ A8 p3 l: |
6 g/ Y3 T; V6 V
proc CisExplorerPreCreate { args } {
' U, O( M$ w; y7 T T8 U5 T _ set result 1
7 I$ x0 E% c) B SetCISMultiValuedField {Datasheet}
+ l% |4 {& g: v3 D SetCISMultiValuedField {Value}6 h* L! c9 z' ^! b; K
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
' N9 J% v' l' u0 k O) g' e- { AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]' G+ g3 k8 S( I$ J: ?3 [. G
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]8 |$ i& w' A! j* K6 @8 [4 Z
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] ( ]$ U, C) Q% f8 Y l
return $result0 s' y3 Z2 E- J
}
0 \1 N/ r. Q! I2 Z: _' ~
6 M, g. d' ^' I8 s% WRegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" "", _1 t" @- I3 Z z
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
2 ~$ o) q1 f* c- h) g+ i, e 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。3 `% u4 E* U7 Z& x8 i0 _3 \
|
评分
-
查看全部评分
|