From 1e7998c60a0d9f6cc7b7fee63d0ac2d6104a7815 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 22 Jul 2018 11:36:10 +0000
Subject: [PATCH] SynEdit: Clean up

git-svn-id: trunk@58595 -
---
 components/synedit/syneditmarkupfoldcoloring.pas | 4 ----
 components/synedit/synguttercodefolding.pp       | 4 ----
 2 files changed, 8 deletions(-)

diff --git a/components/synedit/syneditmarkupfoldcoloring.pas b/components/synedit/syneditmarkupfoldcoloring.pas
index 427c7d0af0..edd76ec91b 100644
--- a/components/synedit/syneditmarkupfoldcoloring.pas
+++ b/components/synedit/syneditmarkupfoldcoloring.pas
@@ -381,8 +381,6 @@ end;
 { TSynEditMarkupFoldColors }
 
 constructor TSynEditMarkupFoldColors.Create(pSynEdit: TSynEditBase);
-var
-  i: Integer;
 begin
   inherited Create(pSynEdit);
 
@@ -432,8 +430,6 @@ begin
 end;
 
 destructor TSynEditMarkupFoldColors.Destroy;
-var
-  i: Integer;
 begin
   if Lines <> nil then
     Lines.Ranges[Self] := nil;
diff --git a/components/synedit/synguttercodefolding.pp b/components/synedit/synguttercodefolding.pp
index cc76a0d3ac..af4ac3dde4 100644
--- a/components/synedit/synguttercodefolding.pp
+++ b/components/synedit/synguttercodefolding.pp
@@ -385,8 +385,6 @@ begin
 end;
 
 procedure TSynGutterCodeFolding.ScalePPI(const AScaleFactor: Double);
-var
-  m: Integer;
 begin
   inherited ScalePPI(AScaleFactor);
   FPpiPenWidth := Max(1, Scale96ToFont(1));
@@ -412,8 +410,6 @@ begin
 end;
 
 procedure TSynGutterCodeFolding.SetWidth(const AValue: integer);
-var
-  m: Integer;
 begin
   if (Width=AValue) or (AutoSize) then exit;
   inherited SetWidth(AValue);