paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 11:40:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix guttermarks, result was undefined. This fixes debug-marks

Browse Source 
git-svn-id: trunk@27806 -
This commit is contained in:
martin 2010-10-21 22:18:04 +00:00
parent 94f29dfbd2
commit db47df6291
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synguttermarks.pp
View File

@ -20,6 +20,7 @@ type
FBookMarkOpt: TSynBookMarkOpt;
procedure Init; override;
function PreferedWidth: Integer; override;
// PaintMarks: True, if it has any Mark, that is *not* a bookmark
function PaintMarks(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect;
var aGutterOffs: integer): Boolean;
Procedure PaintLine(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect); virtual;
@ -111,18 +112,19 @@ var
iLine, j: Integer;
MLine: TSynEditMarkLine;
begin
Result := False;
LineHeight := TSynEdit(SynEdit).LineHeight;
iLine := FoldView.TextIndex[aScreenLine] + 1;
MLine := TSynEdit(SynEdit).Marks.Line[iLine];
if MLine = nil then
exit;;
exit;
if FBookMarkOpt.DrawBookmarksFirst then
MLine.Sort(smsoBookmarkFirst, smsoColumn)
else
MLine.Sort(smsoBookMarkLast, smsoColumn);
Result := False;
for j := 0 to MLine.Count - 1 do begin
if not MLine[j].Visible then
continue;