From 0cc812fc62dd6bce7ffb49795ede0b6e44b2f5fb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 2 Jan 2009 13:29:10 +0000
Subject: [PATCH] synedit: forget to destroy markup info

git-svn-id: trunk@18047 -
---
 components/synedit/synguttercodefolding.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/synedit/synguttercodefolding.pp b/components/synedit/synguttercodefolding.pp
index 6272ca8ed7..70ee282822 100644
--- a/components/synedit/synguttercodefolding.pp
+++ b/components/synedit/synguttercodefolding.pp
@@ -19,6 +19,7 @@ type
     FMarkupInfoCodeFoldingTree: TSynSelectedColor;
   public
     constructor Create(AOwner : TSynEditBase; AFoldView : TSynEditFoldedView);
+    destructor Destroy; override;
 
     procedure Paint(Canvas: TCanvas; AClip: TRect; FirstLine, LastLine: integer);
       override;
@@ -50,6 +51,12 @@ begin
   Width := 14;
 end;
 
+destructor TSynGutterCodeFolding.Destroy;
+begin
+  FMarkupInfoCodeFoldingTree.Free;
+  inherited Destroy;
+end;
+
 function TSynGutterCodeFolding.RealGutterWidth(CharWidth : integer) : integer;
 begin
   If Visible then