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

Merge branch 'IDE/Help/HelpButton' into 'main'

Browse Source 
IDE/Help: Mention in the help button hint that it will open in the browser

See merge request freepascal.org/lazarus/lazarus!537
This commit is contained in:
Juha Manninen 2025-07-14 12:42:05 +00:00
commit bd768042b8
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -5013,6 +5013,7 @@ resourcestring
lisHOFPCDocHTMLPath = 'FPC Doc HTML Path';
lisHlpOptsProperties = 'Properties:';
lisHlpOptsDatabases = 'Databases';
lisOpenContextHelpInBrowser = 'Open context help in the browser';
// enclose selection dialog
lisChooseStructureToEncloseSelection = 'Choose structure to enclose selection';

7
ide/main.pp
View File

@ -12581,11 +12581,14 @@ begin
lHelpButton.OnClick:=@LazarusHelp.HelpButtonClick;
// set shortcut hint
if lHelpButton.Hint='' then begin
// explain the button action
lHelpButton.ShowHint:=true;
lHelpButton.Hint:=lisOpenContextHelpInBrowser;
// maybe add shortcut
lContextHelpCommand:=IDECommandList.FindIDECommand(ecContextHelp);
if Assigned(lContextHelpCommand) then begin
with lContextHelpCommand do
lHelpButton.Hint:=KeyValuesToCaptionStr(ShortcutA,ShortcutB);
lHelpButton.ShowHint:=true;
lHelpButton.Hint:=lHelpButton.Hint+' '+KeyValuesToCaptionStr(ShortcutA,ShortcutB);
end;
end;
end;