From 9ffd13c06e6f6ca33e6df82d3333f8273dd2f09d Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Fri, 6 Dec 2013 13:08:57 +0000 Subject: [PATCH] Delphi XE2 compatibility --- Packages/X2CLMenuBarEditor.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Packages/X2CLMenuBarEditor.pas b/Packages/X2CLMenuBarEditor.pas index 966193e..ef37e55 100644 --- a/Packages/X2CLMenuBarEditor.pas +++ b/Packages/X2CLMenuBarEditor.pas @@ -120,13 +120,13 @@ end; procedure TfrmMenuBarEditor.FormCreate(Sender: TObject); begin - {$IFDEF VER180} + {$IF CompilerVersion >= 18} // Delphi (BDS) 2006 tbMenu.EdgeBorders := []; tbMenu.DrawingStyle := dsGradient; {$ELSE} tbMenu.Flat := True; - {$ENDIF} + {$IFEND} end;