1
0
mirror of synced 2024-11-14 15:03:50 +00:00

Delphi XE2 compatibility

This commit is contained in:
Mark van Renswoude 2013-12-06 13:08:57 +00:00
parent 78f2b65e9c
commit 9ffd13c06e

View File

@ -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;