From f2d9c5841de1982c83b5cc5fe51d607a1e28cb7d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 26 May 2010 23:07:13 +0000
Subject: [PATCH] SynEdit: Fix Lines.SetCapacity

git-svn-id: trunk@25676 -
---
 components/synedit/synedittextbuffer.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/synedit/synedittextbuffer.pp b/components/synedit/synedittextbuffer.pp
index c48e4f645e..d55e8b2884 100644
--- a/components/synedit/synedittextbuffer.pp
+++ b/components/synedit/synedittextbuffer.pp
@@ -1005,7 +1005,10 @@ end;
 
 procedure TSynEditStringList.SetCapacity(NewCapacity: integer);
 begin
+  if NewCapacity < Count then
+    fList.Count := NewCapacity;
   fList.SetCapacity(NewCapacity);
+  IncreaseTextChangeStamp;
 end;
 
 procedure TSynEditStringList.SetUpdateState(Updating: Boolean; Sender: TObject);