opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

fix: tree with keyboard actions shows wrong captions

Browse Source
This commit is contained in:
Ansgar Becker
2025-11-30 15:28:03 +01:00
parent 4322372c30
commit 5e20c53e21
2 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.pas
View File

@@ -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;

1
source/preferences.pas
View File

@@ -1244,6 +1244,7 @@ begin
end;
end;
procedure TfrmPreferences.TreeShortcutItemsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
var