paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:11:51 +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
This commit is contained in:
Juha 2024-01-27 15:01:05 +02:00
parent 079f108f36
commit 68a4595596
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

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