Subject Re: DROPDOWN LIST
From Mervyn Bick <invalid@invalid.invalid>
Date Thu, 15 Feb 2018 11:38:39 +0200
Newsgroups dbase.getting-started
Attachment(s) test_dropdown.wfm

On 2018-02-15 10:53 AM, Mustansir Ghor wrote:
> Dear All
>
> I am using combobox in a grid, I have set dropdownlist = 2. On its focus It sorts on first alphabetical character typed in but not 2nd, 3rd. Further repeating same first character  it moves to next item of the typed 1st character. I wish 2nd , 3rd character was working, nevertheless If I have to open this dropdown list I have to use mouse, is there a way to open the dropdownlist from the keyboard.
>
> Best Regards
> Mustansir
>

extcombobox.cc in the dUFLP should do what you want.  Set the autoDrop
property true to ensure that the list drops when the control gets focus.

A little example is attached

Mervyn




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