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

IDE: Remove an extra (F9) from the hint of a Run-button. Remove a wrong hint from ProjInspector's Options button. Issue #40732.

Browse Source 
(cherry picked from commit 68a4595596)
This commit is contained in:
Juha 2024-01-27 15:01:05 +02:00 committed by Maxim Ganetsky
parent 4c8e6dfa11
commit d8fc71fe35
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -4174,16 +4174,14 @@ begin
// project change build mode // project change build mode
ACmd := IDECommandList.FindIDECommand(ecProjectChangeBuildMode); ACmd := IDECommandList.FindIDECommand(ecProjectChangeBuildMode);
AHint := lisChangeBuildMode+' '+KeyValuesToCaptionStr(ACmd.ShortcutA,ACmd.ShortcutB,'('); AHint := lisChangeBuildMode;
if Assigned(Project1) then if Assigned(Project1) then
AHint := AHint + sLineBreak + Project1.ActiveBuildMode.GetCaption; AHint := AHint + sLineBreak + Project1.ActiveBuildMode.GetCaption;
ACmd.Hint := AHint; ACmd.Hint := AHint;
if ProjInspector<>nil then
ProjInspector.OptionsBitBtn.Hint := AHint; //ProjInspector.UpdateTitle;
// run // run
ACmd := IDECommandList.FindIDECommand(ecRun); ACmd := IDECommandList.FindIDECommand(ecRun);
AHint := lisRun+' '+KeyValuesToCaptionStr(ACmd.ShortcutA,ACmd.ShortcutB,'('); AHint := lisRun;
if Assigned(Project1) and Assigned(Project1.RunParameterOptions.GetActiveMode) then if Assigned(Project1) and Assigned(Project1.RunParameterOptions.GetActiveMode) then
AHint := AHint + sLineBreak + Project1.RunParameterOptions.GetActiveMode.Name; AHint := AHint + sLineBreak + Project1.RunParameterOptions.GetActiveMode.Name;
ACmd.Hint := AHint; ACmd.Hint := AHint;