* DYNAMICGRID.SCX.SRC
* Form "dynamicgrid.scx"
* C:\PROGRAM FILES (X86)\ABAQUE\FICSAMPLES\FICTUTO\PROGS\FORMS\DYNAMICGRID.SCX.SRC (included in c:\program files (x86)\abaque\ficsamples\fictuto\fictutobs.exe)
* (113 lines before localization)
* ========================================================================================================================

PUBLIC oficfrm1

SET CLASSLIB TO ab\aw\samples\fic\classe\ficsample.vcx ADDITIVE

oficfrm1=NEWOBJECT("ficfrm1")
oficfrm1.Show
RETURN

  **************************************************
*-- Form:         ficfrm1 (ab\aw\samples\fic\fictuto\progs\forms\dynamicgrid.scx)
*-- ParentClass:  ficfrm (ab\aw\samples\fic\classe\ficsample.vcx)
*-- BaseClass:    form
*-- Time Stamp:   12/05/20 09:51:06 PM
DEFINE CLASS ficfrm1 AS ficfrm

  DoCreate = .T.
  Caption = "Dynamic Grid"
  Name = "Ficfrm1"
  cntOK.opgStyle.optClassic.Value = 1
  cntOK.opgStyle.optClassic.Left = 0
  cntOK.opgStyle.optClassic.Top = 0
  cntOK.opgStyle.optClassic.Name = "optClassic"
  cntOK.opgStyle.optBS.Left = 0
  cntOK.opgStyle.optBS.Top = 30
  cntOK.opgStyle.optBS.Name = "optBS"
  cntOK.opgStyle.Name = "opgStyle"
  cntOK.cmdOK.Name = "cmdOK"
  cntOK.imgSrce.Name = "imgSrce"
  cntOK.imgHelp.Name = "imgHelp"
  cntOK.Name = "cntOK"
  waitpic.Name = "waitpic"
  lblFiC.Name = "lblFiC"
  lblTime.Name = "lblTime"

  ADD OBJECT grd AS ficgrd WITH ;
    ColumnCount = 0, ;
    Height = 194, ;
    Left = 20, ;
    RecordSource = "customer", ;
    Top = 190, ;
    Width = 660, ;
    wlcontentdynamic = .T., ;
    Name = "grd"

  ADD OBJECT cntgrc AS ficcnt WITH ;
    Top = 10, ;
    Left = 20, ;
    Width = 675, ;
    Height = 153, ;
    BorderWidth = 0, ;
    wcssclassadd = "form-group", ;
    Name = "cntGrc"

  ADD OBJECT ficfrm1.cntgrc.cnt1 AS ficcntlstgrc WITH ;
    Top = 1, ;
    Left = 5, ;
    igrc = 1, ;
    Name = "cnt1", ;
    lst.Name = "lst", ;
    lbl.Name = "lbl", ;
    CMD.Name = "CMD"

  ADD OBJECT ficfrm1.cntgrc.cnt2 AS ficcntlstgrc WITH ;
    Top = 0, ;
    Left = 130, ;
    igrc = 2, ;
    Name = "cnt2", ;
    lst.Name = "lst", ;
    lbl.Name = "lbl", ;
    CMD.Name = "CMD"

  ADD OBJECT ficfrm1.cntgrc.cnt3 AS ficcntlstgrc WITH ;
    Top = 0, ;
    Left = 250, ;
    igrc = 3, ;
    Name = "cnt3", ;
    lst.Name = "lst", ;
    lbl.Name = "lbl", ;
    CMD.Name = "CMD"

  ADD OBJECT ficfrm1.cntgrc.cnt4 AS ficcntlstgrc WITH ;
    Top = 0, ;
    Left = 370, ;
    igrc = 4, ;
    Name = "cnt4", ;
    lst.Name = "lst", ;
    lbl.Name = "lbl", ;
    CMD.Name = "CMD"

  ADD OBJECT ficfrm1.cntgrc.cnt5 AS ficcntlstgrc WITH ;
    Top = 0, ;
    Left = 490, ;
    igrc = 5, ;
    Name = "cnt5", ;
    lst.Name = "lst", ;
    lbl.Name = "lbl", ;
    CMD.Name = "CMD"

ENDDEFINE
*-- EndDefine: ficfrm1
**************************************************