if file('test_dropdown.dbf')
//   drop table test_dropdown
endif

if not file('test_dropdown.dbf')
   create table test_dropdown  (id autoinc,data character(15))

   insert into test_dropdown  (data) values ("Pear")
   insert into test_dropdown  (data) values ("Pineapple")
   insert into test_dropdown  (data) values ("Banana")
   insert into test_dropdown  (data) values ("Apple")
   insert into test_dropdown  (data) values ("Apricot")
   insert into test_dropdown  (data) values ("Mango")
   insert into test_dropdown  (data) values ("Watermelon")
endif



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

class test_dropdownForm of FORM
   set procedure to :dUFLP:extcombobox.cc additive
   with (this)
      height = 16.0
      left = 94.2857
      top = 9.9545
      width = 34.1429
      text = ""
   endwith

   this.TEST_DROPDOWN1 = new QUERY(this)
   with (this.TEST_DROPDOWN1)
      left = 3.0
      top = 1.0
      width = 12.0
      height = 1.0
      sql = 'select * from "test_dropdown.DBF" order by data'
      active = true
   endwith

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

   this.EXTCOMBOBOX1 = new EXTCOMBOBOX(this)
   with (this.EXTCOMBOBOX1)
      height = 1.0
      left = 6.0
      top = 3.5
      width = 21.0
      dataSource = form.test_dropdown1.rowset.fields["data"]
      autoDrop = true
   endwith

   this.rowset = this.test_dropdown1.rowset

endclass