mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
32 lines
503 B
ObjectPascal
32 lines
503 B
ObjectPascal
unit newToggleBox;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
windows, UxTheme,Classes, SysUtils, StdCtrls;
|
|
|
|
type
|
|
TNewToggleBox=class(StdCtrls.TToggleBox)
|
|
protected
|
|
procedure ChildHandlesCreated; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses betterControls;
|
|
|
|
procedure TNewToggleBox.ChildHandlesCreated;
|
|
begin
|
|
inherited ChildHandlesCreated;
|
|
if ShouldAppsUseDarkMode and (Parent<>nil) then
|
|
begin
|
|
AllowDarkModeForWindow(handle, 1);
|
|
SetWindowTheme(handle, 'EXPLORER', nil);
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|
|
|