|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:5 M6 D- D0 _5 b. B+ l8 I
proc capTrue { args } {
( x n. y4 B( V& i2 b y return 1- j4 R! b; ~9 G6 T7 f2 v
}% k7 E0 I9 U$ b3 r5 N- g8 |# p
# c7 z$ O. W7 Gproc CisExplorerPreCreate { args } {
' F t( h: ?) P3 O set result 1, M- f7 v+ B5 b# r" F) `% G
SetCISMultiValuedField {Datasheet}. P7 R u7 H+ D5 P, E8 L
SetCISMultiValuedField {Value} O( i' s1 k5 i+ p5 h+ E& X: W* I+ w; x
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
* U8 n: s. q8 \( x0 p AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
- o0 w y# o) N" ~: \- {, }1 D7 \ AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
, s5 B; r" Q' C: U2 S AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
2 S1 I0 X2 O# L, u3 P% | return $result
& ]$ b6 [" T- x. v: [}
7 A; s- s, `' c
! w( y3 w7 L, M1 }RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
) i% N) A. F$ K, s" U# w 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。: S* f5 S" Y/ J5 D) t! N/ x( z! ^$ B. C
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
( }8 q6 @) w( R" Y |
评分
-
查看全部评分
|