|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
7 q3 C0 v; Z1 s; ?4 R5 \- d0 Q* Sproc capTrue { args } {
2 ]* i. l4 d2 H# q; C/ `! G return 1: ?' V' g% L o: | u
}
. H" H8 H6 c, W6 o3 @$ g/ m# |+ Z O) ]8 r! `! ?2 {
proc CisExplorerPreCreate { args } {
% l7 N( ^/ z' c; s' K R5 M, ?9 K9 r set result 1
( l' g' ^$ }3 o: c2 e/ v3 V0 A9 H0 w SetCISMultiValuedField {Datasheet}
- a9 m# n; T; ?; ]( K SetCISMultiValuedField {Value}
* y5 ~' }7 {5 K AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
( s7 J: k5 ~1 Z, L AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
) W) I) J; p0 i7 G: o1 b& E AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]1 B/ L$ b c. u* u
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
* G9 N2 X- R% @0 ?- H return $result
0 q% ]2 L: w* j4 C) H}
5 a* s( ^" J, I3 z% v( V( s A
* ]8 n4 E0 j j0 o, F" PRegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
4 Y& N9 c# a& R* u2 r; G 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。
" K* D, ~6 G8 l, u 程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
$ x7 r4 z+ m: p9 G4 ?* i! W1 A5 O& [2 x |
评分
-
查看全部评分
|