ComboBox Questions

Ebola57 · October 22

Dear community

My need is to get the simpliest combo box possible. I mean no border, no on over highlight, no Windows theme aso, so I can insert it into a more modern GUI look.
I tried this control and regular _GUICtrlComboBoxEx_Create and _GUICtrlComboBox_Create, trying all Styles and Extended style.

The "Option 1" is a trick to insert a regular combo box into a rounded rectangle WinAPI drawn. I am unable to get rid of up, down, let and right edges of the original combo box, even by painting over it 😕

The second box is a written from scracth but it does not expands, and do not understand why
The button is a bit uglly because being of text, but the main problem is to make it functionnal

Does someone may help me on this ?

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <GuiComboBox.au3>
#include <WindowsConstants.au3>
#include <FontConstants.au3>

; Définitions spéciales combobox
Global Const $SS_CENTERIMAGE = 0x0200
Global Const $SS_NOTIFY = 0x0100
Global Const $BS_CENTER = 0x0300
Global Const $LBS_NOTIFY = 0x0001
Global Const $SW_HIDE = 0
Global Const $SW_SHOW = 5
Global Const $LB_ADDSTRING = 0x0180
Global Const $LB_GETCURSEL = 0x0188
Global Const $LB_GETTEXT = 0x0189
Global Const $BN_CLICKED = 0
Global Const $LBN_SELCHANGE = 1

; Définition des variables et constantes
Const $cBlack = 0x000000
Const $cDeep_Grey = 0x252525
Const $cMid_Grey = 0x404040
Const $cLig_Grey = 0x808080
Const $cXLig_Grey = 0xBDBDBD
Const $cXXLig_Grey = 0xEEEEEE
Const $colWhite = 0xFFFFFF

; Définition de la font de la GUI
Const $sFont_Name = "Roboto", $Font_Size = 20
Global $hFont, $hEdit

; Définition des GUIs
Const $GUI_Main_Width = 1100, $GUI_Main_Height = 805, $GUI_Menu_Height = 40, $GUI_Task_Bar_Height = 110, $Corner_Radius = 14, $GUI_Box_Height = 26
Global $hGUI_Main, $hGUI_Color

; Définition pinceaux et stylos
Global $hBrush_Deep_Grey, $hBrush_Mid_Grey, $hBrush_Lig_Grey, $hBrush_XLig_Grey, $hBrush_XXLig_Grey
Global $hPen_Deep_Grey, $hPen_Mid_Grey, $hPen_Lig_Grey, $hPen_XLig_Grey, $hPen_XXLig_Grey

; Créer une GUI avec des options de transparence et composition
$hGUI_Main = GUICreate("GUI", $GUI_Main_Width, $GUI_Main_Height, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_VISIBLE), 0)
GUISetBkColor ( $cXLig_Grey, $hGUI_Main )

; Créer la fenêtre Color (GUI Color)
$hGUI_Color = GUICreate("", $GUI_Main_Width, $GUI_Main_Height - $GUI_Menu_Height - $GUI_Task_Bar_Height, 0, $GUI_Menu_Height, $WS_CHILD, Default, $hGUI_Main)
GUISetBkColor($cDeep_Grey, $hGUI_Color)
GUICtrlSetDefColor($cXLig_Grey, $hGUI_Color)
GUISetFont($Font_Size, $FW_NORMAL, $GUI_FONTNORMAL, $sFont_Name, $hGUI_Color, $CLEARTYPE_QUALITY)

GUISetState(@SW_SHOW, $hGUI_Main)
GUISetState(@SW_SHOW, $hGUI_Color)

; Initialiser les objets GDI
_MyWinAPI_Init_GDI_Objects( )

GUISwitch ( $hGUI_Color )
_MyWinAPI_ComboBox_Create( $hGUI_Color, 50, 200, 150, $GUI_Box_Height, $Corner_Radius, $hPen_XXLig_Grey )
Local $aOptions = ["Option 1", "Option 2", "Option 3", "Option 4"]
_MyWinAPI_ComboBox_Create2( $hGUI_Color, 50, 250, 170, $GUI_Box_Height, 10, $aOptions )

While 1
        Switch GUIGetMsg ( )
                Case $GUI_EVENT_CLOSE
                _MyWinAPI_Release_GDI_Objects( )
                ExitLoop
        EndSwitch
WEnd

Func _MyWinAPI_ComboBox_Create( $hGUI, $Pos_X, $Pos_Y, $Width, $Height, $Corner_Radius, $hPen )
        ; Décalage de la zone de saisie pour éviter chevauchement
        Local $Offset_XY = Ceiling ( $Corner_Radius / 2.8 )
    
        ; Définir les rectangles pour la boîte et le texte
        Local $tBoxRect = _WinAPI_CreateRect( 0, 0, $Width, $Height )
    
        ; Initialiser le dessin en mémoire (double buffering) pour éviter le flickering
        Local $hDC = _WinAPI_GetDC( $hGUI )
        Local $hMemDC = _WinAPI_CreateCompatibleDC ( $hDC )
        Local $hBitmap = _WinAPI_CreateCompatibleBitmap ( $hDC, $Width, $Height )
    
        ; Sauvegarder les objets existants et sélectionner les nouveaux objets GDI
        Local $hOldBitmap = _WinAPI_SelectObject ( $hMemDC, $hBitmap )
        Local $hOldPen = _WinAPI_SelectObject ( $hMemDC, $hPen )
        Local $hOldBrush = _WinAPI_SelectObject ( $hMemDC, $hBrush_XXLig_Grey )
    
        ; Définir le mode de fond transparent pour le texte
        _WinAPI_SetBkMode ( $hMemDC, $TRANSPARENT )
    
        ; Remplir la zone de la boîte avec le pinceau de fond
        _WinAPI_FillRect ( $hMemDC, $tBoxRect, $hBrush_Deep_Grey )
    
        ; Dessiner un rectangle arrondi pour la boîte
        _WinAPI_RoundRect ( $hMemDC, $tBoxRect, $Corner_Radius, $Corner_Radius )
    
        ; Restaurer les objets GDI précédents (pinceau et stylo)
        _WinAPI_SelectObject ( $hMemDC, $hOldBrush )
        _WinAPI_SelectObject ( $hMemDC, $hOldPen )    
    
        ; Créer un ComboBox avec WinAPI sans bordures
        Local $hComboBox = _WinAPI_CreateWindowEx ( $WS_EX_CLIENTEDGE, "ComboBox", "", BitOR( $WS_CHILD, $WS_VISIBLE, $CBS_DROPDOWNLIST, $WS_VSCROLL ), _
            $Pos_X + $Offset_XY, $Pos_Y, $Width - 2 * $Offset_XY, $Height - 5, $hGUI, 0 )
    
        ; Ajouter des éléments à la ComboBox via DllCall en utilisant des chaînes encodées en UTF-16
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hComboBox, "uint", $CB_ADDSTRING, "wparam", 0, "wstr", "Option 1" )
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hComboBox, "uint", $CB_ADDSTRING, "wparam", 0, "wstr", "Option 2" )
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hComboBox, "uint", $CB_ADDSTRING, "wparam", 0, "wstr", "Option 3" )
    
        ; Sélectionner un élément dans la ComboBox via DllCall
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hComboBox, "uint", $CB_SETCURSEL, "wparam", 0, "lparam", 0 )
    
        ; Appliquer la police définie globalement via DllCall
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hComboBox, "uint", $WM_SETFONT, "wparam", $hFont, "lparam", 1 )
        
        ; Copier le contenu du contexte mémoire vers le contexte de la fenêtre pour afficher le résultat final
        _WinAPI_BitBlt ( $hDC, $Pos_X, $Pos_Y, $Width, $Height, $hMemDC, 0, 0, $SRCCOPY )
    
        ; Nettoyage : restaurer les objets initiaux et libérer les ressources GDI
        _WinAPI_SelectObject ( $hMemDC, $hOldBitmap )
        _WinAPI_DeleteObject ( $hBitmap )
        _WinAPI_DeleteDC ( $hMemDC )
        _WinAPI_ReleaseDC ( $hGUI, $hDC )    
    
        ; Retourner le handle du ComboBox pour une utilisation future
        Return $hComboBox
EndFunc

Func _MyWinAPI_ComboBox_Create2( $hGUI, $Pos_X, $Pos_Y, $Width, $Height, $Corner_Radius, $aOptions )
        ; Créer la zone de sélection (zone d affichage)
        Local $hStatic = _WinAPI_CreateWindowEx(0, "Static", "", BitOR ( $WS_CHILD, $WS_VISIBLE, $SS_CENTERIMAGE, $SS_NOTIFY ), _
                $Pos_X + 2, $Pos_Y + 1, $Width - $Height + 2, $Height - 2, $hGUI, 0 )
                
        ; Définir le rectangle pour la combo box et la combo box + bouton
        Local $tBoxRect = _WinAPI_CreateRect ( 0, 0, $Width - 20, $Height )
        Local $tBoxRectFull = _WinAPI_CreateRect ( 0, 0, $Width, $Height )

        ; Initialiser le dessin en mémoire (double buffering) pour éviter le flickering
        Local $hDC = _WinAPI_GetDC ( $hGUI )
        Local $hMemDC = _WinAPI_CreateCompatibleDC ( $hDC )
        Local $hBitmap = _WinAPI_CreateCompatibleBitmap ( $hDC, $Width, $Height )

        ; Sauvegarder les objets existants et sélectionner les nouveaux objets GDI
        Local $hOldBitmap = _WinAPI_SelectObject ( $hMemDC, $hBitmap )
        Local $hOldPen = _WinAPI_SelectObject ( $hMemDC, $hPen_XXLig_Grey )
        Local $hOldBrush = _WinAPI_SelectObject ( $hMemDC, $hBrush_XXLig_Grey )

        ; Définir le mode de fond transparent pour le texte
        _WinAPI_SetBkMode ( $hMemDC, $TRANSPARENT )

        ; Remplir la zone de la boîte avec le pinceau de fond
        _WinAPI_FillRect ( $hMemDC, $tBoxRectFull, $hBrush_Deep_Grey )

        ; Dessiner le rectangle arrondi avec remplissage et contour
        _WinAPI_RoundRect ( $hMemDC, $tBoxRect, $Corner_Radius, $Corner_Radius )

        ; Copier le contenu du contexte mémoire vers le contexte de la fenêtre pour afficher le résultat final
        _WinAPI_BitBlt ( $hDC, $Pos_X, $Pos_Y, $Width, $Height, $hMemDC, 0, 0, $SRCCOPY )

        ; Restaurer les objets GDI précédents (pinceau et stylo)
        _WinAPI_SelectObject ( $hMemDC, $hOldBrush )
        _WinAPI_SelectObject ( $hMemDC, $hOldPen )
        _WinAPI_SelectObject ( $hMemDC, $hOldBitmap )

        ; Nettoyage : libérer les ressources GDI
        _WinAPI_DeleteObject ( $hBitmap )
        _WinAPI_DeleteDC ( $hMemDC )
        _WinAPI_ReleaseDC ( $hGUI, $hDC )

        ; Appliquer la police définie globalement
        DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hStatic, "uint", $WM_SETFONT, "wparam", $hFont, "lparam", 1) 

        ; Créer le bouton de déroulement
        Local $hButton = _WinAPI_CreateWindowEx ( 0, "Button", "▼", BitOR($WS_CHILD, $WS_VISIBLE, $BS_CENTER), _
                $Pos_X + $Width - 20, $Pos_Y + 3, 20, 20, $hGUI, 0 )

        ; Créer la ListBox pour afficher les options, cachée par défaut
        Local $hListBox = _WinAPI_CreateWindowEx ( 0, "ListBox", "", BitOR($WS_CHILD, $WS_VSCROLL, $LBS_NOTIFY), _
                $Pos_X, $Pos_Y + $Height, $Width, 100, $hGUI, 0 )
        _WinAPI_ShowWindow ( $hListBox, $SW_HIDE )

        ; Ajouter les options à la ListBox
        For $option In $aOptions
                DllCall ( "user32.dll", "lresult", "SendMessageW", "hwnd", $hListBox, "uint", $LB_ADDSTRING, "wparam", 0, "wstr", $option )
        Next

        ; Enregistrer les événements pour le bouton et la ListBox
        GUIRegisterMsg ( $WM_COMMAND, "_ComboBox_CustomEvents" )

        ; Stocker les handles pour l'utilisation dans la fonction d'événements
        Global $g_hCustomCombo [3] = [$hStatic, $hButton, $hListBox]

        Return $g_hCustomCombo
EndFunc

Func _ComboBox_CustomEvents($hWnd, $Msg, $wParam, $lParam)
        ; Vérifie si l événement est pour le bouton de déroulement ou la ListBox
        Local $nCtrlID = BitAND($wParam, 0xFFFF)
        Local $nEvent = BitShift($wParam, 16)

        ; Vérification si le bouton est cliqué
        If $g_hCustomCombo[1] = $nCtrlID And $nEvent = $BN_CLICKED Then
                ; Basculer la visibilité de la ListBox
                If _WinAPI_IsWindowVisible($g_hCustomCombo[2]) Then
                _WinAPI_ShowWindow($g_hCustomCombo[2], $SW_HIDE)
                Else
                _WinAPI_ShowWindow($g_hCustomCombo[2], $SW_SHOW)
                EndIf
        EndIf

        ; Vérification si un élément est sélectionné dans la ListBox
        If $g_hCustomCombo[2] = $nCtrlID And $nEvent = $LBN_SELCHANGE Then
                Local $index = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $g_hCustomCombo[2], "uint", $LB_GETCURSEL, "wparam", 0, "lparam", 0)[0]
                Local $text = DllStructCreate("char[256]")
                DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $g_hCustomCombo[2], "uint", $LB_GETTEXT, "wparam", $index, "ptr", DllStructGetPtr($text))
                ; Mettre à jour la zone de sélection
                DllCall("user32.dll", "lresult", "SetWindowTextW", "hwnd", $g_hCustomCombo[0], "wstr", DllStructGetData($text, 1))
                _WinAPI_ShowWindow($g_hCustomCombo[2], $SW_HIDE)
        EndIf
EndFunc

; Fonction pour gérer le message WM_CTLCOLOREDIT et appliquer le fond personnalisé
Func _MyWinAPI_EditControl_Background( $hWnd, $Msg, $wParam, $lParam )
        If $Msg = $WM_CTLCOLOREDIT Then
            ; Créer le pinceau personnalisé pour la couleur de fond
            Local $hBrush_Custom = _WinAPI_CreateSolidBrush ( $cXXLig_Grey )
            _WinAPI_SetTextColor ( $wParam, $cBlack )
            _WinAPI_SetBkColor ( $wParam, $cXXLig_Grey )
            Return $hBrush_Custom
        EndIf
    EndFunc
    
; Initialiser les objets GDI une seule fois pour éviter les réinitialisations répétitives
Func _MyWinAPI_Init_GDI_Objects( )
        ; Pinceaux
        $hBrush_Deep_Grey = _WinAPI_CreateSolidBrush ( $cDeep_Grey )
        $hBrush_Mid_Grey = _WinAPI_CreateSolidBrush ( $cMid_Grey )
        $hPen_Lig_Grey = _WinAPI_CreateSolidBrush ( $cLig_Grey )
        $hBrush_XLig_Grey = _WinAPI_CreateSolidBrush ( $cXLig_Grey )
        $hBrush_XXLig_Grey = _WinAPI_CreateSolidBrush ( $cXXLig_Grey )

        ; Stylo
        $hPen_Deep_Grey = _WinAPI_CreatePen ( $PS_SOLID, 1, $cDeep_Grey )    
        $hPen_Mid_Grey = _WinAPI_CreatePen ( $PS_SOLID, 1, $cMid_Grey )    
        $hPen_Lig_Grey = _WinAPI_CreatePen ( $PS_SOLID, 1, $cLig_Grey )
        $hPen_XLig_Grey = _WinAPI_CreatePen ( $PS_SOLID, 1, $cXLig_Grey )
        $hPen_XXLig_Grey = _WinAPI_CreatePen ( $PS_SOLID, 1, $cXXLig_Grey )

        ; Font
        $hFont = _WinAPI_CreateFont ( $Font_Size, 0, 0, 0, $FW_NORMAL, False, False, False, $DEFAULT_CHARSET, $OUT_TT_PRECIS, $CLIP_DEFAULT_PRECIS, $CLEARTYPE_QUALITY, $DEFAULT_PITCH, $sFont_Name )
EndFunc

; Libération des objets GDI à la fin
Func _MyWinAPI_Release_GDI_Objects( )
        ; Pinceaux
        If $hBrush_Deep_Grey Then _WinAPI_DeleteObject ( $hBrush_Deep_Grey )
        If $hBrush_Mid_Grey Then _WinAPI_DeleteObject ( $hBrush_Mid_Grey )
        If $hBrush_XXLig_Grey Then _WinAPI_DeleteObject ( $hBrush_XXLig_Grey )

        ; Stylo
        If $hPen_Mid_Grey Then _WinAPI_DeleteObject ( $hPen_Mid_Grey )
        If $hPen_Lig_Grey Then _WinAPI_DeleteObject ( $hPen_Lig_Grey )
        If $hPen_XXLig_Grey Then _WinAPI_DeleteObject ( $hPen_XXLig_Grey )

        ; Font
        If $hFont Then _WinAPI_DeleteObject ( $hFont )
EndFunc

image.png.d9a7be5e921026402beba468b3236d97.png

Edited October 22 by Ebola57

Melba23 · October 22

Split from a 2 year old topic in Examples.

M23

Sign In

ComboBox Questions

Recommended Posts

Ebola57

Link to comment

Share on other sites

Melba23

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta