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

IDE: Add [Ctrl+P] shortvut to Messages window. Part of merge request !397 by n7800.

Browse Source
This commit is contained in:
Juha 2025-01-04 13:38:50 +02:00
parent f762946f60
commit facd1187fc
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/etmessageframe.pas
View File

@ -1857,6 +1857,16 @@ begin
end; end;
Key := 0; Key := 0;
end end
else if (Key = VK_P) and (Shift = [ssCtrl]) then
begin
with TMessagesFrame(Owner) do
case MessagesCtrl.FilenameStyle of
mwfsShort: FileStyleMenuItemClick(MsgFileStyleRelativeMenuItem);
mwfsRelative: FileStyleMenuItemClick(MsgFileStyleFullMenuItem);
mwfsFull: FileStyleMenuItemClick(MsgFileStyleShortMenuItem);
end;
Key := 0;
end
{ Clipboard } { Clipboard }