From ea174afc6bce1ead183a30a4103cb6a60cafcb47 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 5 May 2011 23:16:49 +0000
Subject: [PATCH] LCL: Fix "Read error" when copy-pasting TPairSplitter. Patch
 from August Klein, issue #19234

git-svn-id: trunk@30563 -
---
 lcl/pairsplitter.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/pairsplitter.pas b/lcl/pairsplitter.pas
index addbd4b6b3..4c4b4e9a10 100644
--- a/lcl/pairsplitter.pas
+++ b/lcl/pairsplitter.pas
@@ -362,7 +362,8 @@ begin
   with GetControlClassDefaultSize do
     SetInitialBounds(0, 0, CX, CY);
   FPosition:=45;
-  CreateSides;
+  if not (csDesigning in ComponentState) then
+    CreateSides;
 end;
 
 destructor TCustomPairSplitter.Destroy;
@@ -382,6 +383,7 @@ var
   i: Integer;
   APosition: Integer;
 begin
+  CreateSides;
   inherited CreateWnd;
   for i := Low(FSides) to High(FSides) do
     if FSides[i] <> nil then