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

IDE/Help: Add a handler for the help button click event in TBaseHelpManager

Browse Source
This commit is contained in:
n7800 2025-06-22 15:55:13 +05:00 committed by Maxim Ganetsky
parent c604946f42
commit 3265bd28bd
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/idehelpintf.pas
View File

@ -96,6 +96,7 @@ type
procedure ShowHelpForMessage; virtual; abstract; procedure ShowHelpForMessage; virtual; abstract;
procedure ShowHelpForObjectInspector(Sender: TObject); virtual; abstract; procedure ShowHelpForObjectInspector(Sender: TObject); virtual; abstract;
procedure ShowHelpForIDEControl(Sender: TControl); virtual; abstract; procedure ShowHelpForIDEControl(Sender: TControl); virtual; abstract;
procedure HelpButtonClick(Sender: TObject);
function GetHintForSourcePosition(const ExpandedFilename: string; function GetHintForSourcePosition(const ExpandedFilename: string;
const CodePos: TPoint; out BaseURL, HTMLHint: string; const CodePos: TPoint; out BaseURL, HTMLHint: string;
Flags: TIDEHelpManagerCreateHintFlags = []): TShowHelpResult; virtual; abstract; Flags: TIDEHelpManagerCreateHintFlags = []): TShowHelpResult; virtual; abstract;
@ -286,6 +287,12 @@ end;
{ TBaseHelpManager } { TBaseHelpManager }
procedure TBaseHelpManager.HelpButtonClick(Sender: TObject);
begin
if Sender is TControl then
ShowHelpForIDEControl(TControl(Sender));
end;
procedure TBaseHelpManager.RegisterFPDocEditorTextButton(const aCaption, aHint: string; procedure TBaseHelpManager.RegisterFPDocEditorTextButton(const aCaption, aHint: string;
const OnExecute: TFPDocEditorTxtBtnClick); const OnExecute: TFPDocEditorTxtBtnClick);
var var