|
|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示: P* ] |3 q# `0 K0 c1 u. E
proc capTrue { args } {
* w N! O. S" \$ i& X; _ return 1
# s; M, A" h# J: u}, q8 s5 Z8 \; W% _$ t
& x, l) x$ @. }+ {% T( J% [proc CisExplorerPreCreate { args } {
& ]8 j1 r7 j! u# D) | set result 1
% p* n! u1 _4 w; K. I" g SetCISMultiValuedField {Datasheet}
; o7 U: [% b' I- w4 } SetCISMultiValuedField {Value}; F; h, f) I! A4 ~/ \# @& w! G$ Z
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]( T5 v4 W; Q9 n0 ?0 t! q+ Z2 ] d
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]4 g2 [3 J9 H, @: b
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]6 H1 a8 l( t+ E
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255]
4 G S# F k+ c& w* ]. r; r |7 S return $result
) _2 I! r! d: w8 e4 {}. T' c3 D# M, ~8 X
2 ^9 O$ X. ?( z, [+ X2 w
RegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" "": E* m. d( [/ U( F
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。+ \" q! h, S/ Y0 J% v
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
/ @) P' S3 j' G0 i) @ |
评分
-
查看全部评分
|