Antonio: Idea for combobox

[byte-one]

Similar to xBrowse we can use arrays ::aEditListBound and ::aEditListTxt to split visual text and the bounded text for the variable!?

[Antonio Linares]

Günther,

I see what you mean, but we should design it carefully not to break backwards compatibility

[nageswaragunupudi]

Similar to xBrowse we can use arrays ::aEditListBound and ::aEditListTxt to split visual text and the bounded text for the variable!?

Please try DbCombo.

[byte-one]

Is this class to use only with arrays and without any DB?

[nageswaragunupudi]

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

[nageswaragunupudi]

Please try this

Code: Select all  Expand view

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

 

[byte-one]

Oh, thanks! Perfect for me!

[nageswaragunupudi]

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.