|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
2 m f5 G# N( a' @- Kproc capTrue { args } {" v& |! x5 v: g3 X
return 1. j: s) u; B. R5 @- m4 m
}% M+ D) J7 v8 I6 g
* z9 R$ K$ `6 |- v4 C9 N# p2 `4 A
proc CisExplorerPreCreate { args } {
# ]" A1 r! X# G$ A set result 1$ ?, Q9 q; }$ V) p
SetCISMultiValuedField {Datasheet}
4 X* r( X" w; l6 S7 C SetCISMultiValuedField {Value} ^% x' h/ `" h% N" [
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
' L( [0 ~4 Z% z6 H AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
& N" L# V2 `* p. p! z7 m AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
' `! P3 a- G% N. @) T AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
* W# T7 j& ?% G5 t5 J. c4 ?, [* l6 L4 s3 [ return $result
' U2 R# M( J6 I* h, c}7 \0 x; Y* r+ f1 ?( X+ [
, } b; E$ K I/ D2 W: F
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""5 \, H' B: @( ] T& _; H
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。# l8 O6 }+ P7 B, f9 W
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。. |' C" } D8 P5 G, _$ r
|
评分
-
查看全部评分
|