** END HEADER -- do not remove this line
//
// Generated on 2022-03-02
//
parameter bModal
local f
f = new browser1Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class browser1Form of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 35.1429
      top = 1.6364
      width = 127.4286
      text = ""
   endwith

   this.DBASESAMPLES1 = new DATABASE(this)
   with (this.DBASESAMPLES1)
      left = 15.0
      top = 1.0
      width = 11.0
      height = 1.0
      databaseName = "DBASESAMPLES"
      active = true
   endwith

   this.FISH1 = new QUERY(this)
   with (this.FISH1)
      left = 16.0
      top = 1.0
      width = 3.0
      height = 1.0
      database = form.dbasesamples1
      sql = "select * from FISH.DBF"
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      onLeftMouseUp = class::GRID1_ONLEFTMOUSEUP
      dataLink = form.fish1.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN1"])
         dataLink = form.fish1.rowset.fields["id"]
         editorType = 1	// EntryField
         width = 15.7143
      endwith
      columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN2"])
         dataLink = form.fish1.rowset.fields["name"]
         editorType = 1	// EntryField
         width = 42.8571
      endwith
      columns["COLUMN3"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN3"])
         dataLink = form.fish1.rowset.fields["species"]
         editorType = 1	// EntryField
         width = 57.1429
      endwith
      columns["COLUMN4"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN4"])
         dataLink = form.fish1.rowset.fields["length cm"]
         editorType = 3	// SpinBox
         width = 14.2857
      endwith
      columns["COLUMN5"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN5"])
         dataLink = form.fish1.rowset.fields["description"]
         editorType = 5	// Editor
         width = 28.5714
      endwith
      with (columns["COLUMN1"].headingControl)
         value = "ID"
      endwith

      with (columns["COLUMN2"].headingControl)
         value = "Name"
      endwith

      with (columns["COLUMN3"].headingControl)
         value = "Species"
      endwith

      with (columns["COLUMN4"].editorControl)
         rangeMax = 100
         rangeMin = 1
      endwith

      with (columns["COLUMN4"].headingControl)
         value = "Length CM"
      endwith

      with (columns["COLUMN5"].headingControl)
         value = "Description"
      endwith

      height = 8.0909
      left = 6.4286
      top = 4.0909
      width = 114.2857
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 40.7143
      top = 13.0909
      width = 49.7143
      value = "Entryfield1"
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 27.8571
      top = 13.2727
      width = 12.0
      text = "Textlabel1"
   endwith

   this.rowset = this.fish1.rowset

   function GRID1_onLeftMouseUp(flags, col, row)
      cmd = 'form.entryfield1.value =  form.grid1.columns["column'+form.grid1.currentcolumn+'"].datalink.value'
      &cmd
      cmd = 'form.textlabel1.text =  form.grid1.columns["column'+form.grid1.currentcolumn+'"].headingcontrol.value'
      &cmd
      return

   function form_onOpen()
      cmd = 'form.entryfield1.value =  form.grid1.columns["column'+form.grid1.currentcolumn+'"].datalink.value'
      &cmd
      cmd = 'form.textlabel1.text =  form.grid1.columns["column'+form.grid1.currentcolumn+'"].headingcontrol.value'
      &cmd
      return

endclass