GUIDarkTheme UDF

[WildByDesign]

1 hour ago, mLipok said:

Try change theme for the secret hidden window created automaticaly by AutoIt.

Oh yes, I am familiar with that hidden AutoIt window. I have actually used it before for applying dark mode to system tray menu on tray tool apps which had no GUI. Good idea. I will try this.

 

[WildByDesign]

GUIDarkTheme 2.3.2

• Fixed a bug in _GUIDarkTheme_MsgBox preventing dark MsgBox before GUI creation
• Fixed a bug in _GUIDarkTheme_MsgBox causing focus rectangle to be solid white
• Fixed issue with Group control getting overpainted by tab control brush

 

7 hours ago, bladem2003 said:

Can we display a dark message box before the graphical user interface is created?

This issue should be fixed now.

9 hours ago, jpm said:

he group is not showing  switching to tab fic)ve and back to four sometime show same pb with light theme

I understand what you mean now. It was a problem redrawing the Group control. I found a better way to handle it. It should be fixed in 2.3.2 now. Please let me know.

[mLipok]

6 minutes ago, WildByDesign said:

Fixed a bug in _GUIDarkTheme_MsgBox preventing dark MsgBox before GUI creation

 

6 minutes ago, WildByDesign said:

7 hours ago, bladem2003 said:

Can we display a dark message box before the graphical user interface is created?

This issue should be fixed now.

what was the solution ?

EDIT:
sorry I not follow code, only discussion

Edited yesterday at 12:34 AM by mLipok

[WildByDesign]

1 hour ago, mLipok said:

what was the solution ?

There are two brushes responsible for coloring the dark MsgBox. I just had to create those two brushes earlier when the UDF is first initiated. All of the other brushes are still created later.

[xuankhanh1982]

@WildByDesign

How do I fix the error shown in the image?

https://ibb.co/JRwWKLhZ

This is the code in the image:

expandcollapse popup

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIDarkTheme.au3>
Opt("TrayAutoPause", 0)
Opt("GUICoordMode", 1)
Opt("TrayMenuMode", 3)
Global $g_DpiRatio = _ApplyDpiScaling(), $idAbout[3], $icon[4], $msguide
$idAbout[2] = TrayCreateMenu("Menu")
$idAbout[1] = TrayCreateItem("About", $idAbout[2])
TrayCreateItem("")
$idAbout[0] = TrayCreateItem("Exit")
$icon[0] = _WinAPI_ExtractIcon("shell32.dll", 17, True)
$icon[1] = _WinAPI_ExtractIcon("shell32.dll", 130, True)
$icon[2] = _WinAPI_ExtractIcon("shell32.dll", 131, True)
_TrayMenuAddIcon($icon[0], 0)
_TrayMenuAddIcon($icon[1], 0, $idAbout[2])
_TrayMenuAddIcon($icon[2], 2)
_GUIDarkTheme_ApplyDark("")
;~ _GUIDarkTheme_ApplyLight("")
While 1
    $msguide = TrayGetMsg()
    If ($msguide = $idAbout[1]) Then
        Local $sMsg = "GUIDarkTheme UDF" & @CRLF
            $sMsg &= "Version: " & @TAB & _GUIDarkTheme_Version()
        _GUIDarkTheme_MsgBox(64+262144, "About", $sMsg, 0, "")
    EndIf
    If ($msguide = $idAbout[0]) Then
        Exit
    EndIf
WEnd

Func _TrayMenuAddIcon(ByRef $hIcon, $TrayMenuNr, $ParentMenu = 0, $IndexType = 0x00000400); $MF_POSITION=0x00000400
    dim $pIcoInfo, $hBmp
    If _IconGetInfo($hIcon, $pIcoInfo) <> 0 Then
        ; Get a handel to the bmp in the icon def.
        $hBmp = DllStructGetData($pIcoInfo,5)
        _TrayMenuAddImage($hBmp, $TrayMenuNr, $ParentMenu, $IndexType)
        $pIcoInfo = 0
    Else
;~      If $Debug Then ConsoleWrite($ModuleName & " ERROR: In _TrayMenuAddIcon($hIcon:=" & $hIcon & _
;~              ", $TrayMenuNr:=" & $TrayMenuNr _
;~              & ") Call to _GetIconInfo Trying to use $hIcon as bmp handel" &  @LF)
        _TrayMenuAddImage($hIcon, $TrayMenuNr, $ParentMenu, $IndexType)
    EndIf
EndFunc ; ==>_TrayMenuAddIcon
Func _IconGetInfo(ByRef $hIcon, ByRef $structICONINFO)
    local $def = "int; dword; dword; ptr; ptr"
    $structICONINFO = DllStructCreate($def)
    ; PROTO: BOOL GetIconInfo( HICON hIcon, PICONINFO piconinfo);
    Local $ret = DllCall("user32.dll", "long", "GetIconInfo", "ptr", $hIcon, "ptr", DllStructGetPtr($structICONINFO))
;~  if $Debug AND @error <> 0 then ConsoleWrite( $ModuleName & "_IconGetInfo: @ERROR:=" & @error & @CRLF & _
;~          "@ERROR:=1 > unable to use the DLL file: user32.dll" & @CRLF & _
;~          "@ERROR:=2 > unknown return type"  & @CRLF & _
;~          "@ERROR:=3 > function: GetIconInfo not found in user32.dll" & @LF)
    ; 0 Is failure andything else is success.
    return $ret[0]
EndFunc ; ==> _IconGEtInfo
Func _TrayMenuAddImage(ByRef $hBmp, $MenuIndex, $ParentMenu = 0, $IndexType = 0x00000400); $MF_POSITION=0x00000400
;~  if $Debug Then ConsoleWrite("_TrayMenuAddIcon( $hBmp:=" & $hBmp & ", $MenuIndex:=" & _
;~                  $MenuIndex & ", $ParentMenu:=" & $ParentMenu & ", $IndexType:=" & $IndexType &" )" & @LF)
    local $ret = DllCall("user32.dll", "int", "SetMenuItemBitmaps", "hwnd", TrayItemGetHandle($ParentMenu), _
                                                       "int",  $MenuIndex, _
                                                       "int",  $IndexType, _
                                                       "hwnd", $hBmp, _
                                                       "hwnd", $hBmp)
EndFunc ; ==>_TrayMenuAddImage

 

Edited 15 hours ago by xuankhanh1982

[WildByDesign]

39 minutes ago, xuankhanh1982 said:

How do I fix the error shown in the image?

It looks like something wrong with transparency of icon background. It is not something specific with GUIDarkTheme UDF though. I tested by removing all dark mode code and the problem is still there. I don't know how to fix bitmap and icon issues like that.

Suggestion: I would suggest sharing the shorter code (below) over in the AutoIt Help and Support section of the forum. More users with experience working directly with bitmaps and icons can help you.

This code removes dark mode stuff and hopefully makes it easier for someone in Help and Support area to find problem with icon transparency.

expandcollapse popup

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPIIcons.au3>
Opt("TrayAutoPause", 0)
Opt("GUICoordMode", 1)
Opt("TrayMenuMode", 3)
Global $idAbout[3], $icon[4], $msguide
$idAbout[2] = TrayCreateMenu("Menu")
$idAbout[1] = TrayCreateItem("About", $idAbout[2])
TrayCreateItem("")
$idAbout[0] = TrayCreateItem("Exit")
$icon[0] = _WinAPI_ExtractIcon("shell32.dll", 17, True)
$icon[1] = _WinAPI_ExtractIcon("shell32.dll", 130, True)
$icon[2] = _WinAPI_ExtractIcon("shell32.dll", 131, True)
_TrayMenuAddIcon($icon[0], 0)
_TrayMenuAddIcon($icon[1], 0, $idAbout[2])
_TrayMenuAddIcon($icon[2], 2)

While 1
    $msguide = TrayGetMsg()
    If ($msguide = $idAbout[1]) Then
        Local $sMsg = "Test"
        MsgBox(64+262144, "About", $sMsg, 0, "")
    EndIf
    If ($msguide = $idAbout[0]) Then
        Exit
    EndIf
WEnd

Func _TrayMenuAddIcon(ByRef $hIcon, $TrayMenuNr, $ParentMenu = 0, $IndexType = 0x00000400); $MF_POSITION=0x00000400
    dim $pIcoInfo, $hBmp
    If _IconGetInfo($hIcon, $pIcoInfo) <> 0 Then
        ; Get a handel to the bmp in the icon def.
        $hBmp = DllStructGetData($pIcoInfo,5)
        _TrayMenuAddImage($hBmp, $TrayMenuNr, $ParentMenu, $IndexType)
        $pIcoInfo = 0
    Else
;~      If $Debug Then ConsoleWrite($ModuleName & " ERROR: In _TrayMenuAddIcon($hIcon:=" & $hIcon & _
;~              ", $TrayMenuNr:=" & $TrayMenuNr _
;~              & ") Call to _GetIconInfo Trying to use $hIcon as bmp handel" &  @LF)
        _TrayMenuAddImage($hIcon, $TrayMenuNr, $ParentMenu, $IndexType)
    EndIf
EndFunc ; ==>_TrayMenuAddIcon
Func _IconGetInfo(ByRef $hIcon, ByRef $structICONINFO)
    local $def = "int; dword; dword; ptr; ptr"
    $structICONINFO = DllStructCreate($def)
    ; PROTO: BOOL GetIconInfo( HICON hIcon, PICONINFO piconinfo);
    Local $ret = DllCall("user32.dll", "long", "GetIconInfo", "ptr", $hIcon, "ptr", DllStructGetPtr($structICONINFO))
;~  if $Debug AND @error <> 0 then ConsoleWrite( $ModuleName & "_IconGetInfo: @ERROR:=" & @error & @CRLF & _
;~          "@ERROR:=1 > unable to use the DLL file: user32.dll" & @CRLF & _
;~          "@ERROR:=2 > unknown return type"  & @CRLF & _
;~          "@ERROR:=3 > function: GetIconInfo not found in user32.dll" & @LF)
    ; 0 Is failure andything else is success.
    return $ret[0]
EndFunc ; ==> _IconGEtInfo
Func _TrayMenuAddImage(ByRef $hBmp, $MenuIndex, $ParentMenu = 0, $IndexType = 0x00000400); $MF_POSITION=0x00000400
;~  if $Debug Then ConsoleWrite("_TrayMenuAddIcon( $hBmp:=" & $hBmp & ", $MenuIndex:=" & _
;~                  $MenuIndex & ", $ParentMenu:=" & $ParentMenu & ", $IndexType:=" & $IndexType &" )" & @LF)
    local $ret = DllCall("user32.dll", "int", "SetMenuItemBitmaps", "hwnd", TrayItemGetHandle($ParentMenu), _
                                                       "int",  $MenuIndex, _
                                                       "int",  $IndexType, _
                                                       "hwnd", $hBmp, _
                                                       "hwnd", $hBmp)
EndFunc ; ==>_TrayMenuAddImage

 

[xuankhanh1982]

@WildByDesign

I'm sorry, I don't know who to ask.

I think, since you created the light and dark modes, you should be able to fix the error shown in the image.

Thank you very much, have a nice day!

[Nine]

@xuankhanh1982  You would need to specify the actual background color to your bitmap.  Here an example with white BK.

expandcollapse popup

; From Nine
#include <WinAPI.au3>
#include <GuiMenu.au3>

Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 3)

Example()

Func Example()
  Local $idMenu = TrayCreateMenu("Menu")
  Local $idAbout = TrayCreateItem("About")
  TrayCreateItem("")
  Local $idExit = TrayCreateItem("Exit")

  Local $hMenu = TrayItemGetHandle(0)
  _GUICtrlMenu_SetItemBmp($hMenu, 0, BitmapFromIcon(0xFFFFFF, "shell32.dll", 17, True))
  _GUICtrlMenu_SetItemBmp($hMenu, 1, BitmapFromIcon(0xFFFFFF, "shell32.dll", 130, True))
  _GUICtrlMenu_SetItemBmp($hMenu, 3, BitmapFromIcon(0xFFFFFF, "shell32.dll", 131, True))

  Do
  Until TrayGetMsg() = $idExit
EndFunc   ;==>Example

Func BitmapFromIcon($nClrBK, $sIcon, $iIndex, $bSmall)
  Local $iSize = $bSmall ? 16 : 32
  Local $hDC = _WinAPI_GetDC(0)
  Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
  Local $hBitmap = _WinAPI_CreateSolidBitmap(0, $nClrBK, $iSize, $iSize)
  Local $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
  Local $hIcon = _WinAPI_ExtractIcon($sIcon, $iIndex, $bSmall)
  _WinAPI_DrawIconEx($hMemDC, 0, 0, $hIcon, $iSize, $iSize, 0, 0, $DI_NORMAL)
  _WinAPI_DestroyIcon($hIcon)
  _WinAPI_SelectObject($hMemDC, $hOld)
  _WinAPI_DeleteDC($hDC)
  _WinAPI_DeleteDC($hMemDC)
  Return $hBitmap
EndFunc   ;==>BitmapFromIcon

If you want true transparency, here another example :

; From Nine
#include <GUIMenu.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>

Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 3)

Example()

Func Example()
  _GDIPlus_Startup()
  Local $idMenu = TrayCreateMenu("Menu")
  Local $idAbout = TrayCreateItem("About")
  TrayCreateItem("")
  Local $idExit = TrayCreateItem("Exit")

  Local $hMenu = TrayItemGetHandle(0)
  SetMenuItemIcon("shell32.dll", 17, $hMenu, 0)
  SetMenuItemIcon("shell32.dll", 130, $hMenu, 1)
  SetMenuItemIcon("shell32.dll", 131, $hMenu, 3)

  Do
  Until TrayGetMsg() = $idExit
  _GDIPlus_Shutdown()
EndFunc   ;==>Example

Func SetMenuItemIcon($sFile, $iIconID, $hMenu, $iMenuID)
  Local $hIcon = _WinAPI_ExtractIcon($sFile, $iIconID, True)
  Local $hBitmap = _GDIPlus_BitmapCreateFromHICON32($hIcon)
  Local $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
  _GUICtrlMenu_SetItemBmp($hMenu, $iMenuID, $hHBitmap)
  _WinAPI_DestroyIcon($hIcon)
  _GDIPlus_ImageDispose($hBitmap)
EndFunc   ;==>SetMenuItemIcon

 

Edited 7 hours ago by Nine

[WildByDesign]

For quite a while now, I have wanted to know with absolute certainty that a users' OS supports the newer DarkMode_DarkTheme. And preferably, before the GUI even starts.

In help topic How to search string resources in executable files I was asking for help on searching the aero.msstyles and/or uxtheme.dll binary files for whether Unicode string "DarkMode_DarkTheme" exists or not. The idea was similar to SysInternals Strings program. It was not successful in the end.

Microsoft didn't add DarkMode_DarkTheme until later builds of 24H2/25H2 but earlier builds of 24H2/25H2 did not have it. So in GUIDarkTheme UDF, I currently check for OS build 26100.6899 or higher since 6899 was the revision in which MS added it.

Potential problem?

Microsoft has been doing a lot of A / B testing in Windows in recent years. Sometimes users of the very same OS build and revision may have completely different features that MS enables/disables server side and by various percentages of the user base.

Anyway, I finally had an idea and came up with something. It works without GUI and therefore can be decided before a GUI is shown. The function simply gives True if the modern DarkMode_DarkTheme is supported or False if not. So in theory, Windows 10 and earlier Windows 11 builds should return False. More recent Windows 11 builds should return True.

If anyone wants to test it on various OS builds or VMs, please feel free. If anyone has any suggestions for improvement, please let me know.

If everything checks out OK, I will add this to the UDF.

expandcollapse popup

#include <WinAPITheme.au3>

; Obtain handle for AutoIt process without GUI
Local $hWnd = _GetHwndFromPID(@AutoItPID)

ConsoleWrite("Does OS support DarkMode_DarkTheme?" & @TAB & _isModernTheme($hWnd) & @CRLF)

Func _isModernTheme($hWnd)
    Local Const $BP_PUSHBUTTON = 1
    Local Const $EP_BACKGROUND = 3
    Local Const $EBS_NORMAL = 1

    Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_DarkTheme::Edit")
    If @error Then Return False

    Local $iColor = _WinAPI_GetThemeColor($hTheme, $EP_BACKGROUND, $EBS_NORMAL, $TMT_FILLCOLOR)
    If @error Then Return False
    _WinAPI_CloseThemeData($hTheme)
    $iColor = "0x" & Hex($iColor, 6)
    If $iColor = 0x262626 Then ; 0x262626 is official Edit brush color in DarkMode_DarkTheme
        Return True
    Else
        Return False
    EndIf
EndFunc   ;==>_isModernTheme

; Function for getting HWND from PID
Func _GetHwndFromPID($PID)
    $hWnd = 0
    $winlist = WinList()
    Do
        For $i = 1 To $winlist[0][0]
            If $winlist[$i][0] <> "" Then
                $iPID2 = WinGetProcess($winlist[$i][1])
                If $iPID2 = $PID Then
                    $hWnd = $winlist[$i][1]
                    ExitLoop
                EndIf
            EndIf
        Next
    Until $hWnd <> 0
    Return $hWnd
EndFunc   ;==>_GetHwndFromPID

 

Edited 4 hours ago by WildByDesign

[argumentum]

expandcollapse popup

#Region ; *** Dynamically added Include files ***
#include <APIThemeConstants.au3>                             ; added:05/10/26 18:22:06
#EndRegion ; *** Dynamically added Include files ***
#include <WinAPITheme.au3>

ConsoleWrite("Does OS support DarkMode_DarkTheme?" & @TAB & _isModernTheme() & " ( " & "0x" & Hex(@extended, 6) & " )" & @CRLF)

Func _isModernTheme($hWnd = Default)
    If Not _WinAPI_IsThemeActive() Then Return SetError(0, 1, False)
    Local Const $BP_PUSHBUTTON = 1
    Local Const $EP_BACKGROUND = 3
    Local Const $EBS_NORMAL = 1

    If $hWnd = Default Then $hWnd = _GetHwndFromPID(@AutoItPID) ; Obtain handle for AutoIt process without GUI

;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_Explorer::Edit") ; 0x212121
;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_CFD::Edit") ; 0x383838
    Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_DarkTheme::Edit") ; 0x262626
    If @error Then Return SetError(0, 2, False)
    Local $iColor = _WinAPI_GetThemeColor($hTheme, $EP_BACKGROUND, $EBS_NORMAL, $TMT_FILLCOLOR)
    If @error Then Return SetError(0, 3, False)
    _WinAPI_CloseThemeData($hTheme)
    If Hex($iColor, 6) <> "FFFFFF" Then Return SetError(0, $iColor, True) ; 0x262626 is official Edit brush color in DarkMode_DarkTheme
    Return SetError(0, $iColor, False)
EndFunc   ;==>_isModernTheme

; Function for getting HWND from PID
Func _GetHwndFromPID($PID)
    $hWnd = 0
    $winlist = WinList()
    Do
        For $i = 1 To $winlist[0][0]
            If $winlist[$i][0] <> "" Then
                $iPID2 = WinGetProcess($winlist[$i][1])
                If $iPID2 = $PID Then
                    $hWnd = $winlist[$i][1]
                    ExitLoop
                EndIf
            EndIf
        Next
    Until $hWnd <> 0
    Return $hWnd
EndFunc   ;==>_GetHwndFromPID

Does OS support DarkMode_DarkTheme? True ( 0x262626 )

for testing this is better because, if false, we'll see why.

Edited 3 hours ago by argumentum

[WildByDesign]

44 minutes ago, argumentum said:

for testing this is better because, if false, we'll see why.

I really like all of the changes that you've made and I will include all of them. It also reminds mind that I really need to learn how to use SetError function and start using it in any functions that I create. I've had that on my list of things to go back and try for a while.

I'm curious about getting rid of the _GetHwndFromPID function because it could potentially (very minimally) cause slower init of GUIDarkTheme UDF and therefore a users' GUI who is using it. I'm thinking of a few (hopefully more efficient) ideas and would like your opinion.

1. Use temporary GUICreate and GUIDelete after theme data is closed.

Func _isModernTheme()
    If Not _WinAPI_IsThemeActive() Then Return SetError(0, 1, False)
    Local Const $EP_BACKGROUND = 3
    Local Const $EBS_NORMAL = 1

    Local $hWnd = GUICreate("GUIDarkTheme") ; ADDED - temporary GUI creation

;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_Explorer::Edit") ; 0x212121
;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_CFD::Edit") ; 0x383838
    Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_DarkTheme::Edit") ; 0x262626
    If @error Then Return SetError(0, 2, False)
    Local $iColor = _WinAPI_GetThemeColor($hTheme, $EP_BACKGROUND, $EBS_NORMAL, $TMT_FILLCOLOR)
    If @error Then Return SetError(0, 3, False)
    _WinAPI_CloseThemeData($hTheme)

    GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed

    If Hex($iColor, 6) <> "FFFFFF" Then Return SetError(0, $iColor, True) ; 0x262626 is official Edit brush color in DarkMode_DarkTheme
    Return SetError(0, $iColor, False)
EndFunc   ;==>_isModernTheme

 

2. Use AutoItWinSetTitle to set a unique name for the hidden AutoIt window which that unique window name can easily be used to get a handle with WinGetHandle.

AutoItWinSetTitle("GUIDarkTheme")
Local $hWnd = WinGetHandle("GUIDarkTheme")

ConsoleWrite("Does OS support DarkMode_DarkTheme?" & @TAB & _isModernTheme($hWnd) & @CRLF)

 

Edited 2 hours ago by WildByDesign

[WildByDesign]

We can also keep it all within the function:

Func _isModernTheme()
    Local $sTitle = AutoItWinGetTitle()         ; get original AutoIt hidden window title
    AutoItWinSetTitle("GUIDarkTheme")           ; set temporary title
    Local $hWnd = WinGetHandle("GUIDarkTheme")  ; get handle for hidden AutoIt window
    AutoItWinSetTitle($sTitle)                  ; restore original title
; ...
EndFunc

 

[xuankhanh1982]

@Nine

Thanks

[argumentum]

"The Dragon Ball Z Kai and the Z order"
When you run your script the last window created is yours so all the AutoItWinGetTitle() is not that important because of the Z order.
If I wanted to make mine unique I'd code: AutoItWinSetTitle("PID:" & @AutoItPID) 

> Use temporary GUICreate and GUIDelete after theme data is closed.
That can be done too. But if you're looking for speed, test both and see what's your preference in regards to this function.
I would not care much for 20 ms. more or less... as long as we don't have a bunch of 20 ms. more and more
..play with it, see what you prefer  

Func _isModernTheme()
    If Not _WinAPI_IsThemeActive() Then Return SetError(0, 1, False)
    Local Const $EP_BACKGROUND = 3
    Local Const $EBS_NORMAL = 1

    Local $hWnd = GUICreate("GUIDarkTheme") ; ADDED - temporary GUI creation

;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_Explorer::Edit") ; 0x212121
;~     Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_CFD::Edit") ; 0x383838
    Local $hTheme = _WinAPI_OpenThemeData($hWnd, "DarkMode_DarkTheme::Edit") ; 0x262626
    If @error Then 
        GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed <<<<
        Return SetError(0, 2, False)
    Local $iColor = _WinAPI_GetThemeColor($hTheme, $EP_BACKGROUND, $EBS_NORMAL, $TMT_FILLCOLOR)
    If @error Then 
        GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed <<<<
        Return SetError(0, 3, False)
    EndIf
    _WinAPI_CloseThemeData($hTheme)

    GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed

    If Hex($iColor, 6) <> "FFFFFF" Then Return SetError(0, $iColor, True) ; 0x262626 is official Edit brush color in DarkMode_DarkTheme
    Return SetError(0, $iColor, False)
EndFunc   ;==>_isModernTheme

 

Edited 48 minutes ago by argumentum
edit the code a bit

[argumentum]

expandcollapse popup

#include <APIThemeConstants.au3>                             ; added:05/10/26 18:22:06
#include <WinAPITheme.au3>

Local $hTimer = TimerInit()
ConsoleWrite('+ _CanDarkMode type: ' & _CanDarkMode() & ' ( 2="DarkMode_DarkTheme", 1="DarkMode_Explorer", 0=None ) ' & TimerDiff($hTimer) & ' ms. to gather' & @CRLF)

Func _CanDarkMode()
    If Not _WinAPI_IsThemeActive() Then Return SetError(0, 1, False)
    Local $hWnd = GUICreate("GUIDarkTheme") ; ADDED - temporary GUI creation
    Local $iColor = __WinAPI_Simple_GetThemeColor("DarkMode_DarkTheme::Edit", $hWnd)
    If Not @error And Hex($iColor, 6) <> "FFFFFF" Then
        GUIDelete($hWnd)
        Return 2 ; newer, a next new type in the future would be returning 3 and not braking the prior code
    EndIf
    Local $iColor = __WinAPI_Simple_GetThemeColor("DarkMode_Explorer::Edit", $hWnd)
    If Not @error And Hex($iColor, 6) <> "FFFFFF" Then
        GUIDelete($hWnd)
        Return 1 ; oldest
    EndIf
    GUIDelete($hWnd)
    Return 0
EndFunc   ;==>_CanDarkMode

Func __WinAPI_Simple_GetThemeColor($sClass, $hWnd = Default)
    Local Const $EP_BACKGROUND = 3
    Local Const $EBS_NORMAL = 1
    Local $hWndWas = $hWnd
    If IsKeyword($hWnd) Then $hWnd = GUICreate("Simple_GetThemeColor")
    Local $hTheme = _WinAPI_OpenThemeData($hWnd, $sClass)
    If @error Then
        If IsKeyword($hWndWas) Then GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed
        Return SetError(1, 0, False)
    EndIf
    Local $iColor = _WinAPI_GetThemeColor($hTheme, $EP_BACKGROUND, $EBS_NORMAL, $TMT_FILLCOLOR)
    If @error Then
        If IsKeyword($hWndWas) Then GUIDelete($hWnd)    ; ADDED - GUI delete resources after theme data has been closed
        Return SetError(2, 0, False)
    EndIf
    _WinAPI_CloseThemeData($hTheme)
    Return $iColor
EndFunc   ;==>__WinAPI_Simple_GetThemeColor

+ _CanDarkMode type: 2 ( 2="DarkMode_DarkTheme", 1="DarkMode_Explorer", 0=None ) 5.4549 ms. to gather ; 25H2
+ _CanDarkMode type: 1 ( 2="DarkMode_DarkTheme", 1="DarkMode_Explorer", 0=None ) 4.4149 ms. to gather ; 24H2

..how do you like this take of the function ?