HMGforum.com

Code: Select all

   define combobox usernames
      row 10
      col 160
      width 330
      sort .t.
      fontsize nFontSize
      fontname cFontName
      fontbold lFontBold
      ongotfocus comboboxdropdown()
      items aUsers
   end combobox
//
//

//

function comboboxdropdown
    local nHandle := GetControlHandle (this.name,thiswindow.name)
    ComboBoxShowDropDown(nHandle)
return nil

function comboboxdropdownclose( cWindowName, cControlName )
    local nHandle
    default cWindowName := this.name
    default cControlName := thiswindow.name
    nHandle := GetControlHandle ( cControlName , cWindowName )
    ComboBoxShowDropDownClose( nHandle )
return nil

   
function ensuretopindex
    local nHandle := GetControlHandle (this.name,thiswindow.name)
    if this.value > 0
       ComboBoxSetTopIndex(nHandle,this.value)
    endif   
    return nil




 #pragma BEGINDUMP

 #include <windows.h>
 #include <commctrl.h>
 #include "hbapi.h"
 #include <wingdi.h>

 HB_FUNC ( COMBOBOXSHOWDROPDOWN )

 {
    HWND hWnd1;
    hWnd1 = (HWND) hb_parnl (1);
    SendMessage((HWND) hWnd1,CB_SHOWDROPDOWN,    (WPARAM)(int) 1,(LPARAM)(int) 0);
 }

 HB_FUNC ( COMBOBOXSHOWDROPDOWNCLOSE )

 {
    HWND hWnd1;
    hWnd1 = (HWND) hb_parnl (1);
    SendMessage((HWND) hWnd1,CB_SHOWDROPDOWN,    (WPARAM)(int) 0,(LPARAM)(int) 0);
 }
 
 HB_FUNC ( COMBOBOXSETTOPINDEX )
 {
    HWND hWnd1;
    hWnd1 = (HWND) hb_parnl (1);
    hb_retni(SendMessage((HWND) hWnd1,CB_SETTOPINDEX, (WPARAM)(int) hb_parni(2) - 1,(LPARAM) 0 ));
 }


 #pragma ENDDUMP