Tab-Ctrl, gepunkteten Focus Rahmen entfernen?

**BugFix**

Windows 10/11 haben ja nun diese Flat - gestrickten Fenster. Da Ctrl nix anderes als Fenster sind, sehen auch die genauso verbaselt aus.

Ränder sind kaum noch auszumachen, umso hässlicher macht sich dann der gepunktete Rahmen des Tab-Item mit Focus aus.

Damit man die Item überhaupt sieht, nutze ich jetzt selbst gezeichnete Item. Das kann man dann auch schön bunt (wenn man mag für jedes Item anders) gestalten. Aber ich finde ums Verrecken nicht heraus, wie ich das Zeichnen des Focusrahmens verhindern kann.

Hier mal ein Code-Bsp. - hat jemand 'ne Idee, wie ich dem Focusrahmen beikommen kann?

AutoIt

#include <FontConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiTab.au3>
#include <StructureConstants.au3>
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>



Global $g_hGui = GUICreate('Test')
Global $g_hTab = GUICtrlGetHandle(GUICtrlCreateTab(10, 10, 380, 200, BitOR($TCS_MULTILINE,$TCS_OWNERDRAWFIXED)))
GUICtrlCreateTabItem('Alpha')
GUICtrlCreateTabItem('Beta')
GUICtrlCreateTabItem('Gamma')
GUICtrlCreateTabItem('Delta')
GUICtrlCreateTabItem('Epsilon')
GUICtrlCreateTabItem('Zeta')
GUICtrlCreateTabItem('Eta')
GUICtrlCreateTabItem('Theta')
GUICtrlCreateTabItem('Iota')
GUICtrlCreateTabItem('Kappa')
GUICtrlCreateTabItem('Lambda')
GUICtrlCreateTabItem('My')
GUICtrlCreateTabItem('Ny')
GUICtrlCreateTabItem('Xi')
GUICtrlCreateTabItem('Omikron')
GUICtrlCreateTabItem('Pi')
GUICtrlCreateTabItem('Rho')
GUICtrlCreateTabItem('Sigma')
GUICtrlCreateTabItem('Tau')
GUICtrlCreateTabItem('Ypsilon')
GUICtrlCreateTabItem('Phi')
GUICtrlCreateTabItem('Chi')
GUICtrlCreateTabItem('Psi')
GUICtrlCreateTabItem('Omega')

; Tab item color:
;~ Global $g_BGcolor = 0xCC483F    ; hellblau
;~ Global $g_BGcolor = 0x409340    ; grün
;~ Global $g_BGcolor = 0x3030FF    ; rot
;~ Global $g_BGcolor = 0xE3E3E3    ; dunkelgrau
Global $g_BGcolor = 0xF0F0F0    ; lichtgrau
;~ Global $g_BGcolor = 0x000000    ; schwarz

GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
GUISetState()

Do
Until GUIGetMsg() = -3


Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local Const $ODT_TAB        = 101
    Local Const $ODA_DRAWENTIRE = 0x1
    Local $DIS = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
                 "hwnd hItm;hwnd hDC;dword itmRect[4];dword itmData", $lParam)  ; DRAWITEMSTRUCT
    If $DIS.hItm <> $g_hTab Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.cType, $ODT_TAB) <> $ODT_TAB Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.itmAction, $ODA_DRAWENTIRE) <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG

    Local $tRect = DllStructCreate($tagRECT, DllStructGetPtr($DIS, 'itmRect'))
    Local $bFocus = (_GUICtrlTab_GetCurFocus($DIS.hItm) = $DIS.itmID)
    Local $itmText = _GUICtrlTab_GetItemText($DIS.hItm, $DIS.itmID)
    Local $hFont = _WinAPI_CreateFont(14.5, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
        $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Lucida Sans Unicode Standard')
    Local $hOldFont = _WinAPI_SelectObject($DIS.hDC, $hFont)

    ; draw and fill rect
    Local $hBrush = _WinAPI_CreateSolidBrush($g_BGcolor)
    Local $hOldBrush = _WinAPI_SelectObject($DIS.hDC, $hBrush)
    _WinAPI_Rectangle($DIS.hDC, $tRect)

     ; draw text
    _WinAPI_SetTextColor($DIS.hDC, _GuiCtrl_GetColorContrast($g_BGcolor))
    _WinAPI_SetBkColor($DIS.hDC, $g_BGcolor)

    ; move text rect by focus
    If $bFocus Then
        _WinAPI_InflateRect($tRect, 0, -2)  ; reduce rectangle
        _WinAPI_OffsetRect($tRect, 0, 2)    ; move rectangle down by 2px
    EndIf
    _WinAPI_DrawText($DIS.hDC, $itmText, $tRect, BitOR($DT_BOTTOM,$DT_CENTER))

    ; clear ressources
    _WinAPI_SelectObject($DIS.hDC, $hOldFont)
    _WinAPI_DeleteObject($hFont)
    _WinAPI_SelectObject($DIS.hDC, $hOldBrush)
    _WinAPI_DeleteObject($hBrush)

    Return 0
EndFunc


; #FUNCTION# =======================================================================================
; Name ..........: _GuiCtrl_GetColorContrast
; Description ...: The appropriate contrast color for the text is determined depending
; ...............: on the brightness of the BG color.
; Parameter(s)...: $_BkCol        The background color
; ....[optional].: $_ColOnDark    The text color if BG is dark (Default: -1, almost white)
; ....[optional].: $_ColOnBright  The text color if BG is bright (Default: -1, very deep blue)
; Return values .: Text color
; Author ........: BugFix
; ==================================================================================================
Func _GuiCtrl_GetColorContrast($_BkCol, $_ColOnDark=-1, $_ColOnBright=-1)
    $_ColOnDark = $_ColOnDark = -1 ? 0xFAFAFA : $_ColOnDark
;~     $_ColOnBright = $_ColOnBright = -1 ? 0x000088 : $_ColOnBright    ; RGB
    $_ColOnBright = $_ColOnBright = -1 ? 0x440000 : $_ColOnBright   ; BGR
    ; get contrast
    Local $R = BitAND(BitShift($_BkCol, 16), 0xFF)
    Local $G = BitAND(BitShift($_BkCol, 8), 0xFF)
    Local $B = BitAND($_BkCol, 0xFF)
    Local $Brightness = Sqrt($R^2*0.299 + $G^2*0.587 + $B^2*0.114)
    Return ($Brightness < 140 ? $_ColOnDark : $_ColOnBright)
EndFunc

Alles anzeigen

Velted

Moin,

Func HideFocusBorder() ist eine Übersetzung aus meinem AHK-Pool. Meine anderen Versuche hatten keinen Erfolg.

AutoIt

#include <FontConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiTab.au3>
#include <StructureConstants.au3>
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>
#include <WinAPISysWin.au3>

Global $g_hGui = GUICreate('Test')
Global $g_hTab = GUICtrlGetHandle(GUICtrlCreateTab(10, 10, 380, 200, BitOR($TCS_MULTILINE,$TCS_OWNERDRAWFIXED)))
GUICtrlCreateTabItem('Alpha')
GUICtrlCreateTabItem('Beta')
GUICtrlCreateTabItem('Gamma')
GUICtrlCreateTabItem('Delta')
GUICtrlCreateTabItem('Epsilon')
GUICtrlCreateTabItem('Zeta')
GUICtrlCreateTabItem('Eta')
GUICtrlCreateTabItem('Theta')
GUICtrlCreateTabItem('Iota')
GUICtrlCreateTabItem('Kappa')
GUICtrlCreateTabItem('Lambda')
GUICtrlCreateTabItem('My')
GUICtrlCreateTabItem('Ny')
GUICtrlCreateTabItem('Xi')
GUICtrlCreateTabItem('Omikron')
GUICtrlCreateTabItem('Pi')
GUICtrlCreateTabItem('Rho')
GUICtrlCreateTabItem('Sigma')
GUICtrlCreateTabItem('Tau')
GUICtrlCreateTabItem('Ypsilon')
GUICtrlCreateTabItem('Phi')
GUICtrlCreateTabItem('Chi')
GUICtrlCreateTabItem('Psi')
GUICtrlCreateTabItem('Omega')

; Tab item color:
;~ Global $g_BGcolor = 0xCC483F    ; hellblau
;~ Global $g_BGcolor = 0x409340    ; grün
;~ Global $g_BGcolor = 0x3030FF    ; rot
;~ Global $g_BGcolor = 0xE3E3E3    ; dunkelgrau
Global $g_BGcolor = 0xF0F0F0    ; lichtgrau
;~ Global $g_BGcolor = 0x000000    ; schwarz

GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
GuiRegisterMsg($WM_UPDATEUISTATE, "HideFocusBorder")
HideFocusBorder($g_hTab)
GUISetState()

Do
Until GUIGetMsg() = -3

; ==============================================================================================
; Hides the focus border for the given GUI control or GUI and all of its children.
; Call the function passing the HWND of the control / GUI in $hWnd as only parameter.
; WM_UPDATEUISTATE  -> https://learn.microsoft.com/en-us/windows/win32/menurc/wm-updateuistate
; WM_UPDATEUISTATE = 0x0128
; The Old New Thing -> https://devblogs.microsoft.com/oldnewthing/20130516-00/?p=4343
; ==============================================================================================
Func HideFocusBorder($hWnd, $iMsg = Default, $wParam = Default, $lParam = Default)
    Static $Affected[] ; affected controls / GUIs
    Static $HideFocus = 0x00010001 ; UIS_SET << 16 | UISF_HIDEFOCUS
    Switch $iMsg
        Case $WM_UPDATEUISTATE ; called by message handler
            Select
                Case $wParam = $HideFocus
                    $Affected[$hWnd] = True
                Case $Affected[$hWnd]
                    _WinAPI_PostMessage($hWnd, 0x0128, $HideFocus, 0)
            EndSelect
        Case Else
            If IsHwnd($hWnd) Then _WinAPI_PostMessage($hWnd, 0x0128, $HideFocus, 0)
    EndSwitch
EndFunc

Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local Const $ODT_TAB        = 101
    Local Const $ODA_DRAWENTIRE = 0x1
    Local $DIS = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
                 "hwnd hItm;hwnd hDC;dword itmRect[4];dword itmData", $lParam)  ; DRAWITEMSTRUCT
    If $DIS.hItm <> $g_hTab Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.cType, $ODT_TAB) <> $ODT_TAB Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.itmAction, $ODA_DRAWENTIRE) <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG

    Local $tRect = DllStructCreate($tagRECT, DllStructGetPtr($DIS, 'itmRect'))
    Local $bFocus = (_GUICtrlTab_GetCurFocus($DIS.hItm) = $DIS.itmID)
    Local $itmText = _GUICtrlTab_GetItemText($DIS.hItm, $DIS.itmID)
    Local $hFont = _WinAPI_CreateFont(14.5, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
        $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Lucida Sans Unicode Standard')
    Local $hOldFont = _WinAPI_SelectObject($DIS.hDC, $hFont)

    ; draw and fill rect
    Local $hBrush = _WinAPI_CreateSolidBrush($g_BGcolor)
    Local $hOldBrush = _WinAPI_SelectObject($DIS.hDC, $hBrush)
    _WinAPI_Rectangle($DIS.hDC, $tRect)

     ; draw text
    _WinAPI_SetTextColor($DIS.hDC, _GuiCtrl_GetColorContrast($g_BGcolor))
    _WinAPI_SetBkColor($DIS.hDC, $g_BGcolor)

    ; move text rect by focus
    If $bFocus Then
        _WinAPI_InflateRect($tRect, 0, -2)  ; reduce rectangle
        _WinAPI_OffsetRect($tRect, 0, 2)    ; move rectangle down by 2px
    EndIf
    _WinAPI_DrawText($DIS.hDC, $itmText, $tRect, BitOR($DT_BOTTOM,$DT_CENTER))

    ; clear ressources
    _WinAPI_SelectObject($DIS.hDC, $hOldFont)
    _WinAPI_DeleteObject($hFont)
    _WinAPI_SelectObject($DIS.hDC, $hOldBrush)
    _WinAPI_DeleteObject($hBrush)

    Return 0
EndFunc

; #FUNCTION# =======================================================================================
; Name ..........: _GuiCtrl_GetColorContrast
; Description ...: The appropriate contrast color for the text is determined depending
; ...............: on the brightness of the BG color.
; Parameter(s)...: $_BkCol        The background color
; ....[optional].: $_ColOnDark    The text color if BG is dark (Default: -1, almost white)
; ....[optional].: $_ColOnBright  The text color if BG is bright (Default: -1, very deep blue)
; Return values .: Text color
; Author ........: BugFix
; ==================================================================================================
Func _GuiCtrl_GetColorContrast($_BkCol, $_ColOnDark=-1, $_ColOnBright=-1)
    $_ColOnDark = $_ColOnDark = -1 ? 0xFAFAFA : $_ColOnDark
;~     $_ColOnBright = $_ColOnBright = -1 ? 0x000088 : $_ColOnBright    ; RGB
    $_ColOnBright = $_ColOnBright = -1 ? 0x440000 : $_ColOnBright   ; BGR
    ; get contrast
    Local $R = BitAND(BitShift($_BkCol, 16), 0xFF)
    Local $G = BitAND(BitShift($_BkCol, 8), 0xFF)
    Local $B = BitAND($_BkCol, 0xFF)
    Local $Brightness = Sqrt($R^2*0.299 + $G^2*0.587 + $B^2*0.114)
    Return ($Brightness < 140 ? $_ColOnDark : $_ColOnBright)
EndFunc

Alles anzeigen

**BugFix**

Zitat von Velted

ist eine Übersetzung aus meinem AHK-Pool.

Funktioniert leider bei mir (Win 11) nicht.

Ich hatte schon ein ähnliches Herangehen probiert (Quelle: https://www.hofmann-robert.info/computer/2017/…srectangle.html), aber auch ohne Erfolg.

AutoIt

Func WM_CHANGEUISTATE($hWnd, $iMsg = Default, $wParam = Default, $lParam = Default)
    If $hWnd <> $g_hTab Then Return $GUI_RUNDEFMSG
    Local Const $UIS_SET = 1
    Local Const $UISF_HIDEFOCUS = 0x1
    _WinAPI_PostMessage($hWnd, $WM_CHANGEUISTATE, _WinAPI_MakeLong($UIS_SET, $UISF_HIDEFOCUS), 0)
EndFunc

EDIT: GELÖST!

AutoIt

#include <FontConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiTab.au3>
#include <StructureConstants.au3>
#include <WinAPIGdi.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

; [[Text,bgColor,textColor]] colors as BGR
Global $g_aTabItm[][3] = [['Alpha',0xCC483F,0xFAFAFA],['Beta',0xF0F0F0,0x440000],['Gamma',0x409340,0x00F2FF],['Delta',0x3030FF,0xFAFAFA]]

Global $g_hGui = GUICreate('Test')
Global $g_hTab = GUICtrlGetHandle(GUICtrlCreateTab(10, 10, 380, 200, $TCS_OWNERDRAWFIXED))


; Create Tab items, coloring the tab page
For $i = 0 To UBound($g_aTabItm) -1
    GUICtrlCreateTabItem($g_aTabItm[$i][0])
    _GUICtrlTab_PageColor(_BGRvvRGB($g_aTabItm[$i][1]))
    GUICtrlCreateTabItem('')
Next

GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
GUISetState()


Do
Until GUIGetMsg() = -3


Func _GUICtrlTab_PageColor($_bgCol)
    ; Tab position
    Local $aTabPos = ControlGetPos($g_hGui, '', $g_hTab)
    ; size of user area
    Local $aTabRect = _GUICtrlTab_GetItemRect($g_hTab, -1)
    ; Create label
    GUICtrlCreateLabel('', $aTabPos[0] + 2, $aTabPos[1] + $aTabRect[3] + 4, $aTabPos[2] - 6, $aTabPos[3] - $aTabRect[3] - 7)
    ; set color
    GUICtrlSetBkColor(-1, $_bgCol)
    ; Disable label
    GUICtrlSetState(-1, $GUI_DISABLE)
EndFunc


Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local Const $ODT_TAB        = 101
    Local Const $ODA_DRAWENTIRE = 0x1
    Local $DIS = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
                 "hwnd hItm;hwnd hDC;dword itmRect[4];dword itmData", $lParam)  ; DRAWITEMSTRUCT
    If $DIS.hItm <> $g_hTab Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.cType, $ODT_TAB) <> $ODT_TAB Then Return $GUI_RUNDEFMSG
    If BitAND($DIS.itmAction, $ODA_DRAWENTIRE) <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG

    Local $tRect = DllStructCreate($tagRECT, DllStructGetPtr($DIS, 'itmRect'))
    Local $bFocus = (_GUICtrlTab_GetCurFocus($DIS.hItm) = $DIS.itmID)
    Local $itmText = _GUICtrlTab_GetItemText($DIS.hItm, $DIS.itmID)
    Local $iFontSize = $bFocus ? 15 : 14.5
    Local $hFont = _WinAPI_CreateFont($iFontSize, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
        $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Lucida Sans Unicode Standard')
    Local $hOldFont = _WinAPI_SelectObject($DIS.hDC, $hFont)

    ; draw and fill rect
    Local $hBrush = _WinAPI_CreateSolidBrush($g_aTabItm[$DIS.itmID][1])
    Local $hOldBrush = _WinAPI_SelectObject($DIS.hDC, $hBrush)
    _WinAPI_Rectangle($DIS.hDC, $tRect)

     ; draw text
    _WinAPI_SetTextColor($DIS.hDC, $g_aTabItm[$DIS.itmID][2])
    _WinAPI_SetBkColor($DIS.hDC, $g_aTabItm[$DIS.itmID][1])
    ; move text rect with focus
    If $bFocus Then
        _WinAPI_OffsetRect($tRect, 0, 3)
    Else
        _WinAPI_OffsetRect($tRect, 0, 1)
    EndIf
    _WinAPI_DrawText($DIS.hDC, $itmText, $tRect, BitOR($DT_BOTTOM,$DT_CENTER))

    ; clear ressources
    _WinAPI_SelectObject($DIS.hDC, $hOldFont)
    _WinAPI_DeleteObject($hFont)
    _WinAPI_SelectObject($DIS.hDC, $hOldBrush)
    _WinAPI_DeleteObject($hBrush)

    ; remove focus rect
    Local Const $UIS_SET = 1
    Local Const $UISF_HIDEFOCUS = 0x1
    _WinAPI_PostMessage($hWnd, $WM_CHANGEUISTATE, _WinAPI_MakeLong($UIS_SET, $UISF_HIDEFOCUS), 0)

    Return 0
EndFunc

Func _BGRvvRGB($_iCol)  ; BGR to RGB and vice versa
    Local $a = StringLeft(Hex($_iCol,6), 2)
    Local $b = StringMid(Hex($_iCol,6), 3, 2)
    Local $c = StringRight(Hex($_iCol,6), 2)
    Return '0x' & $c & $b & $a
EndFunc

Alles anzeigen

Velted

Schade, bei mir (Win 10 pro) funktioniert es. Ich glaube aber mich zu erinnern, dass es mit $WM_CHANGEUISTATE nicht wirklich funktioniert.

BugFix 24. November 2023 um 14:33