paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix "Read error" when copy-pasting TPairSplitter. Patch from August Klein, issue #19234

Browse Source 
git-svn-id: trunk@30563 -
This commit is contained in:
juha 2011-05-05 23:16:49 +00:00
parent 4348781a98
commit ea174afc6b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/pairsplitter.pas
View File

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