2024-08-06 13:54:25 +02:00
|
|
|
unit SetupLdrAndSetup.XPTheme;
|
2011-10-07 14:23:34 +02:00
|
|
|
|
|
|
|
|
{
|
|
|
|
|
Inno Setup
|
2024-03-27 13:20:38 +01:00
|
|
|
Copyright (C) 1997-2024 Jordan Russell
|
2011-10-07 14:23:34 +02:00
|
|
|
Portions by Martijn Laan
|
|
|
|
|
For conditions of distribution and use, see LICENSE.TXT.
|
|
|
|
|
|
2024-03-27 13:20:38 +01:00
|
|
|
Enables themes. Used only by the Setup and SetupLdr projects.
|
2011-10-07 14:23:34 +02:00
|
|
|
|
|
|
|
|
Note: XPTheme must be included as the first unit in the program's "uses"
|
|
|
|
|
clause so that its code runs before any VCL initialization code.
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
2024-08-06 13:54:25 +02:00
|
|
|
{$R SetupLdrAndSetup.XPTheme.res}
|
2011-10-07 14:23:34 +02:00
|
|
|
|
|
|
|
|
uses
|
2012-10-01 16:46:29 +02:00
|
|
|
Windows;
|
2012-09-09 23:06:25 +02:00
|
|
|
|
2012-10-01 16:46:29 +02:00
|
|
|
{ Avoid including Variants (via CommCtrl) in SetupLdr (SetupLdr uses XPTheme), saving 26 KB. }
|
2012-09-09 23:06:25 +02:00
|
|
|
procedure InitCommonControls; external comctl32 name 'InitCommonControls';
|
2011-10-07 14:23:34 +02:00
|
|
|
|
|
|
|
|
initialization
|
|
|
|
|
InitCommonControls;
|
|
|
|
|
end.
|
