Commit d982ce7

Nick committed on
Fix bug with loading keymaps
commit d982ce74c6711599e06f98034dd09c67e59fe147 parent 5a2ee3c
3 changed files +5−2
Modifiedoptions.pas +2−0
@@ -93,6 +93,8 @@ end;
93 93
94 procedure TfrmOptions.FormCreate(Sender: TObject); 94 procedure TfrmOptions.FormCreate(Sender: TObject);
95 begin 95 begin
96 KeyMapStringGrid.SaveOptions := soAll;
97
96 if FileExists('custom_keymap.km') then 98 if FileExists('custom_keymap.km') then
97 KeyMapStringGrid.LoadFromFile('custom_keymap.km'); 99 KeyMapStringGrid.LoadFromFile('custom_keymap.km');
98 100
Modifiedtracker.lfm +2−2
@@ -61,10 +61,10 @@ object frmTracker: TfrmTracker
61 Height = 521 61 Height = 521
62 Top = 0 62 Top = 0
63 Width = 1034 63 Width = 1034
64 ActivePage = CommentsTabSheet 64 ActivePage = GeneralTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 4 67 TabIndex = 0
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
Modifiedtracker.pas +1−0
@@ -1056,6 +1056,7 @@ begin
1056 else begin 1056 else begin
1057 StringGrid := TStringGrid.Create(nil); // UGH! 1057 StringGrid := TStringGrid.Create(nil); // UGH!
1058 try 1058 try
1059 StringGrid.SaveOptions := soAll;
1059 StringGrid.LoadFromFile('custom_keymap.km'); 1060 StringGrid.LoadFromFile('custom_keymap.km');
1060 LoadCustomKeybindings(StringGrid); 1061 LoadCustomKeybindings(StringGrid);
1061 finally 1062 finally