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

lcl: add TPopupMenu.HelpContext property

Browse Source 
git-svn-id: trunk@22741 -
This commit is contained in:
paul 2009-11-24 09:22:35 +00:00
parent 9cf4e736f0
commit ecc39989c4
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/popupmenu.inc
View File

@ -17,6 +17,16 @@
*****************************************************************************
}
function TPopupMenu.GetHelpContext: THelpContext;
begin
Result := Items.HelpContext;
end;
procedure TPopupMenu.SetHelpContext(const AValue: THelpContext);
begin
Items.HelpContext := AValue;
end;
class procedure TPopupMenu.WSRegisterClass;
begin
inherited WSRegisterClass;

3
lcl/menus.pp
View File

@ -392,6 +392,8 @@ type
FPopupComponent: TComponent;
FPopupPoint: TPoint;
FTrackButton: TTrackButton;
function GetHelpContext: THelpContext;
procedure SetHelpContext(const AValue: THelpContext);
protected
class procedure WSRegisterClass; override;
procedure DoPopup(Sender: TObject); virtual;
@ -407,6 +409,7 @@ type
published
property Alignment: TPopupAlignment read FAlignment write FAlignment default paLeft;
property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True;
property HelpContext: THelpContext read GetHelpContext write SetHelpContext default 0;
property TrackButton: TTrackButton read FTrackButton write FTrackButton default tbRightButton;
property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;
property OnClose: TNotifyEvent read FOnClose write FOnClose;