Skip to content

Commit

Permalink
compiler conditional fix
Browse files Browse the repository at this point in the history
  • Loading branch information
vincentparrett committed Jun 17, 2024
1 parent 955ea83 commit 818a901
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
4 changes: 2 additions & 2 deletions Source/IDE/EditorView/DPM.IDE.EditorViewFrame.pas
Original file line number Diff line number Diff line change
Expand Up @@ -227,7 +227,7 @@ implementation
System.Diagnostics,
WinApi.ActiveX,
Winapi.CommCtrl,
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
BrandingAPI,
{$IFEND}
DPM.Core.Constants,
Expand Down Expand Up @@ -488,7 +488,7 @@ constructor TDPMEditViewFrame.Create(AOwner: TComponent);

ideThemeSvc := (BorlandIDEServices as IOTAIDEThemingServices);
ideThemeSvc.ApplyTheme(Self);
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
if TIDEThemeMetrics.Font.Enabled then
begin
Font.Assign( TIDEThemeMetrics.Font.GetFont );
Expand Down
4 changes: 2 additions & 2 deletions Source/IDE/EditorView/DPM.IDE.PackageDetailsFrame.pas
Original file line number Diff line number Diff line change
Expand Up @@ -188,7 +188,7 @@ implementation
WinApi.ShellApi,
WinApi.ActiveX,
WinApi.CommCtrl,
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
BrandingAPI,
{$IFEND}
DPM.IDE.Constants,
Expand Down Expand Up @@ -505,7 +505,7 @@ constructor TPackageDetailsFrame.Create(AOwner : TComponent);
{$IFDEF STYLEELEMENTS}
StyleElements := [seFont];
{$ENDIF}
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
if TIDEThemeMetrics.Font.Enabled then
begin
Font.Assign( TIDEThemeMetrics.Font.GetFont );
Expand Down
4 changes: 2 additions & 2 deletions Source/IDE/EditorView/DPM.IDE.PackageDetailsPanel.pas
Original file line number Diff line number Diff line change
Expand Up @@ -111,7 +111,7 @@ implementation
System.UITypes,
Vcl.Themes,
Vcl.Forms,
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
BrandingAPI,
{$IFEND}
Spring.Collections,
Expand Down Expand Up @@ -150,7 +150,7 @@ constructor TPackageDetailsPanel.Create(AOwner : TComponent);
{$IFDEF STYLEELEMENTS}
StyleElements := [seFont,seClient];
{$ENDIF}
{$IF CompilerVersion > 33.0 }
{$IF CompilerVersion > 34.0 }
if TIDEThemeMetrics.Font.Enabled then
begin
Font.Assign( TIDEThemeMetrics.Font.GetFont );
Expand Down

0 comments on commit 818a901

Please sign in to comment.