소스 검색

Revert "Add dark mode support to the dropdown glyph used by BackNavButton."
Thought it worked but it doesnt.

Martijn Laan 1 년 전
부모
커밋
718693f8ff
1개의 변경된 파일1개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 3
      Projects/Src/CompFunc.pas

+ 1 - 3
Projects/Src/CompFunc.pas

@@ -72,7 +72,7 @@ function CreateBitmapInfo(const Width, Height, BitCount: Integer): TBitmapInfo;
 implementation
 
 uses
-  ActiveX, ShlObj, ShellApi, CommDlg, SysUtils, IOUtils, ComCtrls,
+  ActiveX, ShlObj, ShellApi, CommDlg, SysUtils, IOUtils,
   Messages, DwmApi,
   CmnFunc2, PathFunc, FileClass, NewUxTheme,
   CompForm, CompMsgs, CompTypes;
@@ -130,8 +130,6 @@ procedure InitFormTheme(Form: TForm);
       var Control := ParentControl.Controls[I];
       if Control is TListBox then
         InitListBoxDarkTheme(Control as TListBox)
-      else if Control is TToolBar then
-        SetControlWindowTheme(Control as TToolBar, FormTheme.Dark)
       else if Control is TWinControl then
         InitWinControlTheme(Control as TWinControl);
     end;