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

IDE/MessagesWnd: Support Ctrl-F also before the popup menu is opened.

Browse Source
This commit is contained in:
Juha 2025-08-23 22:34:40 +03:00
parent 73e0d3c2c6
commit c37fccab76
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/etmessageframe.pas
View File

@ -2254,6 +2254,12 @@ begin
TMessagesFrame(Owner).HideSearch;
Key := 0;
end
// search, needed because Find menu shortcut is initialized only at popup event.
else if (Key = VK_F) and (Shift = [ssCtrl]) then
begin
TMessagesFrame(Owner).FindMenuItemClick(nil);
Key := 0;
end
// search next
else if (Key = VK_F3) and (Shift = []) then
begin
@ -3466,7 +3472,6 @@ begin
HideSearch;
Key := 0;
end
else if (Key in [VK_RETURN, VK_F3]) and (Shift = []) then
begin
MessagesCtrl.SelectNextOccurrence(true);
@ -3476,7 +3481,10 @@ begin
begin
MessagesCtrl.SelectNextOccurrence(false);
Key := 0;
end;
end
// Eat Ctrl-F
else if (Key = VK_F) and (Shift = [ssCtrl]) then
Key := 0;
end;
procedure TMessagesFrame.SearchNextSpeedButtonClick(Sender: TObject);