forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix possible range violation when using older version with newer settings 

if new shortcuts added since old one
This commit is contained in:
Basile Burg 2018-03-16 17:34:47 +01:00
parent f1ba2e982f
commit d1daae3a29
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ce_main.pas
View File

@ -1128,20 +1128,25 @@ end;
procedure TCEPersistentMainShortcuts.assignTo(target: TPersistent);
var
itm: TCEPersistentShortcut;
i,j: Integer;
m: TCEPersistentShortcut;
a: TAction;
i: integer;
j: integer;
begin
if target = CEMainForm then
for i:= 0 to fCol.Count-1 do
begin
m := TCEPersistentShortcut(fCol.Items[i]);
for j := 0 to CEMainForm.Actions.ActionCount-1 do
begin
itm := TCEPersistentShortcut(fCol.Items[i]);
for j := 0 to CEMainForm.Actions.ActionCount-1 do
if CEMainForm.Actions.Actions[i].Name = itm.actionName then
begin
TAction(CEMainForm.Actions.Actions[i]).Shortcut := itm.shortcut;
break;
end;
end
a := TAction(CEMainForm.Actions.Actions[j]);
if a.Name = m.actionName then
begin
a.shortcut := m.shortcut;
break;
end;
end;
end
else inherited;
end;
{$ENDREGION}