Put a color coat on the Freeform Data window column

Data
PB in the Data Window column border style only a few, if you want the border color is colored there is no way.

In fact, you can use dynamic create rectangle, change the border color of the Data window column, mainly applicable to free format (do not need to wear a coat of the column tag value set to 0).

Global type Gf_setbordercolor from Function_objectend type

Forward Prototypesglobal subroutine Gf_setbordercolor (DataWindow adw, long Al_bodercolor) end prototypes

Global subroutine Gf_setbordercolor (DataWindow adw, Long Al_bodercolor)//rectangle (band=detail x= "599" y= "he" height  = "Width=" name=r_1 brush.hatch= "7" brush.color= "1627389951" pen.style= "0" pen.width= "5" pen.color= "8421376" Background.mode= "1" background.color= "553648127") Integer istring Ls_syntax

For i = 1 to Integer (ADW. Object.DataWindow.Column.Count) If ADW. Describe ("#" +string (i) + ". Visible ") = ' 1 ' and ADW. Describe (ls_objects[i]+ ". Tag") <> ' 0 ' Then ls_syntax + = "Create Rectangle (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 ") ' End Ifnextadw.modify (ls_syntax)

End subroutine