From facd1187fc6033fc86a5672763bde4d095d08aee Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sat, 4 Jan 2025 13:38:50 +0200
Subject: [PATCH] IDE: Add [Ctrl+P] shortvut to Messages window. Part of merge
 request !397 by n7800.

---
 ide/etmessageframe.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index 145739d8f1..2b1832ab9a 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -1857,6 +1857,16 @@ begin
       end;
     Key := 0;
   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 }