paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +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; class procedure TPopupMenu.WSRegisterClass;
begin begin
inherited WSRegisterClass; inherited WSRegisterClass;

3
lcl/menus.pp
View File

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