paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added helper functions to enable streaming of TMenu / TMenuItem

Browse Source 
stoppok

git-svn-id: trunk@1696 -
This commit is contained in:
lazarus 2002-05-19 08:28:50 +00:00
parent 5bd3345a54
commit 35af800545
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/menus.pp
View File

@ -88,6 +88,7 @@ type
procedure SetShortCut(Value : TShortCut); procedure SetShortCut(Value : TShortCut);
procedure SetVisible(Value: Boolean); procedure SetVisible(Value: Boolean);
procedure MenuChanged(Rebuild : Boolean); procedure MenuChanged(Rebuild : Boolean);
procedure SetParentComponent(Value : TComponent); override;
public public
FCompStyle : LongInt; FCompStyle : LongInt;
procedure Add(Item: TMenuItem); procedure Add(Item: TMenuItem);
@ -126,6 +127,7 @@ type
protected protected
procedure CreateHandle; virtual; procedure CreateHandle; virtual;
function GetHandle: HMENU; virtual; function GetHandle: HMENU; virtual;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public public
FCompStyle: LongInt; FCompStyle: LongInt;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -143,6 +145,8 @@ type
TMainMenu = class(TMenu) TMainMenu = class(TMenu)
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
published
property Items;
end; end;
TPopupMenu = class(TMenu) TPopupMenu = class(TMenu)
@ -209,6 +213,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2002/05/19 08:28:50 lazarus
+ added helper functions to enable streaming of TMenu / TMenuItem
stoppok
Revision 1.11 2002/05/15 05:58:17 lazarus Revision 1.11 2002/05/15 05:58:17 lazarus
MG: added TMainMenu.Parent MG: added TMainMenu.Parent