Delphi XE2 compatibility
This commit is contained in:
parent
78f2b65e9c
commit
9ffd13c06e
@ -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;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user