|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:8 d s8 o* F8 f& Z
proc capTrue { args } {
! B- i. _. \4 b return 1& S/ R# ?9 d+ C# Y
}
$ h9 t, o0 I+ G- n: C# T* d, U: d) x9 \( f2 U: M$ ]
proc CisExplorerPreCreate { args } {
% _. H3 ^$ {$ @6 _" l7 y set result 1
: Z0 c) ~' Q" q& U& j: g* { SetCISMultiValuedField {Datasheet}
4 [3 t' i2 |1 X1 w' O% {! L( T SetCISMultiValuedField {Value}
7 v9 P7 g8 M' C) d AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
( h/ J L: g- v# K; L% N4 ?2 W AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255], h$ b3 R8 l, `7 D* `
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]. t5 j2 N: }$ H- M5 o+ ^
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
* N. [ A8 P) k0 \0 [ return $result
; Z( _0 j8 {3 T$ P* d}
$ p2 d2 ?1 x7 e" ~6 v+ z3 g6 A! c/ S a2 }% M4 N7 _
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
( p0 v3 u: w% D( ^7 A# Y5 z: T 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。& ]6 R# j* H: ~
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
J6 b) U, b' y5 S |
评分
-
查看全部评分
|