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

lcl: made TPopupMenu.DoClose a virtual protected method, like DoPopup (bug #9426) from Luiz

Browse Source 
git-svn-id: trunk@11808 -
This commit is contained in:
vincents 2007-08-13 21:39:05 +00:00
parent 31a2d5bbb8
commit 70af0c3bc1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/menus.pp
View File

@ -348,6 +348,7 @@ type
FPopupPoint: TPoint; FPopupPoint: TPoint;
protected protected
procedure DoPopup(Sender: TObject); virtual; procedure DoPopup(Sender: TObject); virtual;
procedure DoClose; virtual;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -356,7 +357,6 @@ type
write FPopupComponent; write FPopupComponent;
property PopupPoint: TPoint read FPopupPoint; property PopupPoint: TPoint read FPopupPoint;
procedure Close; procedure Close;
procedure DoClose;
published published
property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True; property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True;
property OnPopup: TNotifyEvent read FOnPopup write FOnPopup; property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;