ADD: Native dark mode support (Windows >= 10)

build.bat

@@ -30,15 +30,16 @@ if "%1"=="doublecmd" ( call :doublecmd
 ) else (
 if "%1"=="release" ( call :release
 ) else (
+if "%1"=="darkwin" ( call :darkwin
+) else (
 if "%1"=="debug" ( call :debug
 ) else (
 if "%1"=="" ( call :release
 ) else (
   echo ERROR: Mode not defined: %1
-  echo Available modes: components, plugins, doublecmd, release, debug
-)))))))
+  echo Available modes: components, plugins, doublecmd, release, darkwin, debug
+))))))))
 
-pause
 GOTO:EOF
 
 :components
@@ -69,6 +70,21 @@ GOTO:EOF
   call :replace_old
   lazbuild src\doublecmd.lpi --bm=release %DC_ARCH%
 
+  call :extract
+GOTO:EOF
+
+:darkwin
+  call :components
+  call :plugins
+
+  rem Build Double Commander
+  call :replace_old
+  lazbuild src\doublecmd.lpi --bm=darkwin %DC_ARCH%
+
+  call :extract
+GOTO:EOF
+
+:extract
   rem Build Dwarf LineInfo Extractor
   lazbuild tools\extractdwrflnfo.lpi
 

src/doublecmd.lpi

@@ -29,7 +29,7 @@
       <Attributes pvaPreRelease="True"/>
       <StringTable FileDescription="Double Commander is a cross platform open source file manager with two panels side by side" InternalName="DOUBLECMD" LegalCopyright="Copyright (C) 2006-2021 Alexander Koblov" ProductName="Double Commander"/>
     </VersionInfo>
-    <BuildModes Count="4">
+    <BuildModes Count="5">
       <Item1 Name="Debug" Default="True"/>
       <Item2 Name="Debug + HeapTrc">
         <CompilerOptions>
@@ -187,6 +187,60 @@ end;"/>
           </Other>
         </CompilerOptions>
       </Item4>
+      <Item5 Name="DarkWin">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\doublecmd"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(LazarusDir)\ide;$(ProjOutDir);..\sdk;..\units"/>
+            <OtherUnitFiles Value="platform;platform\$(SrcOS);platform\$(SrcOS)\$(TargetOS);..\sdk;frames;fileviews;filesources;filesources\filesystem;filesources\multiarchive;filesources\multilist;filesources\searchresult;filesources\tempfilesystem;filesources\vfs;filesources\wcxarchive;filesources\wfxplugin;filesources\winnet;platform\unix\glib;platform\unix\mime;filesources\gio;rpc;rpc\sys\$(SrcOS);rpc\sys;filesources\recyclebin;..\components\DDetours\Source"/>
+            <UnitOutputDirectory Value="..\units\$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)"/>
+            <SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType);$(fpcsrcdir)\packages\fcl-base\src"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <RelocatableUnit Value="True"/>
+            <Checks>
+              <IOChecks Value="True"/>
+            </Checks>
+            <Optimizations>
+              <OptimizationLevel Value="2"/>
+              <VariablesInRegisters Value="True"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf2Set"/>
+              <UseLineInfoUnit Value="False"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+            <Options>
+              <PassLinkerOptions Value="True"/>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+          <Other>
+            <Verbosity>
+              <ShowNotes Value="False"/>
+              <ShowHints Value="False"/>
+            </Verbosity>
+            <CustomOptions Value="-dNIGHTLY_BUILD -dDARKWIN"/>
+            <ExecuteBefore>
+              <Command Value="$(ProjPath)\platform\git2revisioninc$(ExeExt).cmd $MakeFile($(ProjOutDir))"/>
+              <CompileReasons Run="False"/>
+            </ExecuteBefore>
+          </Other>
+        </CompilerOptions>
+      </Item5>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>

src/doublecmd.lpr

@@ -37,14 +37,19 @@ uses
   {$ENDIF}
   {$ENDIF}
   DCConvertEncoding,
+  {$IF DEFINED(LCLWIN32) and DEFINED(DARKWIN)}
+  uWin32WidgetSetDark,
+  {$ENDIF}
   Interfaces,
   {$IFDEF LCLGTK2}
   uGtk2FixCursorPos,
   {$ENDIF}
   {$IFDEF LCLWIN32}
   uDClass,
+  {$IF NOT DEFINED(DARKWIN)}
   uWin32WidgetSetFix,
   {$ENDIF}
+  {$ENDIF}
   LCLProc,
   Classes,
   SysUtils,
@@ -139,7 +144,7 @@ begin
   // which is called by Application.Initialize.
   uKeyboard.InitializeKeyboard;
 
-{$IF DEFINED(MSWINDOWS) and DEFINED(LCLQT5)}
+{$IF DEFINED(MSWINDOWS) and (DEFINED(LCLQT5) or DEFINED(DARKWIN))}
   ApplyDarkStyle;
 {$ENDIF}
 
@@ -229,6 +234,8 @@ begin
         frmStartingSplash.Release;
       end;
 
+      frmMain.ShowOnTop;
+
       Application.Run;
 
       if not UniqueInstance.isAnotherDCRunningWhileIamRunning then

src/fFindDlg.pas

@@ -43,7 +43,7 @@ const
 
 type
   { TfrmFindDlg }
-  TfrmFindDlg = class(TAloneForm, IFormCommands)
+  TfrmFindDlg = class(TModalForm, IFormCommands)
     actIntelliFocus: TAction;
     actCancel: TAction;
     actClose: TAction;
@@ -972,9 +972,11 @@ begin
     FFrmAttributesEdit.OnOk := @OnAddAttribute;
   end;
   FFrmAttributesEdit.Reset;
+{$IFNDEF DARKWIN}
   if not (fsModal in FormState) then
     FFrmAttributesEdit.Show
   else
+{$ENDIF}
   begin
     FFrmAttributesEdit.ShowModal;
   end;
@@ -2817,6 +2819,7 @@ end;
 { TfrmFindDlg.cm_Close }
 procedure TfrmFindDlg.cm_Close(const Params: array of string);
 begin
+  Hide;
   Close;
 end;
 

src/fattributesedit.lfm

@@ -5,7 +5,6 @@ object frmAttributesEdit: TfrmAttributesEdit
   Width = 329
   AutoSize = True
   BorderIcons = [biSystemMenu]
-  BorderStyle = bsSizeToolWin
   Caption = 'Choose attributes'
   ClientHeight = 284
   ClientWidth = 329

src/fmain.lfm

@@ -21,7 +21,6 @@ object frmMain: TfrmMain
   ShowHint = True
   ShowInTaskBar = stAlways
   LCLVersion = '1.8.4.0'
-  Visible = True
   object MainToolbar: TKASToolBar
     AnchorSideTop.Control = Owner
     Left = 0

src/platform/uosforms.pas

@@ -333,7 +333,15 @@ begin
         EnableWindow(FParentWindow, False);
         // If window already created then recreate it to force
         // call CreateParams with appropriate parent window
-        if HandleAllocated then RecreateWnd(Self);
+        if HandleAllocated then
+        begin
+{$IF NOT DEFINED(LCLWIN32)}
+          RecreateWnd(Self);
+{$ELSE}
+          SetWindowLongPtr(Handle, GWL_STYLE, GetWindowLongPtr(Handle, GWL_STYLE) or LONG_PTR(WS_POPUP));
+          SetWindowLongPtr(Handle, GWL_HWNDPARENT, FParentWindow);
+{$ENDIF}
+        end;
         Show;
         try
           EnableWindow(Handle, True);

src/platform/win/udclass.pas

@@ -3,7 +3,7 @@
    -------------------------------------------------------------------------
    Setup unique window class name for main form
 
-   Copyright (C) 2016-2019 Alexander Koblov ([email protected])
+   Copyright (C) 2016-2022 Alexander Koblov ([email protected])
 
    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
@@ -32,6 +32,7 @@ uses
   Classes, SysUtils, Win32Int, WSLCLClasses, Forms, Windows, Win32Proc,
   Controls, LCLType, fMain, Win32WSControls, uImport;
 
+{$IF NOT DEFINED(DARKWIN)}
 const
   ClassNameW: PWideChar = 'TTOTAL_CMD'; // for compatibility with plugins
 
@@ -53,11 +54,14 @@ begin
   end;
   Result := Windows.RegisterClassW(@WindowClassW) <> 0;
 end;
+{$ENDIF}
 
 var
   __GetProp: function(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
   __SetProp: function(hWnd: HWND; lpString: LPCSTR; hData: HANDLE): WINBOOL; stdcall;
+{$IF NOT DEFINED(DARKWIN)}
   __CreateWindowExW: function(dwExStyle: DWORD; lpClassName: LPCWSTR; lpWindowName: LPCWSTR; dwStyle: DWORD; X: longint; Y: longint; nWidth: longint; nHeight: longint; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: LPVOID): HWND; stdcall;
+{$ENDIF}
 
 function _GetProp(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
 var
@@ -79,6 +83,7 @@ begin
     Result:= __SetProp(hWnd, lpString, hData);
 end;
 
+{$IF NOT DEFINED(DARKWIN)}
 function _CreateWindowExW(dwExStyle: DWORD; lpClassName: LPCWSTR; lpWindowName: LPCWSTR; dwStyle: DWORD; X: longint; Y: longint; nWidth: longint; nHeight: longint; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: LPVOID): HWND; stdcall;
 var
   AParams: PNCCreateParams absolute lpParam;
@@ -86,24 +91,26 @@ begin
   if (hWndParent = 0) and Assigned(AParams) and (AParams^.WinControl is TfrmMain) then lpClassName:= ClassNameW;
   Result:= __CreateWindowExW(dwExStyle, lpClassName, lpWindowName, dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam);
 end;
+{$ENDIF}
 
 procedure Initialize;
 var
   hModule: THandle;
   pLibrary, pFunction: PPointer;
 begin
-  WinRegister;
-
   pLibrary:= FindImportLibrary(MainInstance, user32);
   if Assigned(pLibrary) then
   begin
     hModule:= GetModuleHandle(user32);
 
+{$IF NOT DEFINED(DARKWIN)}
     pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'CreateWindowExW'));
     if Assigned(pFunction) then
     begin
+      WinRegister;
       Pointer(__CreateWindowExW):= ReplaceImportFunction(pFunction, @_CreateWindowExW);
     end;
+{$ENDIF}
 
     // Prevent plugins written in Lazarus from crashing by changing the name for
     // GetProp/SetProp to store control data from 'WinControl' to 'WinControlDC'
@@ -127,8 +134,10 @@ end;
 initialization
   Initialize;
 
+{$IF NOT DEFINED(DARKWIN)}
 finalization
   Windows.UnregisterClassW(PWideChar(ClassNameW), System.HInstance);
+{$ENDIF}
 
 end.
 

src/platform/win/uimport.pas

@@ -11,6 +11,10 @@ function FindImportLibrary(hModule: THandle; pLibName: PAnsiChar): PPointer;
 function FindImportFunction(pLibrary: PPointer; pFunction: Pointer): PPointer;
 function ReplaceImportFunction(pOldFunction: PPointer; pNewFunction: Pointer): Pointer;
 
+function FindDelayImportLibrary(hModule: THandle; pLibName: PAnsiChar): Pointer;
+function FindDelayImportFunction(hModule: THandle; pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR; pFuncName: PAnsiChar): PPointer;
+procedure ReplaceDelayImportFunction(hModule: THandle; pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR; pFuncName: PAnsiChar; pNewFunction: Pointer);
+
 implementation
 
 type
@@ -85,5 +89,62 @@ begin
   end;
 end;
 
+function FindDelayImportLibrary(hModule: THandle; pLibName: PAnsiChar): Pointer;
+var
+  pEnd: PByte;
+  pImpDir: PIMAGE_DATA_DIRECTORY;
+  pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR;
+  pModule: PAnsiChar absolute hModule;
+begin
+  pImpDesc := FindImageDirectory(hModule, IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT, pImpDir);
+  if pImpDesc = nil then Exit(nil);
+
+  pEnd := PByte(pImpDesc) + pImpDir^.Size;
+
+  while (PByte(pImpDesc) < pEnd) and (pImpDesc^.DllNameRVA > 0) do
+  begin
+    if StrIComp(@pModule[pImpDesc^.DllNameRVA], pLibName) = 0 then
+      Exit(pImpDesc);
+
+    Inc(pImpDesc);
+  end;
+  Result := nil;
+end;
+
+function FindDelayImportFunction(hModule: THandle;
+  pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR; pFuncName: PAnsiChar): PPointer;
+var
+  pImpName: PIMAGE_IMPORT_BY_NAME;
+  pImgThunkName: PIMAGE_THUNK_DATA;
+  pImgThunkAddr: PIMAGE_THUNK_DATA;
+  pModule: PAnsiChar absolute hModule;
+begin
+  pImgThunkName:= @pModule[pImpDesc^.ImportNameTableRVA];
+  pImgThunkAddr:= @pModule[pImpDesc^.ImportAddressTableRVA];
+
+  while (pImgThunkName^.u1.Ordinal <> 0) do
+  begin
+    if not (IMAGE_SNAP_BY_ORDINAL(pImgThunkName^.u1.Ordinal)) then
+    begin
+      pImpName:= @pModule[pImgThunkName^.u1.AddressOfData];
+      if (StrIComp(pImpName^.Name, pFuncName) = 0) then
+        Exit(PPointer(@pImgThunkAddr^.u1._Function));
+    end;
+    Inc(pImgThunkName);
+    Inc(pImgThunkAddr);
+  end;
+  Result:= nil;
+end;
+
+procedure ReplaceDelayImportFunction(hModule: THandle;
+  pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR; pFuncName: PAnsiChar;
+  pNewFunction: Pointer);
+var
+  pOldFunction: PPointer;
+begin
+  pOldFunction:= FindDelayImportFunction(hModule, pImpDesc, pFuncName);
+  if Assigned(pOldFunction) then ReplaceImportFunction(pOldFunction, pNewFunction);
+end;
+
 end.
 

src/platform/win/uwin32widgetsetdark.pas

@@ -0,0 +1,2026 @@
+{
+  Double Commander
+  -------------------------------------------------------------------------
+  Windows dark style widgetset implementation
+
+  Copyright (C) 2021-2022 Alexander Koblov ([email protected])
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this program. If not, see <http://www.gnu.org/licenses/>.
+}
+
+unit uWin32WidgetSetDark;
+
+{$mode objfpc}{$H+}
+{$modeswitch advancedrecords}
+
+interface
+
+uses
+  LCLVersion;
+
+procedure ApplyDarkStyle;
+
+implementation
+
+uses
+  Classes, SysUtils, Win32Int, WSLCLClasses, Forms, Windows, Win32Proc, Menus,
+  Controls, LCLType, Win32WSComCtrls, ComCtrls, LMessages, Win32WSStdCtrls,
+  WSStdCtrls, Win32WSControls, StdCtrls, WSControls, Graphics, Themes, LazUTF8,
+  UxTheme, Win32Themes, ExtCtrls, WSMenus, JwaWinGDI, FPImage, Math, uDarkStyle,
+  WSComCtrls, CommCtrl, uImport, WSForms, Win32WSButtons, Buttons, Win32Extra,
+  Win32WSForms, Win32WSSpin, Spin, Win32WSMenus,
+  Generics.Collections, TmSchema;
+
+type
+  TWinControlDark = class(TWinControl);
+  TCustomGroupBoxDark = class(TCustomGroupBox);
+
+type
+
+    { TWin32WSWinControlDark }
+
+    TWin32WSWinControlDark = class(TWin32WSWinControl)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSStatusBarDark }
+
+    TWin32WSStatusBarDark = class(TWin32WSStatusBar)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSCustomComboBoxDark }
+
+    TWin32WSCustomComboBoxDark = class(TWin32WSCustomComboBox)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSCustomMemoDark }
+
+    TWin32WSCustomMemoDark = class(TWin32WSCustomMemo)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSCustomListBoxDark }
+
+    TWin32WSCustomListBoxDark = class(TWin32WSCustomListBox)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSScrollBoxDark }
+
+    TWin32WSScrollBoxDark = class(TWin32WSScrollBox)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSCustomFormDark }
+
+    TWin32WSCustomFormDark = class(TWin32WSCustomForm)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+    end;
+
+    { TWin32WSTrackBarDark }
+
+    TWin32WSTrackBarDark = class(TWin32WSTrackBar)
+    published
+      class function CreateHandle(const AWinControl: TWinControl;
+            const AParams: TCreateParams): HWND; override;
+      class procedure DefaultWndHandler(const AWinControl: TWinControl;
+         var AMessage); override;
+    end;
+
+    { TWin32WSPopupMenuDark }
+
+    TWin32WSPopupMenuDark = class(TWin32WSPopupMenu)
+    published
+      class procedure Popup(const APopupMenu: TPopupMenu; const X, Y: integer); override;
+    end;
+
+const
+  ID_SUB_SCROLLBOX   = 1;
+  ID_SUB_LISTBOX     = 2;
+  ID_SUB_COMBOBOX    = 3;
+  ID_SUB_STATUSBAR   = 4;
+  ID_SUB_TRACKBAR    = 5;
+
+const
+  themelib = 'uxtheme.dll';
+
+const
+  VSCLASS_DARK_EDIT      = 'CFD::Edit';
+  VSCLASS_DARK_TAB       = 'BrowserTab::Tab';
+  VSCLASS_DARK_BUTTON    = 'Explorer::Button';
+  VSCLASS_DARK_COMBOBOX  = 'CFD::Combobox';
+  VSCLASS_DARK_SCROLLBAR = 'Explorer::ScrollBar';
+  VSCLASS_PROGRESS_INDER = 'Indeterminate::Progress';
+
+const
+  MDL_RADIO_FILLED     = #$EE#$A8#$BB; // $EA3B
+  MDL_RADIO_CHECKED    = #$EE#$A4#$95; // $E915
+  MDL_RADIO_OUTLINE    = #$EE#$A8#$BA; // $EA3A
+
+  MDL_CHECKBOX_FILLED  = #$EE#$9C#$BB; // $E73B
+  MDL_CHECKBOX_CHECKED = #$EE#$9C#$BE; // $E73E
+  MDL_CHECKBOX_GRAYED  = #$EE#$9C#$BC; // $E73C
+  MDL_CHECKBOX_OUTLINE = #$EE#$9C#$B9; // $E739
+
+  MDL_COMBOBOX_BUTTON  = #$EE#$A5#$AE; // $E96E
+
+type
+  TThemeClassMap = specialize TDictionary<HTHEME, String>;
+
+var
+  Theme: TThemeData;
+  ThemeClass: TThemeClassMap;
+  OldUpDownWndProc: Windows.WNDPROC;
+  CustomFormWndProc: Windows.WNDPROC;
+  SysColor: array[0..COLOR_ENDCOLORS] of TColor;
+  SysColorBrush: array[0..COLOR_ENDCOLORS] of HBRUSH;
+
+procedure EnableDarkStyle(Window: HWND);
+begin
+  AllowDarkModeForWindow(Window, True);
+  SetWindowTheme(Window, 'Explorer', nil);
+  SendMessageW(Window, WM_THEMECHANGED, 0, 0);
+end;
+
+procedure RGBToHSV(R, G, B: Integer; out H, S, V: Double);
+var
+  rr, gg, bb: Double;
+  cmax, cmin, delta: Double;
+begin
+  rr := R / 255;
+  gg := G / 255;
+  bb := B / 255;
+  cmax := MaxValue([rr, gg, bb]);
+  cmin := MinValue([rr, gg, bb]);
+  delta := cmax - cmin;
+  if delta = 0 then
+  begin
+    H := 0;
+    S := 0;
+  end else
+  begin
+    if cmax = rr then
+      H := (gg - bb) / delta + IfThen(gg < bb, 6, 0)
+    else if cmax = gg then
+      H := (bb - rr) / delta + 2
+    else if (cmax = bb) then
+      H := (rr -gg) / delta + 4;
+    H := H / 6;
+    S := delta / cmax;
+  end;
+  V := cmax;
+end;
+
+procedure ColorToHSV(C: TColor; out H, S, V: Double);
+begin
+  RGBToHSV(GetRValue(C), GetGValue(C), GetBValue(C), H, S, V);
+end;
+
+procedure HSVtoRGB(H, S, V: Double; out R, G, B: Integer);
+var
+  i: Integer;
+  f: Double;
+  p, q, t: Double;
+
+  procedure MakeRgb(rr, gg, bb: Double);
+  begin
+    R := Min(MAXBYTE, Round(rr * 255));
+    G := Min(MAXBYTE, Round(gg * 255));
+    B := Min(MAXBYTE, Round(bb * 255));
+  end;
+
+begin
+  i := floor(H * 6);
+  f := H * 6 - i;
+  p := V * (1 - S);
+  q := V * (1 - f*S);
+  t := V * (1 - (1 - f) * S);
+  case i mod 6 of
+    0: MakeRGB(V, t, p);
+    1: MakeRGB(q, V, p);
+    2: MakeRGB(p, V, t);
+    3: MakeRGB(p, q, V);
+    4: MakeRGB(t, p, V);
+    5: MakeRGB(V, p, q);
+    else MakeRGB(0, 0, 0);
+  end;
+end;
+
+function HSVToColor(H, S, V: Double): TColor;
+var
+  R, G, B: Integer;
+begin
+  HSVtoRGB(H, S, V, R, G, B);
+  Result:= RGBToColor(R, G, B);
+end;
+
+function Darker(Color: TColor; Factor: Integer): TColor; forward;
+
+function Lighter(Color: TColor; Factor: Integer): TColor;
+var
+  H, S, V: Double;
+begin
+  // Invalid factor
+  if (Factor <= 0) then
+    Exit(Color);
+  // Makes color darker
+  if (Factor < 100) then begin
+    Exit(darker(Color, 10000 div Factor));
+  end;
+
+  ColorToHSV(Color, H, S, V);
+
+  V:= (Factor * V) / 100;
+  if (V > High(Word)) then
+  begin
+    // Overflow, adjust saturation
+    S -= V - High(Word);
+    if (S < 0) then
+      S := 0;
+    V:= High(Word);
+  end;
+
+  Result:= HSVToColor(H, S, V);
+end;
+
+function Darker(Color: TColor; Factor: Integer): TColor;
+var
+  H, S, V: Double;
+begin
+  // Invalid factor
+  if (Factor <= 0) then
+    Exit(Color);
+  // Makes color lighter
+  if (Factor < 100) then
+    Exit(lighter(Color, 10000 div Factor));
+
+  ColorToHSV(Color, H, S, V);
+  V := (V * 100) / Factor;
+
+  Result:= HSVToColor(H, S, V);
+end;
+
+{
+  Fill rectangle gradient
+}
+function FillGradient(hDC: HDC; Start, Finish: TColor; ARect: TRect; dwMode: ULONG): Boolean;
+var
+  cc: TFPColor;
+  gRect: GRADIENT_RECT;
+  vert: array[0..1] of TRIVERTEX;
+begin
+  cc:= TColorToFPColor(Start);
+
+  vert[0].x      := ARect.Left;
+  vert[0].y      := ARect.Top;
+  vert[0].Red    := cc.red;
+  vert[0].Green  := cc.green;
+  vert[0].Blue   := cc.blue;
+  vert[0].Alpha  := cc.alpha;
+
+  cc:= TColorToFPColor(ColorToRGB(Finish));
+
+  vert[1].x      := ARect.Right;
+  vert[1].y      := ARect.Bottom;
+  vert[1].Red    := cc.red;
+  vert[1].Green  := cc.green;
+  vert[1].Blue   := cc.blue;
+  vert[1].Alpha  := cc.alpha;
+
+  gRect.UpperLeft  := 0;
+  gRect.LowerRight := 1;
+  Result:= JwaWinGDI.GradientFill(hDC, vert, 2, @gRect, 1, dwMode);
+end;
+
+function GetNonClientMenuBorderRect(Window: HWND): TRect;
+var
+  R, W: TRect;
+begin
+  GetClientRect(Window, @R);
+  // Map to screen coordinate space
+  MapWindowPoints(Window, 0, @R, 2);
+  GetWindowRect(Window, @W);
+  OffsetRect(R, -W.Left, -W.Top);
+  Result:= Classes.Rect(R.Left, R.Top - 1, R.Right, R.Top);
+end;
+
+{
+  Set menu background color
+}
+procedure SetMenuBackground(Menu: HMENU);
+var
+  MenuInfo: TMenuInfo;
+begin
+  MenuInfo:= Default(TMenuInfo);
+  MenuInfo.cbSize:= SizeOf(MenuInfo);
+  MenuInfo.fMask:= MIM_BACKGROUND or MIM_APPLYTOSUBMENUS;
+  MenuInfo.hbrBack:= CreateSolidBrush(RGBToColor(45, 45, 45));
+  SetMenuInfo(Menu, @MenuInfo);
+end;
+
+{ TWin32WSUpDownControlDark }
+
+procedure DrawUpDownArrow(Window: HWND; Canvas: TCanvas; ARect: TRect; AType: TUDAlignButton);
+var
+  j: integer;
+  ax, ay, ah, aw: integer;
+
+  procedure Calculate(var a, b: Integer);
+  var
+    tmp: Double;
+  begin
+    tmp:= Double(a + 1) / 2;
+    if (tmp > b) then
+    begin
+      a:= 2 * b - 1;
+      b:= (a + 1) div 2;
+    end
+    else begin
+      b:= Round(tmp);
+      a:= 2 * b - 1;
+    end;
+    b:= Max(b, 3);
+    a:= Max(a, 5);
+  end;
+
+begin
+  aw:= ARect.Width div 2;
+  ah:= ARect.Height div 2;
+
+  if IsWindowEnabled(Window) then
+    Canvas.Pen.Color:= clBtnText
+  else begin
+    Canvas.Pen.Color:= clGrayText;
+  end;
+  if (AType in [udLeft, udRight]) then
+    Calculate(ah, aw)
+  else begin
+    Calculate(aw, ah);
+  end;
+  ax:= ARect.Left + (ARect.Width - aw) div 2;
+  ay:= ARect.Top + (ARect.Height - ah) div 2;
+
+  case AType of
+    udLeft:
+      begin
+        for j:= 0 to ah div 2 do
+        begin
+          Canvas.MoveTo(ax + aw - j - 2, ay + j);
+          Canvas.LineTo(ax + aw - j - 2, ay + ah - j - 1);
+        end;
+      end;
+    udRight:
+      begin
+        for j:= 0 to ah div 2 do
+        begin
+          Canvas.MoveTo(ax + j, ay + j);
+          Canvas.LineTo(ax + j, ay + ah - j - 1);
+        end;
+      end;
+    udTop:
+      begin
+        for j:= 0 to aw div 2 do
+        begin
+          Canvas.MoveTo(ax + j, ay + ah - j - 1);
+          Canvas.LineTo(ax + aw - j, ay + ah - j - 1);
+        end;
+      end;
+    udBottom:
+    begin
+      for j:= 0 to aw div 2 do
+      begin
+        Canvas.MoveTo(ax + j, ay + j);
+        Canvas.LineTo(ax + aw - j, ay + j);
+      end;
+    end;
+  end;
+end;
+
+function UpDownWndProc(Window: HWND; Msg: UINT; wParam: Windows.WPARAM; lParam: Windows.LPARAM): LRESULT; stdcall;
+var
+  DC: HDC;
+  L, R: TRect;
+  rcDst: TRect;
+  ARect: TRect;
+  PS: PAINTSTRUCT;
+  LCanvas : TCanvas;
+  LButton, RButton: TUDAlignButton;
+begin
+  case Msg of
+    WM_PAINT:
+    begin
+      DC := BeginPaint(Window, @ps);
+      LCanvas := TCanvas.Create;
+      try
+        LCanvas.Handle:= DC;
+
+        GetClientRect(Window, @ARect);
+
+        LCanvas.Brush.Color:= SysColor[COLOR_BTNFACE];
+        LCanvas.FillRect(ps.rcPaint);
+
+        L:= ARect;
+        R:= ARect;
+
+        if (GetWindowLongPtr(Window, GWL_STYLE) and UDS_HORZ <> 0) then
+        begin
+          LButton:= udLeft;
+          RButton:= udRight;
+          R.Left:= R.Width div 2;
+          L.Right:= L.Right - L.Width div 2;
+        end
+        else begin
+          LButton:= udTop;
+          RButton:= udBottom;
+          R.Top:= R.Height div 2;
+          L.Bottom:= L.Bottom - L.Height div 2;
+        end;
+
+        if (IntersectRect(rcDst, L, PS.rcPaint)) then
+        begin
+          LCanvas.Pen.Color:= RGBToColor(38, 38, 38);
+          LCanvas.RoundRect(L, 4, 4);
+          InflateRect(L, -1, -1);
+          LCanvas.Pen.Color:= RGBToColor(92, 92, 92);
+          LCanvas.RoundRect(L, 4, 4);
+          DrawUpDownArrow(Window, LCanvas, L, LButton);
+        end;
+
+        if (IntersectRect(rcDst, R, PS.rcPaint)) then
+        begin
+          LCanvas.Pen.Color:= RGBToColor(38, 38, 38);
+          LCanvas.RoundRect(R, 4, 4);
+          InflateRect(R, -1, -1);
+          LCanvas.Pen.Color:= RGBToColor(92, 92, 92);
+          LCanvas.RoundRect(R, 4, 4);
+          DrawUpDownArrow(Window, LCanvas, R, RButton);
+        end;
+      finally
+        LCanvas.Handle:= 0;
+        LCanvas.Free;
+      end;
+      EndPaint(Window, @ps);
+      Result:= 0;
+    end;
+  WM_ERASEBKGND:
+    begin
+      Exit(1);
+    end;
+    else begin
+      Result:= CallWindowProc(OldUpDownWndProc, Window, Msg, WParam, LParam);
+    end;
+  end;
+end;
+
+{ TWin32WSTrackBarDark }
+
+function TrackBarWindowProc(Window: HWND; Msg: UINT; wParam: Windows.WPARAM; lParam: Windows.LPARAM; uISubClass: UINT_PTR; dwRefData: DWORD_PTR): LRESULT; stdcall;
+begin
+  if Msg = WM_ERASEBKGND then
+    Result := 1
+  else
+    Result := DefSubclassProc(Window, Msg, WParam, LParam);
+end;
+
+class function TWin32WSTrackBarDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+begin
+  AWinControl.Color:= SysColor[COLOR_BTNFACE];
+  Result:= inherited CreateHandle(AWinControl, AParams);
+  SetWindowSubclass(Result, @TrackBarWindowProc, ID_SUB_TRACKBAR, 0);
+end;
+
+class procedure TWin32WSTrackBarDark.DefaultWndHandler(
+  const AWinControl: TWinControl; var AMessage);
+var
+  NMHdr: PNMHDR;
+  NMCustomDraw: PNMCustomDraw;
+begin
+  with TLMessage(AMessage) do
+    case Msg of
+      CN_NOTIFY:
+        begin
+          NMHdr := PNMHDR(LParam);
+          if NMHdr^.code = NM_CUSTOMDRAW then
+          begin
+            NMCustomDraw:= PNMCustomDraw(LParam);
+            case NMCustomDraw^.dwDrawStage of
+              CDDS_PREPAINT:
+              begin
+                Result := CDRF_NOTIFYITEMDRAW;
+              end;
+              CDDS_ITEMPREPAINT:
+              begin
+                case NMCustomDraw^.dwItemSpec of
+                  TBCD_CHANNEL:
+                    begin
+                      Result:= CDRF_SKIPDEFAULT;
+                      SelectObject(NMCustomDraw^.hdc, GetStockObject(DC_PEN));
+                      SetDCPenColor(NMCustomDraw^.hdc, SysColor[COLOR_BTNSHADOW]);
+                      SelectObject(NMCustomDraw^.hdc, GetStockObject(DC_BRUSH));
+                      SetDCBrushColor(NMCustomDraw^.hdc, SysColor[COLOR_BTNFACE]);
+                      with NMCustomDraw^.rc do
+                        RoundRect(NMCustomDraw^.hdc, Left, Top, Right, Bottom, 6, 6);
+                    end;
+                  else begin
+                    Result:= CDRF_DODEFAULT;
+                  end;
+                end;
+              end;
+            end;
+          end;
+        end
+      else
+        inherited DefaultWndHandler(AWinControl, AMessage);
+    end;
+end;
+
+{ TWin32WSScrollBoxDark }
+
+function ScrollBoxWindowProc(Window: HWND; Msg: UINT; wParam: Windows.WPARAM; lParam: Windows.LPARAM; uISubClass: UINT_PTR; dwRefData: DWORD_PTR): LRESULT; stdcall;
+var
+  DC: HDC;
+  AColor: TColor;
+  PS: TPaintStruct;
+begin
+  if Msg = WM_PAINT then
+  begin
+    DC:= BeginPaint(Window, @ps);
+    if (GetPropW(Window, 'BorderStyle') = 0) then
+      Windows.FillRect(DC, ps.rcPaint, GetSysColorBrush(COLOR_BTNFACE))
+    else begin
+      GetClientRect(Window, @ps.rcPaint);
+      SelectObject(DC, GetStockObject(DC_PEN));
+      SelectObject(DC, GetStockObject(DC_BRUSH));
+      AColor:= SysColor[COLOR_BTNFACE];
+      SetDCBrushColor(DC, AColor);
+      SetDCPenColor(DC, Darker(AColor, 128));
+      Rectangle(DC, ps.rcPaint.Left, ps.rcPaint.Top, ps.rcPaint.Right, ps.rcPaint.Bottom);
+    end;
+    EndPaint(Window, @ps);
+    Exit(0);
+  end;
+  Result:= DefSubclassProc(Window, Msg, WParam, LParam);
+end;
+
+class function TWin32WSScrollBoxDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  S: HANDLE;
+  P: TCreateParams;
+begin
+  P:= AParams;
+  S:= Ord(TScrollBox(AWinControl).BorderStyle);
+  TScrollBox(AWinControl).BorderStyle:= bsNone;
+  P.ExStyle:= p.ExStyle and not WS_EX_CLIENTEDGE;
+  Result:= inherited CreateHandle(AWinControl, P);
+  SetWindowSubclass(Result, @ScrollBoxWindowProc, ID_SUB_SCROLLBOX, 0);
+  SetPropW(Result, 'BorderStyle', S);
+  EnableDarkStyle(Result);
+end;
+
+{ TWin32WSPopupMenuDark }
+
+class procedure TWin32WSPopupMenuDark.Popup(const APopupMenu: TPopupMenu;
+  const X, Y: integer);
+begin
+  SetMenuBackground(APopupMenu.Handle);
+
+  inherited Popup(APopupMenu, X, Y);
+end;
+
+{ TWin32WSWinControlDark }
+
+class function TWin32WSWinControlDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  P: TCreateParams;
+begin
+  P:= AParams;
+  if (AWinControl is TCustomTreeView) then
+  begin
+    AWinControl.Color:= SysColor[COLOR_WINDOW];
+  end;
+  P.ExStyle:= p.ExStyle and not WS_EX_CLIENTEDGE;
+  TWinControlDark(AWinControl).BorderStyle:= bsNone;
+  Result:= inherited CreateHandle(AWinControl, P);
+  EnableDarkStyle(Result);
+end;
+
+{ TWin32WSCustomFormDark }
+
+function FormWndProc2(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
+    LParam: Windows.LParam): LResult; stdcall;
+var
+  DC: HDC;
+  R: TRect;
+begin
+  case Msg of
+    WM_NCACTIVATE,
+    WM_NCPAINT:
+    begin
+      Result:= CallWindowProc(CustomFormWndProc, Window, Msg, wParam, lParam);
+
+      DC:= GetWindowDC(Window);
+      R:= GetNonclientMenuBorderRect(Window);
+      FillRect(DC, R, GetSysColorBrush(COLOR_WINDOW));
+      ReleaseDC(Window, DC);
+    end;
+    WM_SHOWWINDOW:
+    begin
+      AllowDarkModeForWindow(Window, True);
+      RefreshTitleBarThemeColor(Window);
+    end
+    else begin
+      Result:= CallWindowProc(CustomFormWndProc, Window, Msg, wParam, lParam);
+    end;
+  end;
+end;
+
+class function TWin32WSCustomFormDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  Info: PWin32WindowInfo;
+begin
+  AWinControl.DoubleBuffered:= True;
+  AWinControl.Color:= SysColor[COLOR_BTNFACE];
+  AWinControl.Brush.Color:= SysColor[COLOR_BTNFACE];
+
+  Result:= inherited CreateHandle(AWinControl, AParams);
+
+  Info:= GetWin32WindowInfo(Result);
+
+  Info^.DefWndProc:= @WindowProc;
+
+  CustomFormWndProc:= Windows.WNDPROC(SetWindowLongPtr(Result, GWL_WNDPROC, LONG_PTR(@FormWndProc2)));
+
+  AWinControl.Color:= SysColor[COLOR_BTNFACE];
+  AWinControl.Font.Color:= SysColor[COLOR_BTNTEXT];
+end;
+
+{ TWin32WSCustomListBoxDark }
+
+function ListBoxWindowProc2(Window: HWND; Msg: UINT; wParam: Windows.WPARAM; lParam: Windows.LPARAM; uISubClass: UINT_PTR; dwRefData: DWORD_PTR): LRESULT; stdcall;
+var
+  PS: TPaintStruct;
+begin
+  if Msg = WM_PAINT then
+  begin
+    if SendMessage(Window, LB_GETCOUNT, 0, 0) = 0 then
+    begin
+      BeginPaint(Window, @ps);
+      // ListBox:= TCustomListBox(GetWin32WindowInfo(Window)^.WinControl);
+      // Windows.FillRect(DC, ps.rcPaint, ListBox.Brush.Reference.Handle);
+      EndPaint(Window, @ps);
+    end;
+  end;
+  Result:= DefSubclassProc(Window, Msg, WParam, LParam);
+end;
+
+class function TWin32WSCustomListBoxDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  P: TCreateParams;
+begin
+  P:= AParams;
+  P.ExStyle:= P.ExStyle and not WS_EX_CLIENTEDGE;
+  TCustomListBox(AWinControl).BorderStyle:= bsNone;
+  Result:= inherited CreateHandle(AWinControl, P);
+  EnableDarkStyle(Result);
+  SetWindowSubclass(Result, @ListBoxWindowProc2, ID_SUB_LISTBOX, 0);
+  TCustomListBox(AWinControl).Color:= SysColor[COLOR_WINDOW];
+  AWinControl.Font.Color:= SysColor[COLOR_WINDOWTEXT];
+end;
+
+{ TWin32WSCustomMemoDark }
+
+class function TWin32WSCustomMemoDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  P: TCreateParams;
+begin
+  P:= AParams;
+  TCustomEdit(AWinControl).BorderStyle:= bsNone;
+  P.ExStyle:= P.ExStyle and not WS_EX_CLIENTEDGE;
+
+  AWinControl.Color:= SysColor[COLOR_WINDOW];
+  AWinControl.Font.Color:= SysColor[COLOR_WINDOWTEXT];
+
+  Result:= inherited CreateHandle(AWinControl, P);
+
+  EnableDarkStyle(Result);
+end;
+
+{ TWin32WSCustomComboBoxDark }
+
+function ComboBoxWindowProc(Window:HWND; Msg:UINT; wParam:Windows.WPARAM;lparam:Windows.LPARAM;uISubClass : UINT_PTR;dwRefData:DWORD_PTR):LRESULT; stdcall;
+var
+  DC: HDC;
+  ComboBox: TCustomComboBox;
+begin
+  case Msg of
+    WM_CTLCOLORLISTBOX:
+    begin
+      ComboBox:= TCustomComboBox(GetWin32WindowInfo(Window)^.WinControl);
+      DC:= HDC(wParam);
+      SetBkColor(DC, ComboBox.Color);
+      SetTextColor(DC, ComboBox.Font.Color);
+      Exit(LResult(ComboBox.Brush.Reference.Handle));
+    end;
+  end;
+  Result:= DefSubclassProc(Window, Msg, wParam, lParam);
+end;
+
+class function TWin32WSCustomComboBoxDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+var
+  Info: TComboboxInfo;
+begin
+  AWinControl.Color:= SysColor[COLOR_BTNFACE];
+  AWinControl.Font.Color:= SysColor[COLOR_BTNTEXT];
+
+  Result:= inherited CreateHandle(AWinControl, AParams);
+
+  Info.cbSize:= SizeOf(Info);
+  Win32Extra.GetComboBoxInfo(Result, @Info);
+  EnableDarkStyle(Info.hwndList);
+
+  AllowDarkModeForWindow(Result, True);
+
+  SetWindowSubclass(Result, @ComboBoxWindowProc, ID_SUB_COMBOBOX, 0);
+end;
+
+{ TWin32WSStatusBarDark }
+
+function StatusBarWndProc(Window: HWND; Msg: UINT; wParam: Windows.WPARAM; lParam: Windows.LPARAM; uISubClass: UINT_PTR; dwRefData: DWORD_PTR): LRESULT; stdcall;
+var
+  DC: HDC;
+  X: Integer;
+  Index: Integer;
+  PS: TPaintStruct;
+  LCanvas: TCanvas;
+  APanel: TStatusPanel;
+  StatusBar: TStatusBar;
+  Info: PWin32WindowInfo;
+begin
+  Info:= GetWin32WindowInfo(Window);
+  if (Info = nil) or (Info^.WinControl = nil) then
+  begin
+    Result:= CallDefaultWindowProc(Window, Msg, WParam, LParam);
+    Exit;
+  end;
+
+  if Msg = WM_PAINT then
+  begin
+    StatusBar:= TStatusBar(Info^.WinControl);
+
+    TWin32WSStatusBar.DoUpdate(StatusBar);
+
+    DC:= BeginPaint(Window, @ps);
+
+    LCanvas:= TCanvas.Create;
+    try
+      LCanvas.Handle:= DC;
+      LCanvas.Brush.Color:= SysColor[COLOR_BTNFACE];
+      LCanvas.FillRect(ps.rcPaint);
+
+      X:= 1;
+      LCanvas.Font.Color:= clWhite;
+      for Index:= 0 to StatusBar.Panels.Count - 1 do
+      begin
+        APanel:= StatusBar.Panels[Index];
+        LCanvas.TextOut(X, 1, APanel.Text);
+        X+= APanel.Width;
+        {
+        LCanvas.Pen.Color:=  Darker(RGBToColor(53, 53, 53), 120);
+        LCanvas.Line(x-1, ps.rcPaint.Top, x-1, ps.rcPaint.Bottom);
+
+        LCanvas.Pen.Color:=  Lighter(RGBToColor(53, 53, 53), 154);
+        LCanvas.Line(x-2, ps.rcPaint.Top, x-2, ps.rcPaint.Bottom);
+        }
+      end;
+    finally
+      LCanvas.Handle:= 0;
+      LCanvas.Free;
+    end;
+    EndPaint(Window, @ps);
+    Result:= 0;
+  end
+  else
+    Result:= DefSubclassProc(Window, Msg, WParam, LParam);
+end;
+
+class function TWin32WSStatusBarDark.CreateHandle(
+  const AWinControl: TWinControl; const AParams: TCreateParams): HWND;
+begin
+  Result:= inherited CreateHandle(AWinControl, AParams);
+  SetWindowSubclass(Result, @StatusBarWndProc, ID_SUB_STATUSBAR, 0);
+end;
+
+{
+  Draws text using the color and font defined by the visual style
+}
+function DrawThemeTextDark(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; pszText: LPCWSTR; iCharCount: Integer;
+  dwTextFlags, dwTextFlags2: DWORD; const pRect: TRect): HRESULT; stdcall;
+var
+  OldColor: COLORREF;
+  Index, Element: TThemedElement;
+begin
+  for Index:= Low(TThemedElement) to High(TThemedElement) do
+  begin
+    if Theme[Index] = hTheme then
+    begin
+      Element:= Index;
+      Break;
+    end;
+  end;
+
+  if Element = teToolTip then
+    OldColor:= SysColor[COLOR_INFOTEXT]
+  else begin
+    OldColor:= SysColor[COLOR_BTNTEXT];
+  end;
+  OldColor:= SetTextColor(hdc, OldColor);
+  SetBkMode(hdc, TRANSPARENT);
+
+  DrawTextExW(hdc, pszText, iCharCount, @pRect, dwTextFlags, nil);
+
+  SetTextColor(hdc, OldColor);
+
+  Result:= S_OK;
+end;
+
+{
+  Draws the border and fill defined by the visual style for the specified control part
+}
+function DrawThemeBackgroundDark(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT): HRESULT; stdcall;
+var
+  LRect: TRect;
+  AColor: TColor;
+  LCanvas: TCanvas;
+  AStyle: TTextStyle;
+  Index, Element: TThemedElement;
+begin
+  for Index:= Low(TThemedElement) to High(TThemedElement) do
+  begin
+    if Theme[Index] = hTheme then
+    begin
+      Element:= Index;
+      Break;
+    end;
+  end;
+
+  if Element = teHeader then
+  begin
+    if iPartId in [HP_HEADERITEM, HP_HEADERITEMRIGHT] then
+    begin
+      LCanvas:= TCanvas.Create;
+      try
+        LCanvas.Handle:= hdc;
+        AColor:= SysColor[COLOR_BTNFACE];
+
+        FillGradient(hdc, Lighter(AColor, 124), Lighter(AColor, 116), pRect, GRADIENT_FILL_RECT_V);
+
+        if (iPartId <> HP_HEADERITEMRIGHT) then
+        begin
+          LCanvas.Pen.Color:= Lighter(AColor, 104);
+          LCanvas.Line(pRect.Right-1, pRect.Top, pRect.Right-1, pRect.Bottom);
+
+          LCanvas.Pen.Color:= Lighter(AColor, 158);
+          LCanvas.Line(pRect.Right - 2, pRect.Top, pRect.Right - 2, pRect.Bottom);
+        end;
+        // Top line
+        LCanvas.Pen.Color:= Lighter(AColor, 164);
+        LCanvas.Line(pRect.Left, pRect.Top, pRect.Right, pRect.Top);
+        // Bottom line
+        LCanvas.Pen.Color:= Darker(AColor, 140);
+        LCanvas.Line(pRect.Left, pRect.Bottom - 1, pRect.Right, pRect.Bottom - 1);
+      finally
+        LCanvas.Handle:= 0;
+        LCanvas.Free;
+      end;
+    end;
+  end
+
+  else if Element = teMenu then
+  begin
+    if iPartId in [MENU_BARBACKGROUND, MENU_POPUPITEM, MENU_POPUPGUTTER,
+                   MENU_POPUPSUBMENU, MENU_POPUPSEPARATOR, MENU_POPUPCHECK,
+                   MENU_POPUPCHECKBACKGROUND] then
+    begin
+      LCanvas:= TCanvas.Create;
+      try
+        LCanvas.Handle:= hdc;
+
+        if not (iPartId in [MENU_POPUPSUBMENU, MENU_POPUPCHECK, MENU_POPUPCHECKBACKGROUND]) then
+        begin
+          if iStateId = MDS_HOT then
+            LCanvas.Brush.Color:= SysColor[COLOR_MENUHILIGHT]
+          else begin
+            LCanvas.Brush.Color:= RGBToColor(45, 45, 45);
+          end;
+          LCanvas.FillRect(pRect);
+        end;
+
+        if iPartId = MENU_POPUPCHECK then
+        begin
+          AStyle:= LCanvas.TextStyle;
+          AStyle.Layout:= tlCenter;
+          AStyle.Alignment:= taCenter;
+          LCanvas.Brush.Style:= bsClear;
+          LCanvas.Font.Name:= 'Segoe MDL2 Assets';
+          LCanvas.Font.Color:= RGBToColor(212, 212, 212);
+          LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_CHECKED, AStyle);
+        end;
+
+        if iPartId = MENU_POPUPSEPARATOR then
+        begin
+         LRect:= pRect;
+         LCanvas.Pen.Color:= RGBToColor(34, 34, 34);
+         LRect.Top:= LRect.Top + (LRect.Height div 2);
+         LRect.Bottom:= LRect.Top;
+
+         LCanvas.Line(LRect);
+        end;
+
+        if (iPartId = MENU_POPUPCHECKBACKGROUND) then
+        begin
+          LRect:= pRect;
+          InflateRect(LRect, -1, -1);
+          LCanvas.Pen.Color:= RGBToColor(45, 45, 45);
+          LCanvas.Brush.Color:= RGBToColor(81, 81, 81);
+          LCanvas.RoundRect(LRect, 6, 6);
+        end;
+
+        if iPartId = MENU_POPUPSUBMENU then
+        begin
+          LCanvas.Brush.Style:= bsClear;
+          LCanvas.Font.Name:= 'Segoe MDL2 Assets';
+          LCanvas.Font.Color:= RGBToColor(111, 111, 111);
+          LCanvas.TextOut(pRect.Left, pRect.Top, UTF8Encode(#$E970));
+        end;
+      finally
+        LCanvas.Handle:= 0;
+        LCanvas.Free;
+      end;
+    end;
+  end
+
+  else if Element = teButton then
+  begin
+    if iPartId in [BP_PUSHBUTTON] then
+    begin
+      LCanvas := TCanvas.Create;
+      try
+        LCanvas.Handle:= hdc;
+        AColor:= SysColor[COLOR_BTNFACE];
+
+        if iStateId = PBS_HOT then
+          LCanvas.Brush.Color:= Lighter(AColor, 116)
+        else if iStateId = PBS_PRESSED then
+          LCanvas.Brush.Color:= Darker(AColor, 116)
+        else begin
+          LCanvas.Brush.Color:= AColor;
+        end;
+        LCanvas.FillRect(pRect);
+
+        LCanvas.Pen.Color:=  Darker(AColor, 140);
+        LCanvas.RoundRect(pRect, 6, 6);
+
+        LRect:= pRect;
+
+        LCanvas.Pen.Color:=  Lighter(AColor, 140);
+        InflateRect(LRect, -1, -1);
+        LCanvas.RoundRect(LRect, 6, 6);
+      finally
+        LCanvas.Handle:= 0;
+        LCanvas.Free;
+      end;
+    end;
+  end
+
+  else if Element = teToolBar then
+  begin
+    if iPartId in [TP_BUTTON] then
+    begin
+      LCanvas:= TCanvas.Create;
+      try
+        LCanvas.Handle:= hdc;
+        AColor:= SysColor[COLOR_BTNFACE];
+
+        if iStateId = TS_HOT then
+          LCanvas.Brush.Color:= Lighter(AColor, 116)
+        else if iStateId = TS_PRESSED then
+          LCanvas.Brush.Color:= Darker(AColor, 116)
+        else begin
+          LCanvas.Brush.Color:= AColor;
+        end;
+        LCanvas.FillRect(pRect);
+
+       if iStateId <> TS_NORMAL then
+       begin
+         LCanvas.Pen.Color:=  Darker(AColor, 140);
+         LCanvas.RoundRect(pRect, 6, 6);
+
+         LRect:= pRect;
+
+         LCanvas.Pen.Color:=  Lighter(AColor, 140);
+         InflateRect(LRect, -1, -1);
+         LCanvas.RoundRect(LRect, 6, 6);
+       end;
+      finally
+        LCanvas.Handle:= 0;
+        LCanvas.Free;
+      end;
+    end;
+  end;
+
+  Result:= S_OK;
+end;
+
+var
+  __CreateWindowExW: function(dwExStyle: DWORD; lpClassName: LPCWSTR; lpWindowName: LPCWSTR; dwStyle: DWORD; X: longint; Y: longint; nWidth: longint; nHeight: longint; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: LPVOID): HWND; stdcall;
+
+function _DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; stdcall;
+var
+  Original: HGDIOBJ;
+  ClientRect: TRect;
+  ColorDark, ColorLight: TColorRef;
+
+  procedure DrawLine(X1, Y1, X2, Y2: Integer);
+  begin
+    MoveToEx(hdc, X1, Y1, nil);
+    LineTo(hdc, X2, Y2);
+  end;
+
+  procedure InternalDrawEdge(Outer: Boolean; const R: TRect);
+  var
+    X1, Y1, X2, Y2: Integer;
+    ColorLeftTop, ColorRightBottom: TColor;
+  begin
+    X1:= R.Left;
+    Y1:= R.Top;
+    X2:= R.Right;
+    Y2:= R.Bottom;
+
+    ColorLeftTop:= clNone;
+    ColorRightBottom:= clNone;
+
+    if Outer then
+    begin
+      if Edge and BDR_RAISEDOUTER <> 0 then
+      begin
+        ColorLeftTop:= ColorLight;
+        ColorRightBottom:= ColorDark;
+      end
+      else if Edge and BDR_SUNKENOUTER <> 0 then
+      begin
+        ColorLeftTop:= ColorDark;
+        ColorRightBottom:= ColorLight;
+      end;
+    end
+    else
+    begin
+      if Edge and BDR_RAISEDINNER <> 0 then
+      begin
+        ColorLeftTop:= ColorLight;
+        ColorRightBottom:= ColorDark;
+      end
+      else if Edge and BDR_SUNKENINNER <> 0 then
+      begin
+        ColorLeftTop:= ColorDark;
+        ColorRightBottom:= ColorLight;
+      end;
+    end;
+
+    SetDCPenColor(hdc, ColorLeftTop);
+
+    if grfFlags and BF_LEFT <> 0 then
+      DrawLine(X1, Y1, X1, Y2);
+    if grfFlags and BF_TOP <> 0 then
+      DrawLine(X1, Y1, X2, Y1);
+
+    SetDCPenColor(hdc, ColorRightBottom);
+
+    if grfFlags and BF_RIGHT <> 0 then
+      DrawLine(X2, Y1, X2, Y2);
+    if grfFlags and BF_BOTTOM <> 0 then
+      DrawLine(X1, Y2, X2, Y2);
+  end;
+
+begin
+  Result:= False;
+  if IsRectEmpty(qrc) then
+    Exit;
+
+  ClientRect:= qrc;
+  Dec(ClientRect.Right, 1);
+  Dec(ClientRect.Bottom, 1);
+  Original:= SelectObject(hdc, GetStockObject(DC_PEN));
+  try
+    ColorDark:= SysColor[COLOR_BTNSHADOW];
+    ColorLight:= SysColor[COLOR_BTNHIGHLIGHT];
+
+    if Edge and (BDR_SUNKENOUTER or BDR_RAISEDOUTER) <> 0 then
+    begin
+      InternalDrawEdge(True, ClientRect);
+    end;
+
+    InflateRect(ClientRect, -1, -1);
+
+    if Edge and (BDR_SUNKENINNER or BDR_RAISEDINNER) <> 0 then
+    begin
+      InternalDrawEdge(False, ClientRect);
+      InflateRect(ClientRect, -1, -1);
+    end;
+
+    Inc(ClientRect.Right);
+    Inc(ClientRect.Bottom);
+
+    if grfFlags and BF_ADJUST <> 0 then
+    begin
+      qrc:= ClientRect;
+    end;
+
+    Result:= True;
+  finally
+    SelectObject(hdc, Original);
+  end;
+end;
+
+{
+  Retrieves the current color of the specified display element
+}
+function GetSysColorDark(nIndex: longint): DWORD; stdcall;
+begin
+  if (nIndex >= 0) and (nIndex <= COLOR_ENDCOLORS) then
+    Result:= SysColor[nIndex]
+  else begin
+    Result:= 0;
+  end;
+end;
+
+{
+  Retrieves a handle identifying a logical brush that corresponds to the specified color index
+}
+function GetSysColorBrushDark(nIndex: longint): HBRUSH; stdcall;
+begin
+  if (nIndex >= 0) and (nIndex <= COLOR_ENDCOLORS) then
+  begin
+    if (SysColorBrush[nIndex] = 0) then
+    begin
+      SysColorBrush[nIndex]:= CreateSolidBrush(SysColor[nIndex]);
+    end;
+    Result:= SysColorBrush[nIndex];
+  end
+  else begin
+    Result:= CreateSolidBrush(GetSysColorDark(nIndex));
+  end;
+end;
+
+const
+  ClassNameW: PWideChar = 'TCustomForm';
+  ClassNameTC: PWideChar = 'TTOTAL_CMD'; // for compatibility with plugins
+
+function _CreateWindowExW(dwExStyle: DWORD; lpClassName: LPCWSTR; lpWindowName: LPCWSTR; dwStyle: DWORD; X: longint; Y: longint; nWidth: longint; nHeight: longint; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: LPVOID): HWND; stdcall;
+var
+  AParams: PNCCreateParams absolute lpParam;
+begin
+  if Assigned(AParams) and (AParams^.WinControl is TCustomForm) then
+  begin
+    if (hWndParent = 0) and AParams^.WinControl.ClassNameIs('TfrmMain') then
+      lpClassName:= ClassNameTC
+    else begin
+      lpClassName:= ClassNameW;
+    end;
+  end else begin
+    dwExStyle:= dwExStyle or WS_EX_CONTEXTHELP;
+  end;
+  Result:= __CreateWindowExW(dwExStyle, lpClassName, lpWindowName, dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam);
+end;
+
+procedure SubClassUpDown;
+var
+  Window: HWND;
+begin
+  Window:= CreateWindowW(UPDOWN_CLASSW, nil, 0, 0, 0, 200, 20, 0, 0, HINSTANCE, nil);
+  OldUpDownWndProc:= Windows.WNDPROC(GetClassLongPtr(Window, GCLP_WNDPROC));
+
+  SetClassLongPtr(Window, GCLP_WNDPROC, LONG_PTR(@UpDownWndProc));
+  DestroyWindow(Window);
+end;
+
+procedure ScreenFormEvent(Self, Sender: TObject; Form: TCustomForm);
+begin
+  if Assigned(Form.Menu) then
+  begin
+    Form.Menu.OwnerDraw:= True;
+    SetMenuBackground(GetMenu(Form.Handle));
+    Form.Menu.OwnerDraw:= False;
+  end;
+end;
+
+{
+  Override several widgetset controls
+}
+procedure ApplyDarkStyle;
+var
+  Handler: TMethod;
+  Index: TThemedElement;
+begin
+  if not g_darkModeEnabled then
+    Exit;
+
+  SubClassUpDown;
+
+  DefBtnColors[dctFont]:= SysColor[COLOR_BTNTEXT];
+  DefBtnColors[dctBrush]:= SysColor[COLOR_BTNFACE];
+
+  Handler.Code:= @ScreenFormEvent;
+  Screen.AddHandlerFormVisibleChanged(TScreenFormEvent(Handler), True);
+
+  with TWinControl.Create(nil) do Free;
+  RegisterWSComponent(TWinControl, TWin32WSWinControlDark);
+
+  WSComCtrls.RegisterStatusBar;
+  RegisterWSComponent(TStatusBar, TWin32WSStatusBarDark);
+
+  WSStdCtrls.RegisterCustomComboBox;
+  RegisterWSComponent(TCustomComboBox, TWin32WSCustomComboBoxDark);
+
+  WSStdCtrls.RegisterCustomEdit;
+
+  WSStdCtrls.RegisterCustomMemo;
+  RegisterWSComponent(TCustomMemo, TWin32WSCustomMemoDark);
+
+  WSStdCtrls.RegisterCustomListBox;
+  RegisterWSComponent(TCustomListBox, TWin32WSCustomListBoxDark);
+
+  WSForms.RegisterScrollingWinControl;
+
+  WSForms.RegisterCustomForm;
+  RegisterWSComponent(TCustomForm, TWin32WSCustomFormDark);
+
+  WSMenus.RegisterMenu;
+  WSMenus.RegisterPopupMenu;
+  RegisterWSComponent(TPopupMenu, TWin32WSPopupMenuDark);
+
+  WSForms.RegisterScrollBox;
+  RegisterWSComponent(TScrollBox, TWin32WSScrollBoxDark);
+
+  RegisterCustomTrackBar;
+  RegisterWSComponent(TCustomTrackBar, TWin32WSTrackBarDark);
+
+  DrawThemeText:= @DrawThemeTextDark;
+  DrawThemeBackground:= @DrawThemeBackgroundDark;
+
+  for Index:= Low(TThemedElement) to High(TThemedElement) do
+  begin
+    Theme[Index]:= TWin32ThemeServices(ThemeServices).Theme[Index];
+  end;
+
+  DefaultWindowInfo.DefWndProc:= @WindowProc;
+end;
+
+function FormWndProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
+    LParam: Windows.LParam): LResult; stdcall;
+var
+  Info: PWin32WindowInfo;
+begin
+  if Msg = WM_CREATE then
+  begin
+    AllowDarkModeForWindow(Window, True);
+    RefreshTitleBarThemeColor(Window);
+  end
+  else if (Msg = WM_SETFONT) then
+  begin
+    Info := GetWin32WindowInfo(Window);
+    if Assigned(Info) then
+    begin
+     Info^.DefWndProc:= @WindowProc;
+    end;
+    Result:= CallWindowProc(@WindowProc, Window, Msg, WParam, LParam);
+    Exit;
+  end;
+  Result:= DefWindowProc(Window, Msg, WParam, LParam);
+end;
+
+var
+  TrampolineOpenThemeData: function(hwnd: HWND; pszClassList: LPCWSTR): HTHEME; stdcall =  nil;
+  TrampolineDrawThemeText: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; pszText: LPCWSTR; iCharCount: Integer;
+                                    dwTextFlags, dwTextFlags2: DWORD; const pRect: TRect): HRESULT; stdcall = nil;
+  TrampolineDrawThemeBackground: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect; pClipRect: Pointer): HRESULT; stdcall =  nil;
+
+procedure DrawEdit(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  ARect: TRect;
+  LCanvas: TCanvas;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    ARect:= pRect;
+    LCanvas.Handle:= hdc;
+
+    case iPartId of
+      EP_BACKGROUND:
+      begin
+        LCanvas.Brush.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.FillRect(ARect);
+      end;
+      EP_BACKGROUNDWITHBORDER:
+      begin
+        LCanvas.Brush.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.FillRect(ARect);
+
+        if iStateId = ETS_SELECTED then
+          LCanvas.Pen.Color:= RGBToColor(83, 160, 237)
+        else begin
+          LCanvas.Pen.Color:= RGBToColor(38, 38, 38);
+        end;
+        LCanvas.RoundRect(ARect, 4, 4);
+
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= RGBToColor(49, 49, 49);
+        LCanvas.RoundRect(ARect, 4, 4);
+      end;
+      EP_EDITBORDER_NOSCROLL:
+      begin
+        LCanvas.Pen.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.Rectangle(ARect);
+
+        if iStateId = ETS_SELECTED then
+          LCanvas.Pen.Color:= RGBToColor(83, 160, 237)
+        else begin
+          LCanvas.Pen.Color:= RGBToColor(38, 38, 38);
+        end;
+        LCanvas.RoundRect(ARect, 4, 4);
+
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.Rectangle(ARect);
+
+        LCanvas.Pen.Color:= RGBToColor(49, 49, 49);
+        LCanvas.RoundRect(ARect, 4, 4);
+      end;
+    end;
+  finally
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawCheckBox(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  LCanvas: TCanvas;
+  AStyle: TTextStyle;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    LCanvas.Handle:= HDC;
+
+    LCanvas.Brush.Color:= clBtnFace;
+    LCanvas.FillRect(pRect);
+
+    AStyle:= LCanvas.TextStyle;
+    AStyle.Layout:= tlCenter;
+    AStyle.ShowPrefix:= True;
+
+    // Draw checkbox rect
+    LCanvas.Font.Name:= 'Segoe MDL2 Assets';
+    LCanvas.Font.Color:= SysColor[COLOR_WINDOW];
+    LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_FILLED, AStyle);
+
+    // Draw checkbox state
+    if iStateId in [CBS_MIXEDNORMAL, CBS_MIXEDHOT,
+                    CBS_MIXEDPRESSED, CBS_MIXEDDISABLED] then
+    begin
+      LCanvas.Font.Color:= RGBToColor(120, 120, 120);
+      LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_GRAYED, AStyle);
+    end
+    else if iStateId in [CBS_CHECKEDNORMAL, CBS_CHECKEDHOT,
+                         CBS_CHECKEDPRESSED, CBS_CHECKEDDISABLED] then
+    begin
+      LCanvas.Font.Color:= RGBToColor(212, 212, 212);
+      LCanvas.TextRect(pRect, 0, 0, MDL_CHECKBOX_CHECKED, AStyle);
+    end;
+  finally
+    LCanvas.Handle:= 0;
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawRadionButton(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  LCanvas: TCanvas;
+  AStyle: TTextStyle;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    LCanvas.Handle:= hdc;
+
+    LCanvas.Brush.Color:= SysColor[COLOR_BTNFACE];
+    LCanvas.FillRect(pRect);
+
+    AStyle:= LCanvas.TextStyle;
+    AStyle.Layout:= tlCenter;
+    AStyle.ShowPrefix:= True;
+
+    // Draw radio circle
+    LCanvas.Font.Name:= 'Segoe MDL2 Assets';
+    LCanvas.Font.Color:= SysColor[COLOR_WINDOW];
+    LCanvas.TextRect(pRect, 0, 0, MDL_RADIO_FILLED, AStyle);
+
+    // Draw radio button state
+    if iStateId in [RBS_CHECKEDNORMAL, RBS_CHECKEDHOT,
+                    RBS_CHECKEDPRESSED, RBS_CHECKEDDISABLED] then
+    begin
+      LCanvas.Font.Color:= RGBToColor(162, 162, 162);
+      LCanvas.TextRect(pRect, 0, 0, MDL_RADIO_CHECKED, AStyle );
+    end;
+
+    // Set outline circle color
+    if iStateId in [RBS_UNCHECKEDPRESSED, RBS_CHECKEDPRESSED] then
+      LCanvas.Font.Color:= RGBToColor(83, 160, 237)
+    else begin
+      LCanvas.Font.Color:= RGBToColor(39, 39, 39);
+    end;
+    // Draw outline circle
+    LCanvas.TextRect(pRect, 0, 0, MDL_RADIO_OUTLINE, AStyle);
+  finally
+    LCanvas.Handle:= 0;
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawGroupBox(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  LCanvas: TCanvas;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    LCanvas.Handle:= HDC;
+
+    // Draw border
+    LCanvas.Brush.Style:= bsClear;
+    LCanvas.Pen.Color:= SysColor[COLOR_BTNHIGHLIGHT];
+    LCanvas.RoundRect(pRect, 10, 10);
+  finally
+    LCanvas.Handle:= 0;
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawButton(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+begin
+  case iPartId of
+    BP_PUSHBUTTON: TrampolineDrawThemeBackground(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+    BP_RADIOBUTTON: DrawRadionButton(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+    BP_CHECKBOX: DrawCheckBox(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+    BP_GROUPBOX: DrawGroupBox(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+  end;
+end;
+
+procedure DrawComboBox(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  ARect: TRect;
+  LCanvas: TCanvas;
+  AStyle: TTextStyle;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    LCanvas.Handle:= hdc;
+
+    case iPartId of
+      CP_BORDER:
+      begin
+        ARect:= pRect;
+        LCanvas.Brush.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.FillRect(ARect);
+
+        if iStateId = CBXS_PRESSED then
+          LCanvas.Pen.Color:= RGBToColor(83, 160, 237)
+        else begin
+          LCanvas.Pen.Color:= RGBToColor(38, 38, 38);
+        end;
+        LCanvas.RoundRect(ARect, 4, 4);
+
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= SysColor[COLOR_WINDOW];
+        LCanvas.Rectangle(ARect);
+
+        LCanvas.Pen.Color:= RGBToColor(49, 49, 49);
+        LCanvas.RoundRect(ARect, 4, 4);
+      end;
+      CP_DROPDOWNBUTTON,
+      CP_DROPDOWNBUTTONLEFT,
+      CP_DROPDOWNBUTTONRIGHT:
+      begin
+        AStyle:= LCanvas.TextStyle;
+        AStyle.Layout:= tlCenter;
+        AStyle.Alignment:= taCenter;
+
+        LCanvas.Font.Name:= 'Segoe MDL2 Assets';
+        LCanvas.Font.Color:= RGBToColor(100, 100, 100);
+        LCanvas.TextRect(pRect, 0, 0, MDL_COMBOBOX_BUTTON, AStyle);
+      end;
+    end;
+  finally
+    LCanvas.Handle:= 0;
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawTabControl(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+var
+  ARect: TRect;
+  AColor: TColor;
+  LCanvas : TCanvas;
+  ALight, ADark: TColor;
+begin
+  LCanvas:= TCanvas.Create;
+  try
+    LCanvas.Handle:= hdc;
+
+    ARect:= pRect;
+    AColor:= SysColor[COLOR_BTNFACE];
+    ADark:= Darker(AColor, 125);
+    ALight:= Lighter(AColor, 160);
+
+    case iPartId of
+      TABP_TOPTABITEM:
+      begin
+        // Fill tab inside
+        if (iStateId = TIS_SELECTED) then
+          LCanvas.Brush.Color:= Lighter(AColor, 129)
+        else begin
+          LCanvas.Brush.Color:= Lighter(AColor, 117)
+        end;
+        InflateRect(ARect, -1, -1);
+        LCanvas.FillRect(ARect);
+
+        InflateRect(ARect, 1, 1);
+
+        ExcludeClipRect(hdc, ARect.Left, ARect.Bottom, ARect.Right, ARect.Bottom + 16);
+
+        // Draw tab outer border
+        ARect.Bottom+= 16;
+        LCanvas.Pen.Color:= ADark;
+        LCanvas.RoundRect(ARect, 6, 6);
+
+        // Draw tab inner border
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= ALight;
+        LCanvas.RoundRect(ARect, 6, 6);
+
+        if iStateId = CSTB_SELECTED then
+        begin
+          LCanvas.Line(pRect.Left, pRect.Bottom - 1, pRect.Left + 1, pRect.Bottom - 1);
+          LCanvas.Line(pRect.Right - 2, pRect.Bottom - 1, pRect.Right, pRect.Bottom - 1);
+        end;
+      end;
+      TABP_TOPTABITEMLEFTEDGE,
+      TABP_TOPTABITEMRIGHTEDGE:
+      begin
+        // Fill tab inside
+        if (iStateId = TIS_SELECTED) then
+          LCanvas.Brush.Color:= Lighter(AColor, 129)
+        else begin
+          LCanvas.Brush.Color:= Lighter(AColor, 117);
+        end;
+        InflateRect(ARect, -1, -1);
+        LCanvas.FillRect(ARect);
+
+        InflateRect(ARect, 1, 1);
+
+        ExcludeClipRect(hdc, ARect.Left, ARect.Bottom, ARect.Right, ARect.Bottom + 16);
+
+        // Draw tab outer border
+        ARect.Bottom+= 16;
+        LCanvas.Pen.Color:=  ADark;
+        LCanvas.RoundRect(ARect, 6, 6);
+
+        // Draw tab inner border
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= ALight;
+        LCanvas.RoundRect(ARect, 6, 6);
+
+        if iStateId = CSTB_SELECTED then
+        begin
+          LCanvas.Line(pRect.Right - 2, pRect.Bottom-1, pRect.Right, pRect.Bottom-1);
+        end;
+      end;
+      TABP_PANE:
+      begin
+        LCanvas.Brush.Color:= AColor;
+        LCanvas.Pen.Color:= ADark;
+        LCanvas.Rectangle(ARect);
+
+        // Draw tab inner border
+        InflateRect(ARect, -1, -1);
+        LCanvas.Pen.Color:= ALight;
+        LCanvas.Rectangle(ARect);
+      end;
+    end;
+  finally
+    LCanvas.Handle:= 0;
+    LCanvas.Free;
+  end;
+end;
+
+procedure DrawTrackBar(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+begin
+  if iPartId <> TKP_TRACK then
+    TrampolineDrawThemeBackground(hTheme, hdc, iPartId, iStateId, pRect, pClipRect)
+  else begin
+    SelectObject(hdc, GetStockObject(DC_PEN));
+    SetDCPenColor(hdc, SysColor[COLOR_BTNSHADOW]);
+    SelectObject(hdc, GetStockObject(DC_BRUSH));
+    SetDCBrushColor(hdc, SysColor[COLOR_BTNFACE]);
+    with pRect do RoundRect(hdc, Left, Top, Right, Bottom, 6, 6);
+  end;
+end;
+
+procedure DrawProgressBar(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pRect: TRect;
+  pClipRect: PRECT);
+begin
+  if not (iPartId in [PP_TRANSPARENTBAR, PP_TRANSPARENTBARVERT]) then
+    TrampolineDrawThemeBackground(hTheme, hdc, iPartId, iStateId, pRect, pClipRect)
+  else begin
+    SelectObject(hdc, GetStockObject(DC_PEN));
+    SetDCPenColor(hdc, SysColor[COLOR_BTNSHADOW]);
+    SelectObject(hdc, GetStockObject(DC_BRUSH));
+    SetDCBrushColor(hdc, SysColor[COLOR_BTNFACE]);
+    with pRect do Rectangle(hdc, Left, Top, Right, Bottom);
+  end;
+end;
+
+function InterceptOpenThemeData(hwnd: hwnd; pszClassList: LPCWSTR): hTheme; stdcall;
+var
+  P: LONG_PTR;
+begin
+  P:= GetWindowLongPtr(hwnd, GWL_EXSTYLE);
+
+  if (P and WS_EX_CONTEXTHELP = 0) or (lstrcmpiW(pszClassList, VSCLASS_MONTHCAL) = 0) then
+  begin
+    Result:= TrampolineOpenThemeData(hwnd, pszClassList);
+    Exit;
+  end;
+
+  if lstrcmpiW(pszClassList, VSCLASS_TAB) = 0 then
+  begin
+    AllowDarkModeForWindow(hwnd, True);
+    pszClassList:= PWideChar(VSCLASS_DARK_TAB);
+    hwnd:= 0;
+  end
+  else if lstrcmpiW(pszClassList, VSCLASS_BUTTON) = 0 then
+  begin
+    AllowDarkModeForWindow(hwnd, True);
+    pszClassList:= PWideChar(VSCLASS_DARK_BUTTON);
+    hwnd:= 0;
+  end
+  else if lstrcmpiW(pszClassList, VSCLASS_EDIT) = 0 then
+  begin
+    AllowDarkModeForWindow(hwnd, True);
+    pszClassList:= PWideChar(VSCLASS_DARK_EDIT);
+    hwnd:= 0;
+  end
+  else if lstrcmpiW(pszClassList, VSCLASS_COMBOBOX) = 0 then
+  begin
+    AllowDarkModeForWindow(hwnd, True);
+    pszClassList:= PWideChar(VSCLASS_DARK_COMBOBOX);
+    hwnd:= 0;
+  end
+  else if lstrcmpiW(pszClassList, VSCLASS_SCROLLBAR) = 0 then
+  begin
+    AllowDarkModeForWindow(hwnd, True);
+    pszClassList:= PWideChar(VSCLASS_DARK_SCROLLBAR);
+    hwnd:= 0;
+  end;
+
+  Result:= TrampolineOpenThemeData(hwnd, pszClassList);
+  ThemeClass.AddOrSetValue(Result, pszClassList);
+end;
+
+function InterceptDrawThemeText(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; pszText: LPCWSTR; iCharCount: Integer;
+  dwTextFlags, dwTextFlags2: DWORD; const pRect: TRect): HRESULT; stdcall;
+var
+  OldColor: COLORREF;
+  ClassName: String;
+begin
+  if ThemeClass.TryGetValue(hTheme, ClassName) then
+  begin
+    if SameText(ClassName, VSCLASS_DARK_COMBOBOX) or SameText(ClassName, VSCLASS_DARK_EDIT) then
+    begin
+      Result:= TrampolineDrawThemeText(hTheme, hdc, iPartId, iStateId, pszText, iCharCount, dwTextFlags, dwTextFlags2, pRect);
+      Exit;
+    end;
+
+    if SameText(ClassName, VSCLASS_TOOLTIP) then
+      OldColor:= SysColor[COLOR_INFOTEXT]
+    else begin
+      OldColor:= SysColor[COLOR_BTNTEXT];
+    end;
+
+    if SameText(ClassName, VSCLASS_DARK_BUTTON) then
+    begin
+      if (iPartId = BP_CHECKBOX) and (iStateId in [CBS_UNCHECKEDDISABLED, CBS_CHECKEDDISABLED, CBS_MIXEDDISABLED]) then
+        OldColor:= SysColor[COLOR_GRAYTEXT]
+      else if (iPartId = BP_RADIOBUTTON) and (iStateId in [RBS_UNCHECKEDDISABLED, RBS_CHECKEDDISABLED]) then
+        OldColor:= SysColor[COLOR_GRAYTEXT]
+      else if (iPartId = BP_GROUPBOX) and (iStateId = GBS_DISABLED) then
+        OldColor:= SysColor[COLOR_GRAYTEXT]
+      else if (iPartId = BP_PUSHBUTTON) then
+      begin
+        Result:= TrampolineDrawThemeText(hTheme, hdc, iPartId, iStateId, pszText, iCharCount, dwTextFlags, dwTextFlags2, pRect);
+        Exit;
+      end;
+    end;
+
+    OldColor:= SetTextColor(hdc, OldColor);
+    SetBkMode(hdc, TRANSPARENT);
+
+    DrawTextExW(hdc, pszText, iCharCount, @pRect, dwTextFlags, nil);
+
+    SetTextColor(hdc, OldColor);
+
+    Exit(S_OK);
+  end;
+  Result:= TrampolineDrawThemeText(hTheme, hdc, iPartId, iStateId, pszText, iCharCount, dwTextFlags, dwTextFlags2, pRect);
+end;
+
+function InterceptDrawThemeBackground(hTheme: hTheme; hdc: hdc; iPartId, iStateId: Integer; const pRect: TRect;
+    pClipRect: Pointer): HRESULT; stdcall;
+var
+  Index: Integer;
+  ClassName: String;
+begin
+  if ThemeClass.TryGetValue(hTheme, ClassName) then
+  begin
+    Index:= SaveDC(hdc);
+    try
+      if SameText(ClassName, VSCLASS_DARK_BUTTON) then
+      begin
+        DrawButton(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      {
+      else if SameText(ClassName, VSCLASS_DARK_EDIT) then
+      begin
+        DrawEdit(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      else if SameText(ClassName, VSCLASS_DARK_COMBOBOX) then
+      begin
+        DrawComboBox(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      }
+      else if SameText(ClassName, VSCLASS_DARK_TAB) then
+      begin
+        DrawTabControl(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      {
+      else if SameText(AItem.ClassName, VSCLASS_TRACKBAR) then
+      begin
+        DrawTrackBar(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      }
+      else if SameText(ClassName, VSCLASS_PROGRESS) or SameText(ClassName, VSCLASS_PROGRESS_INDER) then
+      begin
+        DrawProgressBar(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end
+      else begin
+        Result:= TrampolineDrawThemeBackground(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+      end;
+    finally
+      RestoreDC(hdc, Index);
+    end;
+    Exit(S_OK);
+  end;
+  Result:= TrampolineDrawThemeBackground(hTheme, hdc, iPartId, iStateId, pRect, pClipRect);
+end;
+
+function DrawThemeEdgeDark(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pDestRect: TRect; uEdge,
+  uFlags: UINT; pContentRect: PRECT): HRESULT; stdcall;
+var
+  ARect: TRect;
+begin
+  ARect:= pDestRect;
+  _DrawEdge(hdc, ARect, uEdge, uFlags);
+  if (uFlags and DFCS_ADJUSTRECT <> 0) and (pContentRect <> nil) then
+    pContentRect^ := ARect;
+  Result:= S_OK;
+end;
+
+function GetThemeSysColorDark(hTheme: HTHEME; iColorId: Integer): COLORREF; stdcall;
+begin
+  Result:= GetSysColor(iColorId);
+end;
+
+function GetThemeSysColorBrushDark(hTheme: HTHEME; iColorId: Integer): HBRUSH; stdcall;
+begin
+  Result:= GetSysColorBrush(iColorId);
+end;
+
+var
+  DeleteObjectOld: function(ho: HGDIOBJ): WINBOOL; stdcall;
+
+function __DeleteObject(ho: HGDIOBJ): WINBOOL; stdcall;
+var
+  Index: Integer;
+begin
+  for Index:= 0 to High(SysColorBrush) do
+  begin
+    if SysColorBrush[Index] = ho then Exit(True);
+  end;
+  Result:= DeleteObjectOld(ho);
+end;
+
+procedure InitializeColors;
+begin
+  SysColor[COLOR_SCROLLBAR]               := RGBToColor(53, 53, 53);
+  SysColor[COLOR_BACKGROUND]              := RGBToColor(53, 53, 53);
+  SysColor[COLOR_ACTIVECAPTION]           := RGBToColor(42, 130, 218);
+  SysColor[COLOR_INACTIVECAPTION]         := RGBToColor(53, 53, 53);
+  SysColor[COLOR_MENU]                    := RGBToColor(42, 42, 42);
+  SysColor[COLOR_WINDOW]                  := RGBToColor(42, 42, 42);
+  SysColor[COLOR_WINDOWFRAME]             := RGBToColor(20, 20, 20);
+  SysColor[COLOR_MENUTEXT]                := RGBToColor(255, 255, 255);
+  SysColor[COLOR_WINDOWTEXT]              := RGBToColor(255, 255, 255);
+  SysColor[COLOR_CAPTIONTEXT]             := RGBToColor(255, 255, 255);
+  SysColor[COLOR_ACTIVEBORDER]            := RGBToColor(53, 53, 53);
+  SysColor[COLOR_INACTIVEBORDER]          := RGBToColor(53, 53, 53);
+  SysColor[COLOR_APPWORKSPACE]            := RGBToColor(53, 53, 53);
+  SysColor[COLOR_HIGHLIGHT]               := RGBToColor(42, 130, 218);
+  SysColor[COLOR_HIGHLIGHTTEXT]           := RGBToColor(255, 255, 255);
+  SysColor[COLOR_BTNFACE]                 := RGBToColor(53, 53, 53);
+  SysColor[COLOR_BTNSHADOW]               := RGBToColor(35, 35, 35);
+  SysColor[COLOR_GRAYTEXT]                := RGBToColor(127, 127, 127);
+  SysColor[COLOR_BTNTEXT]                 := RGBToColor(255, 255, 255);
+  SysColor[COLOR_INACTIVECAPTIONTEXT]     := RGBToColor(255, 255, 255);
+  SysColor[COLOR_BTNHIGHLIGHT]            := RGBToColor(66, 66, 66);
+  SysColor[COLOR_3DDKSHADOW]              := RGBToColor(20, 20, 20);
+  SysColor[COLOR_3DLIGHT]                 := RGBToColor(40, 40, 40);
+  SysColor[COLOR_INFOTEXT]                := RGBToColor(53, 53, 53);
+  SysColor[COLOR_INFOBK]                  := RGBToColor(255, 255, 255);
+  SysColor[COLOR_HOTLIGHT]                := RGBToColor(66, 66, 66);
+  SysColor[COLOR_GRADIENTACTIVECAPTION]   := GetSysColor(COLOR_GRADIENTACTIVECAPTION);
+  SysColor[COLOR_GRADIENTINACTIVECAPTION] := GetSysColor(COLOR_GRADIENTINACTIVECAPTION);
+  SysColor[COLOR_MENUHILIGHT]             := RGBToColor(42, 130, 218);
+  SysColor[COLOR_MENUBAR]                 := RGBToColor(42, 42, 42);
+  SysColor[COLOR_FORM]                    := RGBToColor(53, 53, 53);
+end;
+
+function WinRegister(ClassName: PWideChar): Boolean;
+var
+  WindowClassW: WndClassW;
+begin
+  ZeroMemory(@WindowClassW, SizeOf(WndClassW));
+  with WindowClassW do
+  begin
+    Style := CS_DBLCLKS;
+    LPFnWndProc := @FormWndProc;
+    hInstance := System.HInstance;
+    hIcon := Windows.LoadIcon(MainInstance, 'MAINICON');
+    if hIcon = 0 then
+     hIcon := Windows.LoadIcon(0, IDI_APPLICATION);
+    hCursor := Windows.LoadCursor(0, IDC_ARROW);
+    LPSzClassName := ClassName;
+  end;
+  Result := Windows.RegisterClassW(@WindowClassW) <> 0;
+end;
+
+procedure Initialize;
+var
+  hModule, hUxTheme: THandle;
+  pLibrary, pFunction: PPointer;
+  pImpDesc: PIMAGE_DELAYLOAD_DESCRIPTOR;
+begin
+  if not g_darkModeEnabled then
+    Exit;
+
+  InitializeColors;
+
+  WinRegister(ClassNameW);
+  WinRegister(ClassNameTC);
+
+  ThemeClass:= TThemeClassMap.Create;
+
+  hModule:= GetModuleHandle(gdi32);
+  Pointer(DeleteObjectOld):= GetProcAddress(hModule, 'DeleteObject');
+
+  // Override several system functions
+  pLibrary:= FindImportLibrary(MainInstance, user32);
+  if Assigned(pLibrary) then
+  begin
+    hModule:= GetModuleHandle(user32);
+
+    pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'CreateWindowExW'));
+    if Assigned(pFunction) then
+    begin
+      Pointer(__CreateWindowExW):= ReplaceImportFunction(pFunction, @_CreateWindowExW);
+    end;
+    pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'DrawEdge'));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @_DrawEdge);
+    end;
+    pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'GetSysColor'));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @GetSysColorDark);
+    end;
+    pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'GetSysColorBrush'));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @GetSysColorBrushDark);
+    end;
+  end;
+  pLibrary:= FindImportLibrary(MainInstance, gdi32);
+  if Assigned(pLibrary) then
+  begin
+    hModule:= GetModuleHandle(gdi32);
+    pFunction:= FindImportFunction(pLibrary, Pointer(DeleteObjectOld));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @__DeleteObject);
+    end;
+  end;
+
+  hModule:= GetModuleHandle(comctl32);
+  pImpDesc:= FindDelayImportLibrary(hModule, themelib);
+  if Assigned(pImpDesc) then
+  begin
+    hUxTheme:= GetModuleHandle(themelib);
+    Pointer(TrampolineOpenThemeData):= GetProcAddress(hUxTheme, 'OpenThemeData');
+    Pointer(TrampolineDrawThemeText):= GetProcAddress(hUxTheme, 'DrawThemeText');
+    Pointer(TrampolineDrawThemeBackground):= GetProcAddress(hUxTheme, 'DrawThemeBackground');
+
+    ReplaceDelayImportFunction(hModule, pImpDesc, 'OpenThemeData', @InterceptOpenThemeData);
+    ReplaceDelayImportFunction(hModule, pImpDesc, 'DrawThemeText', @InterceptDrawThemeText);
+    ReplaceDelayImportFunction(hModule, pImpDesc, 'DrawThemeBackground', @InterceptDrawThemeBackground);
+
+    ReplaceDelayImportFunction(hModule, pImpDesc, 'DrawThemeEdge', @DrawThemeEdgeDark);
+  end;
+
+  pLibrary:= FindImportLibrary(hModule, gdi32);
+  if Assigned(pLibrary) then
+  begin
+    pFunction:= FindImportFunction(pLibrary, Pointer(DeleteObjectOld));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @__DeleteObject);
+    end;
+  end;
+
+  hModule:= GetModuleHandle(comctl32);
+  pLibrary:= FindImportLibrary(hModule, user32);
+  if Assigned(pLibrary) then
+  begin
+    hModule:= GetModuleHandle(user32);
+
+    pFunction:= FindImportFunction(pLibrary, GetProcAddress(hModule, 'DrawEdge'));
+    if Assigned(pFunction) then
+    begin
+      ReplaceImportFunction(pFunction, @_DrawEdge);
+    end;
+  end;
+end;
+
+initialization
+  Initialize;
+
+end.
+

src/uwlxmodule.pas

@@ -45,7 +45,7 @@ uses
   {$IFDEF LCLQT5}
   , qt5, qtwidgets
   {$ENDIF}
-  {$IF DEFINED(MSWINDOWS) and DEFINED(LCLQT5)}
+  {$IF DEFINED(MSWINDOWS) and (DEFINED(LCLQT5) or DEFINED(DARKWIN))}
   , uDarkStyle
   {$ENDIF}
   ;
@@ -339,7 +339,7 @@ function TWlxModule.CallListLoad(ParentWin: HWND; FileToLoad: String; ShowFlags:
 begin
   WlxPrepareContainer(ParentWin);
 
-{$IF DEFINED(MSWINDOWS) and DEFINED(LCLQT5)}
+{$IF DEFINED(MSWINDOWS) and (DEFINED(LCLQT5) or DEFINED(DARKWIN))}
   if g_darkModeEnabled then
   begin
     ShowFlags:= ShowFlags or lcp_darkmode;