|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
线上或者测试环境经常出现的误操作总是让DBA同学那么闹心。数据
pb中数据窗口列的边框作风只要复杂几种,假如想要边框色彩是黑色的就没有举措了。
实在能够使用静态创立rectangle,变动数据窗口列的边框色彩,次要合用free格局(不必要穿外衣的列tag值设为0)。
globaltypegf_setbordercolorfromfunction_objectendtype
forwardprototypesglobalsubroutinegf_setbordercolor(datawindowadw,longal_bodercolor)endprototypes
globalsubroutinegf_setbordercolor(datawindowadw,longal_bodercolor);//rectangle(band=detailx="599"y="260"height="88"width="288"name=r_1brush.hatch="7"brush.color="1627389951"pen.style="0"pen.width="5"pen.color="8421376"background.mode="1"background.color="553648127")IntegeriStringls_syntax
Fori=1ToInteger(adw.Object.DataWindow.Column.Count)Ifadw.Describe("#"+String(i)+".Visible")=1andadw.Describe(ls_objects[i]+".tag")0Thenls_syntax+="createrectangle(band="+adw.Describe("#"+String(i)+".Band")+""ls_syntax+=x="+String(Integer(adw.Describe("#"+String(i)+".X"))-4)+"ls_syntax+=y="+String(Integer(adw.Describe("#"+String(i)+".Y"))-4)+"ls_syntax+=Height="+String(Integer(adw.Describe("#"+String(i)+".Height"))+8)+"ls_syntax+=Width="+String(Integer(adw.Describe("#"+String(i)+".Width"))+8)+"ls_syntax+=name=RBorder_+adw.Describe("#"+String(i)+".Name")ls_syntax+=brush.hatch="7"brush.color="1627389951"pen.style="0"pen.width="5"pen.color="+String(al_bodercolor)+"background.mode="1"background.color="553648127")EndIfNextadw.Modify(ls_syntax)
endsubroutine
为多种编程语言提供了API。这些编程语言包括C、C++、Python、Java、Perl、PHP、Eiffel、Ruby和Tcl等。 |
|