Put the following in the ON Entry EEP:
{begin code}
DEBUG TRACE
-- the CONSTant for show dropdown
SET VAR cb_showdropdown INTEGER = 335
SET VAR CB_SETDROPWIDTH INTEGER = 352
SET VAR CB_ERR INTEGER = -1
SET VAR DROPWIDTH INTEGER = 200
SET VAR hCbo INTEGER = 0
SET VAR hCbotx TEXT = NULL
GETPROPERTY CboOne HANDLE 'hcbotx'
SET VAR hCbo INTEGER = (INT(.hCbotx))
IF (chkfunc('SendMessage')) = 0 THEN
STDCALL function 'SendMessageA' alias 'SendMessage' +
(integer, integer, integer, integer) : integer
ENDIF
{
-- The following sets the drop down WIDTH in pixels
SET VAR vret INTEGER = +
(dlcall('User32', 'SendMessageA', 0 , DROPWIDTH, CB_SETDROPWIDTH, hCbo))
}
-- the second value is 1 = TRUE and 0 = FALSE to rais or lower the drop
SET VAR vret INTEGER = +
(dlcall('User32', 'SendMessageA', 0 , 1, cb_showdropdown, hCbo))
RETURN
{end code}
----- Original Message -----
From: "Castanaro, Bob" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Wednesday, July 29, 2009 10:44 AM
Subject: [RBASE-L] - AUTODROPDOWN
Just a question on how to get a dblookup combobox to drop down when entering
the field from the previous field with the ENTER key.
Here is what I tried: Property DROPDOWNBOX autodropdown 'true'
Then thinking I needed brackets: Property <DROPDOWNBOX> autodropdown 'true'
Neither one works.
Is this normal behavior or am I doing something wrong?
Thanks
Bob C
Robert M. Castanaro
Director, Surgical Services, Clinic and Pain Services
Summa Health System Barberton Hospital
155 Fifth Street N.E.
Barberton, Ohio 44203
Phone 330-615-3627
[email protected]
[cid:[email protected]]
