29 Jul 2020 19:11
VAR Style INIT WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_VSCROLL + CBS_NOINTEGRALHEIGHT + CBS_AUTOHSCROLL + CBS_DROPDOWNLIST
VAR lSetCallback INIT .F.
METHOD AddItem( cText ) INLINE AAdd( ::aComboboxList, cText ), ::SendMessage( CB_ADDSTRING, 0, @::aComboboxList[ Len( ::aComboboxList ) ] )
IF ::lSetCallback
::SetWindowProcCallback() /* Let parent take control of it */
ENDIF
oControl := wvgtstComboBox():New()
oControl:Create( , , { -7.5, -43 }, { -6, -17 } )
AEval( aComboboxList, { | e | oControl:AddItem( e ) } )
oControl:SetValue( 5 )
29 Jul 2020 19:37
CREATE CLASS wvgTstCombobox INHERIT wvgCombobox // INHERIT wvgTstControl
VAR Type INIT WVGCOMBO_DROPDOWNLIST
METHOD SetValue( nIndex ) INLINE ::SendMessage( CB_SETCURSEL, nIndex - 1, 0 )
//VAR ClassName INIT "COMBOBOX"
//VAR ObjType INIT objTypeComboBox
//VAR aComboboxList INIT {}
//VAR Style INIT WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_VSCROLL + CBS_NOINTEGRALHEIGHT + CBS_AUTOHSCROLL + CBS_DROPDOWNLIST
//VAR lSetCallback INIT .F.
//METHOD AddItem( cText ) INLINE AAdd( ::aComboboxList, cText ), ::SendMessage( CB_ADDSTRING, 0, @::aComboboxList[ Len( ::aComboboxList ) ] )
//METHOD Clear() INLINE ::aComboboxList := {}, ::SendMessage( CB_RESETCONTENT, 0, 0 )
ENDCLASS