paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: clean-up

Browse Source 
git-svn-id: trunk@24561 -
This commit is contained in:
martin 2010-04-10 18:23:33 +00:00
parent 1c3a760803
commit 0fb0a40d23
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synguttermarks.pp
View File

@ -147,10 +147,7 @@ end;
procedure TSynGutterMarks.Paint(Canvas : TCanvas; AClip : TRect; FirstLine, LastLine : integer);
var
i, iLine: integer;
aGutterOffs: Integer;
LineHeight: Integer;
HasAnyMark: Boolean;
i, LineHeight: integer;
begin
if not Visible then exit;
LineHeight := TSynEdit(SynEdit).LineHeight;