paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:10:22 +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;
protected
procedure DoPopup(Sender: TObject); virtual;
procedure DoClose; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -356,7 +357,6 @@ type
write FPopupComponent;
property PopupPoint: TPoint read FPopupPoint;
procedure Close;
procedure DoClose;
published
property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True;
property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;