** END HEADER -- do not remove this line
//
// Generated on 2021-06-08
//
parameter bModal
local f
f = new test_loopForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_loopForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 46.1429
      top = 0.0455
      width = 56.5714
      text = ""
   endwith

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

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

   this.TW1D1 = new TEXT(this)
   with (this.TW1D1)
      height = 1.0
      left = 7.5714
      top = 4.1364
      width = 43.8571
      border = true
      text = "Text1"
   endwith

   this.TW1D2 = new TEXT(this)
   with (this.TW1D2)
      height = 1.0
      left = 7.5714
      top = 6.5455
      width = 43.8571
      border = true
      text = "Text2"
   endwith

   this.TW2D1 = new TEXT(this)
   with (this.TW2D1)
      height = 1.0
      left = 7.5714
      top = 9.1364
      width = 43.8571
      border = true
      text = ""
   endwith

   this.TW2D2 = new TEXT(this)
   with (this.TW2D2)
      height = 1.0
      left = 7.5714
      top = 12.1818
      width = 43.8571
      border = true
      text = "Text4"
   endwith

   this.rowset = this.fish1.rowset

   function form_onOpen()
       clear
      for m = 1 to 2
         for n = 1 to 2
            mtname ="form."+"TW"+str(m,1)+"D"+str(n,1)+".onLeftDblClick=class::tshift_select"
            ?mtname
            &mtname.
         endfor
      endfor	 
      return

    function Tshift_select ()
       if empty(this.text)
         return
       endif
       this.fontsize=8
       this.text+=form.FISH1.rowset.fields["name"].value
       this.alignhorizontal=1
      return

endclass