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