Similar to xBrowse we can use arrays ::aEditListBound and ::aEditListTxt to split visual text and the bounded text for the variable!?
Board index FiveWin for Harbour/xHarbour Antonio: Idea for combobox
Günther,
I see what you mean, but we should design it carefully not to break backwards compatibility
byte-one wrote:Similar to xBrowse we can use arrays ::aEditListBound and ::aEditListTxt to split visual text and the bounded text for the variable!?
Please try DbCombo.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Is this class to use only with arrays and without any DB?
No db is really needed. (When the class was first made it used dbf only).
Now we can use it with arrays or recordsets too
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Please try this
#include "fivewin.ch"
#include "dbcombo.ch"
function Main()
local aMonths := {}
local n, c
local nVar := 100
local cMth
local oDlg
for n := 1 to 12
c := NToCMonth( n )
AAdd( aMonths, { Upper( Left( c, 3 ) ), c } )
next
cMth := aMonths[ 2, 1 ]
DEFINE DIALOG oDlg SIZE 400,400 PIXEL TRUEPIXEL
@ 20,20 GET nVar SIZE 100,20 PIXEL OF oDlg
@ 80,20 DBCOMBO cMth SIZE 200,600 PIXEL OF oDlg ;
ALIAS aMonths ITEMFIELD 1 LISTFIELD 2
@ 120,20 BUTTON "TEST" SIZE 60,24 PIXEL OF oDlg ACTION MsgInfo( cMth )
ACTIVATE DIALOG oDlg CENTERED
return nilRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Oh, thanks! Perfect for me!
byte-one wrote:Oh, thanks! Perfect for me!
I forgot to give one caution.
If the first column is numeric, the values have to be in serial from 1 to n. If not we may get wrong results. Works perfectly if the 1st column is character value.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India