GitHub-Mirror/x2cl
1
0
Fork 0
mirror of synced 2024-11-22 01:53:50 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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; GEditors: TObjectBucketList;
type
TProtectedX2CustomMenuBar = class(TX2CustomMenuBar);
{$R *.dfm} {$R *.dfm}
@ -517,8 +514,8 @@ begin
if FDesignerAttached or (not Assigned(MenuBar)) then if FDesignerAttached or (not Assigned(MenuBar)) then
exit; exit;
TProtectedX2CustomMenuBar(MenuBar).Designer := Self; MenuBar.Designer := Self;
FDesignerAttached := True; FDesignerAttached := True;
end; end;
@ -529,7 +526,7 @@ begin
FDesignerAttached := False; FDesignerAttached := False;
if Assigned(MenuBar) then if Assigned(MenuBar) then
TProtectedX2CustomMenuBar(MenuBar).Designer := nil; MenuBar.Designer := nil;
end; end;

4
Source/X2CLMenuBar.pas
View File

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