mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Crash when no shortcut file selected.

Browse source
This commit is contained in:
cobines 2011-09-01 19:15:19 +00:00
commit cac0c5db65
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/frames/foptionshotkeys.pas
View file

@ -295,8 +295,11 @@ end;
procedure TfrmOptionsHotkeys.lbSCFilesListSelectionChange(Sender: TObject; User: boolean);
begin
HotMan.Load(gpCfgDir + lbSCFilesList.Items[lbSCFilesList.ItemIndex]);
FillCommandsPage;
if lbSCFilesList.ItemIndex >= 0 then
begin
HotMan.Load(gpCfgDir + lbSCFilesList.Items[lbSCFilesList.ItemIndex]);
FillCommandsPage;
end;
end;
procedure TfrmOptionsHotkeys.lbxCategoriesSelectionChange(Sender: TObject; User: boolean);
@ -697,8 +700,9 @@ function TfrmOptionsHotkeys.Save: TOptionsEditorSaveFlags;
begin
Result := [];
{save hot keys file}
gNameSCFile := lbSCFilesList.Items[lbSCFilesList.ItemIndex];
// Save hotkeys file name.
if lbSCFilesList.ItemIndex >= 0 then
gNameSCFile := lbSCFilesList.Items[lbSCFilesList.ItemIndex];
end;
initialization