GitHub-Mirror
/
x2cl
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Changed: Designer property is now public (AV in designer turned out to be an outdated package)

This commit is contained in:
Mark van Renswoude 2009-03-30 11:20:23 +00:00
parent 5ff5d3e6ff
commit a9c1bcc0d6
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Packages/X2CLMenuBarEditor.pas
View File

@ -89,9 +89,6 @@ var
GEditors: TObjectBucketList;
type
TProtectedX2CustomMenuBar = class(TX2CustomMenuBar);
{$R *.dfm}
@ -517,8 +514,8 @@ begin
if FDesignerAttached or (not Assigned(MenuBar)) then
exit;
TProtectedX2CustomMenuBar(MenuBar).Designer := Self;
FDesignerAttached := True;
MenuBar.Designer := Self;
FDesignerAttached := True;
end;
@ -529,7 +526,7 @@ begin
FDesignerAttached := False;
if Assigned(MenuBar) then
TProtectedX2CustomMenuBar(MenuBar).Designer := nil;
MenuBar.Designer := nil;
end;

4
Source/X2CLMenuBar.pas
View File

@ -468,8 +468,6 @@ type
procedure TestMousePos(); virtual;
function GetMenuHeight(): Integer; virtual;
property Designer: IX2MenuBarDesigner read FDesigner write FDesigner;
protected
procedure SetPainter(const Value: TX2CustomMenuBarPainter); virtual;
@ -574,6 +572,8 @@ type
property Images: TCustomImageList read FImages write SetImages;
property Painter: TX2CustomMenuBarPainter read FPainter write SetPainter;
property SelectedItem: TX2CustomMenuBarItem read FSelectedItem write SetSelectedItem;
property Designer: IX2MenuBarDesigner read FDesigner write FDesigner;
end;