bb.donnay-software.com

Code: Select all

#INCLUDE "dcdialog.ch"
#INCLUDE "appevent.CH"

FUNCTION Main()

LOCAL GetList[0], GetOptions, aComboCaptions, aComboValues, ;
      bGetSet, cComboCaption, nComboValue, oComboBox

aComboCaptions := { ;
    'Nineteen Ninety Seven' , ;
    'Nineteen Ninety Eight' , ;
    'Nineteen Ninety Nine' , ;
    'Two Thousand' , ;
    'Two Thousand One' , ;
    'Two Thousand Two' , ;
    'Two Thousand Three' , ;
    'Two Thousand Four' , ;
    'Two Thousand Five' }

aComboValues := { ;
    1997, ;
    1998, ;
    1999, ;
    2000, ;
    2001, ;
    2002, ;
    2003, ;
    2004, ;
    2005 }

cComboCaption := ''
nComboValue := 2002

@ 1,1 DCSAY 'Choose a year' SAYSIZE 0 SAYBOTTOM

bGetSet := DC_ComboGetSetBlock( aComboCaptions, aComboValues, ;
                                @cComboCaption, @nComboValue )

@ 1, DCGUI_COL + 10 DCCOMBOBOX bGetSet ;
       LIST aComboCaptions ;
       SIZE 20, 10 ;
       OBJECT oComboBox ;
       ITEMSELECTED DC_ComboSelectedBlock( aComboCaptions, aComboValues,  ;
                                           @cComboCaption, @nComboValue )

DCREAD GUI FIT ADDBUTTONS TITLE 'Combobox Test' HANDLER myHandler REFERENCE @oComboBox

DCMSGBOX 'You selected the year ' + Alltrim(Str(nComboValue))

RETURN nil

* ------------

PROC appsys
RETURN

* ------------

STATIC FUNCTION myHandler(nEvent,mp1,mp2,oXbp,oDlg,GetList,oComboBox)

IF nEvent == xbeP_Keyboard .AND. oXbp == oComboBox
  RETURN DCGUI_IGNORE
ENDIF

RETURN DCGUI_NONE