PROCEDURE PaintLines() LOCAL oLine, oObject oObject = THIS TRY oLine = GETPEM(oObject.PARENT, oObject.NAME+"_T") this.PaintLine(oLine) oLine = GETPEM(oObject.PARENT, oObject.NAME+"_L") this.PaintLine(oLine) oLine = GETPEM(oObject.PARENT, oObject.NAME+"_R") this.PaintLine(oLine) oLine = GETPEM(oObject.PARENT, oObject.NAME+"_B") this.PaintLine(oLine) oLine = GETPEM(oObject.PARENT, oObject.NAME+"_H") this.PaintLine(oLine) ENDTRY PROCEDURE PaintLine(toLine) with toLine .bordercolor=guisettings.gridbordercolor .borderstyle=guisettings.gridborderLineStyle .borderWidth=guisettings.gridborderLineWidth endwith