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

editor, add shortcuts to add/rem/toggle brealpoints

This commit is contained in:
Basile Burg 2016-12-21 00:44:53 +01:00
parent 91c4e64078
commit d2e001cf92
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/ce_synmemo.pas
View File

@ -268,6 +268,9 @@ type
procedure previousProtectionGroup;
procedure nextProtectionGroup;
procedure sortLines;
procedure addCurLineBreakPoint;
procedure removeCurLineBreakPoint;
procedure toggleCurLineBreakpoint;
function implementMain: THasMain;
procedure replaceUndoableContent(const value: string);
//
@ -339,6 +342,9 @@ const
ecSortLines = ecUserFirst + 19;
ecPrevProtGrp = ecUserFirst + 20;
ecNextProtGrp = ecUserFirst + 21;
ecAddBreakpoint = ecUserFirst + 22;
ecRemoveBreakpoint = ecUserFirst + 23;
ecToggleBreakpoint = ecUserFirst + 24;
var
D2Syn: TSynD2Syn; // used as model to set the options when no editor exists.
@ -970,6 +976,9 @@ begin
AddKey(ecSortLines, 0, [], 0, []);
AddKey(ecPrevProtGrp, 0, [], 0, []);
AddKey(ecNextProtGrp, 0, [], 0, []);
AddKey(ecAddBreakpoint, 0, [], 0, []);
AddKey(ecRemoveBreakpoint, 0, [], 0, []);
AddKey(ecToggleBreakpoint, 0, [], 0, []);
end;
end;
@ -997,6 +1006,9 @@ begin
'ecSortLines': begin Int := ecSortLines; exit(true); end;
'ecNextProtGrp': begin Int := ecNextProtGrp; exit(true); end;
'ecPrevProtGrp': begin Int := ecPrevProtGrp; exit(true); end;
'ecAddBreakpoint': begin Int := ecAddBreakpoint; exit(true); end;
'ecRemoveBreakpoint': begin Int := ecRemoveBreakpoint; exit(true); end;
'ecToggleBreakpoint': begin Int := ecToggleBreakpoint; exit(true); end;
else exit(false);
end;
end;
@ -1025,6 +1037,9 @@ begin
ecSortLines: begin Ident := 'ecSortLines'; exit(true); end;
ecNextProtGrp: begin Ident := 'ecNextProtGrp'; exit(true); end;
ecPrevProtGrp: begin Ident := 'ecPrevProtGrp'; exit(true); end;
ecAddBreakpoint: begin Ident := 'ecAddBreakpoint'; exit(true); end;
ecRemoveBreakpoint: begin Ident := 'ecRemoveBreakpoint'; exit(true); end;
ecToggleBreakpoint: begin Ident := 'ecToggleBreakpoint'; exit(true); end;
else exit(false);
end;
end;
@ -1089,6 +1104,12 @@ begin
previousProtectionGroup;
ecNextProtGrp:
nextProtectionGroup;
ecAddBreakpoint:
addCurLineBreakPoint;
ecRemoveBreakpoint:
removeCurLineBreakPoint;
ecToggleBreakpoint:
toggleCurLineBreakpoint;
end;
if fOverrideColMode and not SelAvail then
begin
@ -1787,6 +1808,26 @@ begin
fSortDialog := TSortDialog.construct(self);
fSortDialog.Show;
end;
procedure TCESynMemo.addCurLineBreakPoint;
begin
if not findBreakPoint(CaretY) then
addBreakPoint(CaretY);
end;
procedure TCESynMemo.removeCurLineBreakPoint;
begin
if findBreakPoint(CaretY) then
removeBreakPoint(CaretY);
end;
procedure TCESynMemo.toggleCurLineBreakpoint;
begin
if not findBreakPoint(CaretY) then
addBreakPoint(CaretY)
else
removeBreakPoint(CaretY);
end;
{$ENDREGION}
{$REGION DDoc & CallTip --------------------------------------------------------}