|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:- N& N/ [! c/ K' f& Y% w, W; @
proc capTrue { args } {9 n* A* @3 g+ [4 J! k$ q& U, U
return 13 @- z- \& p. s- s; O0 t) E! ~3 C' G
}
1 l3 B+ @' }4 @1 v5 Z* ~( |
: y# t1 ]# v( P+ @% _0 b% L# v @. @proc CisExplorerPreCreate { args } {
& f6 y$ b. h+ \. K set result 1
# T5 X; n$ L1 {# Q" y SetCISMultiValuedField {Datasheet}% S# T+ d+ H( \; l: k: }, [# _/ ]
SetCISMultiValuedField {Value}
$ G" i7 | ^3 i0 y& Q; M1 j AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]7 @6 Y/ y* y! {, O' Q2 _; J% k; n
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]" u3 | `% g. `; X4 K# b3 ]& n! `2 v
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]
5 i$ Z$ K) K4 y. }; H: E" k AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
% z6 y; B; `8 N+ o return $result* N$ p- q- [& l4 i) `9 O: h
}# j- R. A) S" K2 i3 i* L0 B
0 }/ m! h' r {3 @" K9 f
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""# m, H, f3 |. q7 {
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。5 q% H$ W/ ^" \" { D, T/ i7 S
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。# U: X( T* r2 S$ V8 K+ m
|
评分
-
查看全部评分
|