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

class editor_exampleForm of FORM
   with (this)
      onLeftMouseUp = class::FORM_ONLEFTMOUSEUP
      doubleBuffered = false
      height = 16.0
      left = 27.7143
      top = 2.6818
      width = 47.1429
      text = ""
   endwith

   this.PATIENTMERVYN1 = new QUERY(this)
   with (this.PATIENTMERVYN1)
      top = 13.0
      width = 11.0
      height = 1.0
      sql = 'select * from "D:\Examples\Plus2019\Peter\patientMervyn.DBF"'
      active = true
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 7.5714
      top = 3.6364
      width = 8.0
      value = "Entryfield1"
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      height = 1.0
      left = 7.5714
      top = 5.6818
      width = 8.0
      value = "Entryfield2"
   endwith

   this.EDITORPATMEMO1 = new EDITOR(this)
   with (this.EDITORPATMEMO1)
      onGotFocus = class::EDITORPATMEMO1_ONGOTFOCUS
      onLostFocus = class::EDITORPATMEMO1_ONLOSTFOCUS
      height = 1.0
      left = 7.5714
      top = 7.7273
      width = 20.0
      dataLink = form.patientmervyn1.rowset.fields["patmemo"]
   endwith

   this.ENTRYFIELD3 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD3)
      height = 1.0
      left = 7.5714
      top = 9.8182
      width = 8.0
      value = "Entryfield3"
   endwith

   this.ENTRYFIELD4 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD4)
      height = 1.0
      left = 7.5714
      top = 12.1818
      width = 8.0
      value = "Entryfield4"
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      visible = false
      height = 1.0
      left = 2.4286
      top = 0.7273
      width = 40.1429
      text = "TAB or left-click on form to close Editor control."
   endwith

   this.rowset = this.patientmervyn1.rowset

   function EDITORPATMEMO1_onGotFocus()
      form.textlabel1.visible = true
      form.entryfield3.visible = false
      form.entryfield4.visible = false
      this.height = 13.0
      this.left = 6.4286
      this.top = 2
      this.width = 30.0
      return

   function EDITORPATMEMO1_onLostFocus()
      form.textlabel1.visible = false
      form.entryfield3.visible = true
      form.entryfield4.visible = true
      //Must use form.EDITORPATMEMO1.height instead of this.height otherwise
      //form properties are changed when the mouse is clicked on thr form.
      form.EDITORPATMEMO1.height = 1.0
      form.EDITORPATMEMO1.left = 6.4286
      form.EDITORPATMEMO1.top = 7.6364
      form.EDITORPATMEMO1.width = 20.0
      form.entryfield3.setfocus()
      return

   function form_onLeftMouseUp(flags, col, row)
      if form.EDITORPATMEMO1.height <>1 //i.e editor control is enlarged
         form.EDITORPATMEMO1_onLostFocus()
      endif
      return

endclass