DEFINE CLASS ipwgrd AS awgrd MemberClassLibrary = ..\..\..\..\..\..\program files\vfp9\tools\ab\awpublic.prg MemberClass = "awGrc" HighlightBackColor = RGB(183,219,255) Name = "ipwgrd" ENDDEFINE DEFINE CLASS ipGrc AS awGrc OF awPublic.prg && as Column wlContentDynamic = .F. && {en} This object's members and/or properties are dynamic - .F. if neither member nor property change at run-time {fr} Le contenu et/ou les propriétés de cet objet sont dynamiques - .F. si ni les membres ni les propriétés ne changent à l'exécution ENDDEFINE DEFINE CLASS ipwtxt AS awtxt FontName = "Calibri" Format = "K" DisabledBackColor = RGB(228,228,228) BorderColor = RGB(192,192,192) wchtml5type = "text" Name = "ipwtxt" ENDDEFINE ADD OBJECT grd AS ipwgrd WITH ; ColumnCount = 16, ; FontName = "Tahoma", ; FontSize = 8, ; Anchor = 15, ; AllowHeaderSizing = .F., ; AllowRowSizing = .F., ; DeleteMark = .F., ; GridLines = 1, ; HeaderHeight = 17, ; Height = 342, ; Left = 0, ; RecordMark = .F., ; RecordSource = "WebTemp_Page", ; RowHeight = 31, ; TabIndex = 16, ; Top = 150, ; Width = 1206, ; ForeColor = RGB(153,153,153), ; GridLineColor = RGB(192,192,192), ; HighlightStyle = 2, ; ZOrderSet = 5, ; AllowAutoColumnFit = 2, ; Optimize = .T., ; ... Awgrc3.FontName = "Tahoma", ; Awgrc3.FontSize = 8, ; Awgrc3.ColumnOrder = 5, ; Awgrc3.ControlSource = "WebTemp_Page.invoice", ; Awgrc3.Width = 96, ; Awgrc3.ReadOnly = .T., ; Awgrc3.DynamicForeColor = "iif(webtemp_page.priority, rgb(255,0,0), rgb(51,51,51))", ; Awgrc3.ForeColor = RGB(51,51,51), ; Awgrc3.Wcssclassadd = "hover", ; Awgrc3.Name = "grcInvoice", ; ADD OBJECT ip.grd.grcinvoice.txt AS ipwtxt WITH ; FontName = "Tahoma", ; FontSize = 8, ; BackStyle = 0, ; BorderStyle = 0, ; Margin = 0, ; MousePointer = 15, ; ReadOnly = .T., ; ToolTipText = "Click on Invoice Number for details", ; ForeColor = RGB(51,51,51), ; BackColor = RGB(255,255,255), ; Name = "txt">Hi All,