paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +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;
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;
public
constructor Create(AOwner: TComponent); override;
@ -168,7 +168,7 @@ begin
then
aFirstCustomColumnIdx := j; // first none-bookmark column
if j > ColumnCount then break;
if j >= ColumnCount then break;
LastMarkIsBookmark := MLine[j].IsBookmark;
end;
end;