paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes issues with click on gutter (would not always toggle breakpoints, bug #12905)

Browse Source 
git-svn-id: trunk@18069 -
This commit is contained in:
martin 2009-01-02 21:06:18 +00:00
parent f6a909e5ec
commit 7b016fe8aa
2 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syngutter.pp
View File

@ -660,10 +660,12 @@ begin
i := 0;
x2 := x;
while i < FGutterPartList.Count-1 do begin
if x2 >= GutterPart[i].Width then
x2 := x2 - GutterPart[i].Width
else
break;
if GutterPart[i].Visible then begin
if x2 >= GutterPart[i].Width then
x2 := x2 - GutterPart[i].Width
else
break;
end;
inc(i)
end;
GutterPart[i].DoOnGutterClick(X, Y);

17
ide/sourceeditor.pp
View File

@ -2070,16 +2070,13 @@ procedure TSourceEditor.OnGutterClick(Sender: TObject; X, Y, Line: integer;
var
BreakPtMark: TSourceMark;
begin
if (not EditorComponent.Gutter.ShowCodeFolding)
or (X>=EditorComponent.Gutter.CodeFoldingWidth) then begin
// create or delete breakpoint
// find breakpoint mark at line
BreakPtMark := SourceEditorMarks.FindBreakPointMark(FEditor,Line);
if BreakPtMark = nil then
DebugBoss.DoCreateBreakPoint(Filename,Line,true)
else
DebugBoss.DoDeleteBreakPointAtMark(BreakPtMark);
end;
// create or delete breakpoint
// find breakpoint mark at line
BreakPtMark := SourceEditorMarks.FindBreakPointMark(FEditor,Line);
if BreakPtMark = nil then
DebugBoss.DoCreateBreakPoint(Filename,Line,true)
else
DebugBoss.DoDeleteBreakPointAtMark(BreakPtMark);
end;
procedure TSourceEditor.OnEditorSpecialLineColor(Sender: TObject; Line: integer;