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

fix #203 - Wrong gutter icon after deleting the breakpoint that's reached

This commit is contained in:
Basile Burg 2017-11-22 04:09:02 +01:00
parent ede95a3cc6
commit 1e973d2f8d
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_synmemo.pas
View File

@ -278,6 +278,7 @@ type
// //
procedure gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark); procedure gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
procedure removeDebugTimeMarks; procedure removeDebugTimeMarks;
function isGutterIconSet(line: integer; value: TGutterIcon): boolean;
function findBreakPoint(line: integer): boolean; function findBreakPoint(line: integer): boolean;
procedure debugStart(debugger: ICEDebugger); procedure debugStart(debugger: ICEDebugger);
procedure debugStop; procedure debugStop;
@ -3251,12 +3252,17 @@ begin
end; end;
procedure TCESynMemo.removeBreakPoint(line: integer); procedure TCESynMemo.removeBreakPoint(line: integer);
var
break2step: boolean;
begin begin
if not findBreakPoint(line) then if not findBreakPoint(line) then
exit; exit;
break2step := isGutterIconSet(line, giBreakReached);
removeGutterIcon(line, giBreakSet); removeGutterIcon(line, giBreakSet);
if assigned(fDebugger) then if assigned(fDebugger) then
fDebugger.removeBreakPoint(fFilename, line); fDebugger.removeBreakPoint(fFilename, line);
if break2step then
addGutterIcon(line, giStep);
end; end;
procedure TCESynMemo.showHintEvent(Sender: TObject; HintInfo: PHintInfo); procedure TCESynMemo.showHintEvent(Sender: TObject; HintInfo: PHintInfo);
@ -3282,7 +3288,7 @@ begin
DecPaintLock; DecPaintLock;
end; end;
function TCESynMemo.findBreakPoint(line: integer): boolean; function TCESynMemo.isGutterIconSet(line: integer; value: TGutterIcon): boolean;
var var
m: TSynEditMarkLine = nil; m: TSynEditMarkLine = nil;
i: integer; i: integer;
@ -3292,10 +3298,15 @@ begin
m := marks.Line[line]; m := marks.Line[line];
if m.isNotNil then if m.isNotNil then
for i := 0 to m.count - 1 do for i := 0 to m.count - 1 do
if m[i].ImageIndex = integer(giBreakSet) then if (m[i].ImageIndex = integer(value)) then
exit(true); exit(true);
end; end;
function TCESynMemo.findBreakPoint(line: integer): boolean;
begin
result := isGutterIconSet(line, giBreakSet);
end;
procedure TCESynMemo.gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark); procedure TCESynMemo.gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
begin begin
if findBreakPoint(line) then if findBreakPoint(line) then