>>************************************************** >>*-- Class: myform (d:\foxexamples\grid\gridwithcoloredborder\gwcb.vcx) >>*-- ParentClass: form >>*-- BaseClass: form >>*-- Time Stamp: 09/29/18 06:41:05 PM >>* >>DEFINE CLASS myform AS form >> >> >> Top = 0 >> Left = 0 >> Height = 277 >> Width = 405 >> DoCreate = .T. >> Caption = "Form" >> BackColor = RGB(255,255,255) >> Name = "myform" >> >> >> ADD OBJECT shape1 AS shape WITH ; >> Top = 24, ; >> Left = 36, ; >> Height = 208, ; >> Width = 330, ; >> Anchor = 15, ; >> BorderStyle = 6, ; >> BorderWidth = 2, ; >> Curvature = 0, ; >> BorderColor = RGB(255,0,0), ; >> Name = "Shape1" >> >> >> ADD OBJECT grid1 AS grid WITH ; >> Anchor = 15, ; >> Height = 204, ; >> Left = 38, ; >> Top = 26, ; >> Width = 326, ; >> Name = "Grid1" >> >> >> PROCEDURE Load >> IF !USED('customers') >> USE HOME(2)+'\northwind\customers' SHARED >> endif >> ENDPROC >> >> >>ENDDEFINE >>* >>*-- EndDefine: myform >>************************************************** >>>>