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
|
|