From 5e20c53e21d0c96a56abda53e490602bd555b57a Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sun, 30 Nov 2025 15:28:03 +0100
Subject: [PATCH] fix: tree with keyboard actions shows wrong captions

---
 source/main.pas        | 2 ++
 source/preferences.pas | 1 +
 2 files changed, 3 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index dec618d4..b379395a 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -2069,6 +2069,8 @@ begin
   FActionList1DefaultCaptions := TStringList.Create;
   FActionList1DefaultHints := TStringList.Create;
   for i:=0 to ActionList1.ActionCount-1 do begin
+    Action := TAction(ActionList1.Actions[i]);
+    Action.ShortCut := AppSettings.ReadInt(asActionShortcut1, Action.Name, Action.ShortCut);
     FActionList1DefaultCaptions.Insert(i, Action.Caption);
     FActionList1DefaultHints.Insert(i, Action.Hint);
   end;
diff --git a/source/preferences.pas b/source/preferences.pas
index 2b919d54..9e05d855 100644
--- a/source/preferences.pas
+++ b/source/preferences.pas
@@ -1244,6 +1244,7 @@ begin
   end;
 end;
 
+
 procedure TfrmPreferences.TreeShortcutItemsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
   var InitialStates: TVirtualNodeInitStates);
 var