mirror of https://gitlab.com/basile.b/dexed.git
added new editor shortcut to activate synchro edit
+ options, handling of new shortcuts from a version to another
This commit is contained in:
parent
5695baa946
commit
9cfad0014e
|
@ -333,10 +333,56 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCEEditorOptions.afterLoad;
|
procedure TCEEditorOptions.afterLoad;
|
||||||
|
var
|
||||||
|
ed: TSynEdit;
|
||||||
|
shc: TCEPersistentShortcut;
|
||||||
|
i,j: integer;
|
||||||
|
exists: boolean;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
D2Syn.Assign(fD2Syn);
|
D2Syn.Assign(fD2Syn);
|
||||||
TxtSyn.Assign(fTxtSyn);
|
TxtSyn.Assign(fTxtSyn);
|
||||||
|
//
|
||||||
|
ed := TSynEdit.Create(nil);
|
||||||
|
try
|
||||||
|
SetDefaultCoeditKeystrokes(ed);
|
||||||
|
// new version with more shortcuts
|
||||||
|
for i:= 0 to ed.Keystrokes.Count-1 do
|
||||||
|
begin
|
||||||
|
exists := false;
|
||||||
|
for j := 0 to fShortcuts.count-1 do
|
||||||
|
begin
|
||||||
|
if TCEPersistentShortcut(fShortCuts.Items[j]).actionName <>
|
||||||
|
EditorCommandToCodeString(ed.Keystrokes.Items[i].Command) then
|
||||||
|
continue;
|
||||||
|
exists := true;
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
if exists then
|
||||||
|
continue;
|
||||||
|
shc := TCEPersistentShortcut(fShortCuts.Add);
|
||||||
|
shc.actionName := EditorCommandToCodeString(ed.Keystrokes.Items[i].Command);
|
||||||
|
shc.shortcut := ed.Keystrokes.Items[i].ShortCut;
|
||||||
|
end;
|
||||||
|
// new version wih less shortcuts
|
||||||
|
for j := fShortcuts.count-1 downto 0 do
|
||||||
|
begin
|
||||||
|
exists := false;
|
||||||
|
for i:= 0 to ed.Keystrokes.Count-1 do
|
||||||
|
begin
|
||||||
|
if TCEPersistentShortcut(fShortCuts.Items[j]).actionName <>
|
||||||
|
EditorCommandToCodeString(ed.Keystrokes.Items[i].Command) then
|
||||||
|
continue;
|
||||||
|
exists := true;
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
if exists then
|
||||||
|
continue;
|
||||||
|
fShortCuts.Delete(j);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ed.free;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
{$ENDREGION}
|
{$ENDREGION}
|
||||||
|
|
||||||
|
|
|
@ -975,6 +975,8 @@ begin
|
||||||
AddKey(ecColSelLineEnd, VK_END, [ssAlt, ssShift], 0, []);
|
AddKey(ecColSelLineEnd, VK_END, [ssAlt, ssShift], 0, []);
|
||||||
AddKey(ecColSelEditorTop, VK_HOME, [ssAlt, ssShift,ssCtrl], 0, []);
|
AddKey(ecColSelEditorTop, VK_HOME, [ssAlt, ssShift,ssCtrl], 0, []);
|
||||||
AddKey(ecColSelEditorBottom, VK_END, [ssAlt, ssShift,ssCtrl], 0, []);
|
AddKey(ecColSelEditorBottom, VK_END, [ssAlt, ssShift,ssCtrl], 0, []);
|
||||||
|
AddKey(ecSynPSyncroEdStart, ord('E'), [ssCtrl], 0, []);
|
||||||
|
AddKey(ecSynPSyncroEdEscape, ord('E'), [ssCtrl, ssShift], 0, []);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
{$ENDREGION --------------------------------------------------------------------}
|
{$ENDREGION --------------------------------------------------------------------}
|
||||||
|
|
Loading…
Reference in New Issue