|
|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
$ Y2 S% ?- s3 L1 Z7 Xproc capTrue { args } {
0 M# E( Z2 v( k4 J, R. n: P return 1
0 n, D) I/ ^, X: X3 F/ q}! q4 C# T6 ?( F$ y
& O4 A2 _9 L" U0 q2 q4 ~" |
proc CisExplorerPreCreate { args } {0 ]7 W1 x+ {" e6 T/ t
set result 1 K5 t$ F) X9 Z- S% G. \1 v
SetCISMultiValuedField {Datasheet}8 R3 |5 [: f* q5 V
SetCISMultiValuedField {Value}9 a* M- o# V5 r* C5 E, B
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]( K- l( ~% o7 d! a
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]$ P. [8 u7 N4 x, U$ B+ J; X
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
) D+ h2 S5 I' m5 P' `2 c AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
- V5 c% _& ^. e" `( ~ return $result
& z6 e. b _$ F" p/ ~* o}& f5 G( G# M# y/ H4 a# | @
9 V% t Z# A; |RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
1 Q" l" Z3 g: P3 X8 P) E p: F 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
. k; a. b" G& m2 @ 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。, W) v, q0 M4 t
|
评分
-
查看全部评分
|