FiveTech Support Forums

HARBOUR /n /iINCLUDE combobox
cl -TP -W3 -c /IINCLUDE /GA combobox.c
Lib C:\fwh\lib\Fivehc32.lib /OUT:C:\fwh\lib\Fivehc32.lib combobox.obj

DEFINE DIALOG oDlg RESOURCE "CADFOLG" OF wndMain()
    REDEFINE COMBOBOX aGets[ 1 ]    VAR aVars[ 1 ] ITEMS aArea ID 101 OF oDlg
    REDEFINE COMBOBOX aGets[ 2 ]    VAR aVars[ 2 ] ITEMS aRota ID 102 OF oDlg UPDATE
    REDEFINE GET aGets[ 3 ]         VAR aVars[ 3 ] ID 103 OF oDlg 
    REDEFINE COMBOBOX aGets[ 4 ]    VAR aVars[ 4 ] ITEMS aFolg ID 104 OF oDlg 
    aGets[ 4 ]:oGet:bKeyDown = { | nKey | SearchItem( nKey, aGets[ 4 ] ) }
    REDEFINE BUTTON aButt[ 1 ] ID 1 DIALOG oDlg UPDATE ACTION if( lRetu, ( GravaFolg( aVars ), oDlg:end() ), NIL )
    REDEFINE BUTTON aButt[ 2 ] ID 2 DIALOG oDlg UPDATE ACTION oDlg:end() CANCEL
    aGets[ 1 ]:oGet:bValid := { || ( SeleRota( aVars[ 1 ], @aRota, .F. ), aGets[ 2 ]:SetItems( aRota ), aVars[ 2 ] := aRota[ 1 ], aGets[ 2 ]:refresh(), oDlg:aControls[ 2 ]:setFocus(), .T. ) } 
    aGets[ 1 ]:oGet:bChange := { || ( SeleRota( aVars[ 1 ], @aRota, .F. ), aGets[ 2 ]:SetItems( aRota ), aVars[ 2 ] := aRota[ 1 ], aGets[ 2 ]:refresh(), .T. ) }
    aGets[ 3 ]:bValid := { || if( VerifData( aVars ), ( aVars[ 4 ] := tira->ENTR, aGets[ 4 ]:refresh(), oDlg:aControls[ 4 ]:setFocus(), lRetu := .T., .T. ), ( lRetu := .F., .F. ) ) }  
    oDlg:lHelpIcon := .F.
ACTIVATE DIALOG oDlg

   * if lAnd( ::nStyle, CBS_DROPDOWN )    // originally

   if lAnd( ::nStyle, CBS_DROPDOWNLIST ) == CBS_DROPDOWN   // your suggestion

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
DLGROTZON DIALOG 0, 0, 186, 95
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
    COMBOBOX        101, 30, 4, 153, 85, WS_TABSTOP | WS_VSCROLL | WS_BORDER | CBS_DROPDOWN | CBS_HASSTRINGS
    COMBOBOX        102, 30, 21, 153, 74, WS_TABSTOP | WS_VSCROLL | WS_BORDER | CBS_DROPDOWN | CBS_HASSTRINGS
    DEFPUSHBUTTON   "OK", IDOK, 33, 77, 50, 14
    PUSHBUTTON      "Cancelar", IDCANCEL, 103, 77, 50, 14
    LTEXT           "Área", -1, 3, 6, 16, 8, SS_LEFT
    LTEXT           "Roteiro", -1, 3, 23, 24, 8, SS_LEFT
}

METHOD ReDefine( nId, bSetGet, aItems, oWnd, nHelpId, bValid, ;
                 bChange, nClrFore, nClrBack, cMsg, lUpdate, ;
                 bWhen, acBitmaps, bDrawItem, nStyle, cPict, ;
                 bEChange ) CLASS TComboBox

   local hDlg, hCtrl

   DEFAULT oWnd := GetWndDefault()

   if nClrFore == nil
      nClrBack := GetSysColor( COLOR_WINDOW )
   endif

   DEFAULT aItems   := {},;
           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;
           lUpdate  := .f., ;
           nStyle   := CBS_DROPDOWNLIST

   ::nId       = nId
   ::hWnd      = 0
   ::aItems    = aItems
   ::bChange   = bChange
   ::bSetGet   = bSetGet
   ::oWnd      = oWnd
   ::nHelpId   = nHelpId
   ::bValid    = bValid
   ::nAt       = 0
   ::lDrag     = .f.
   ::lCaptured = .f.
   ::cMsg      = cMsg
   ::lUpdate   = lUpdate
   ::bWhen     = bWhen
   ::bDrawItem = bDrawItem
   ::nStyle    = nStyle
   ::cSearchKey = ""

   if acBitmaps != nil
      ::SetBitmaps( acBitmaps )
   else
      ::lOwnerDraw = .F.
   endif

   ::SetColor( nClrFore, nClrBack )
   
   if ( hDlg := CreateDlg( GetResources(), ::oWnd:cResName ) ) != 0
      if ( hCtrl := GetDlgItem( hDlg, ::nId ) ) != 0
         ::nStyle = GetWindowLong( hCtrl, GWL_STYLE )
      endif      
      DestroyWindow( hDlg )
   endif   

   if nAnd( ::nStyle, CBS_DROPDOWNLIST ) == CBS_DROPDOWN .or. ; // Not for CBS_DROPDOWNLIST
      nAnd( ::nStyle, CBS_DROPDOWNLIST ) == CBS_SIMPLE
      ::oGet := TGet():ReDefine( nil,    ;  // ID not used
                              ::bSetGet, ;  // bSETGET(uVar)
                              Self,      ;  // oDlg
                              ::nHelpID, ;  // Help Context ID
                              cPict,     ;  // Picture
                              nil,       ;  // Valid is handled by the CBx
                              ::nClrText,;
                              ::nClrPane,;
                              ::oFont,   ;  // <oFont>
                              nil,       ;  // <oCursor>
                              cMsg,      ;  // cMsg
                              nil,       ;  // <.update.>
                              nil,       ;  // <{uWhen}>
                              bEChange,  ;  // {|nKey,nFlags,Self| <uEChange>}
                              .F.        )  // <.readonly.> )
      ::oGet:bKeyChar = { | nKey | ::GetKeyChar( nKey ) }
   endif

   oWnd:DefControl( Self )

return Self

   if ( hDlg := CreateDlg( GetResources(), ::oWnd:cResName ) ) != 0
      if ( hCtrl := GetDlgItem( hDlg, ::nId ) ) != 0
         ::nStyle = GetWindowLong( hCtrl, GWL_STYLE )
      endif      
      DestroyWindow( hDlg )
   endif