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

SynEdit: fixed check for max marks per line (gutter marks)

Browse Source 
git-svn-id: trunk@42204 -
This commit is contained in:
martin 2013-07-25 16:02:55 +00:00
parent bbc287d669
commit 08b51de095
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synguttermarks.pp
View File

@ -28,7 +28,7 @@ type
var aFirstCustomColumnIdx: integer): Boolean; var aFirstCustomColumnIdx: integer): Boolean;
Procedure PaintLine(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect); virtual; Procedure PaintLine(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect); virtual;
property ColumnWidth: Integer read FColumnWidth; property ColumnWidth: Integer read FColumnWidth; // initialized in Paint
property ColumnCount: Integer read FColumnCount; property ColumnCount: Integer read FColumnCount;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -168,7 +168,7 @@ begin
then then
aFirstCustomColumnIdx := j; // first none-bookmark column aFirstCustomColumnIdx := j; // first none-bookmark column
if j > ColumnCount then break; if j >= ColumnCount then break;
LastMarkIsBookmark := MLine[j].IsBookmark; LastMarkIsBookmark := MLine[j].IsBookmark;
end; end;
end; end;