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

LCL: Do not free the side components of PairSplitter. They are owned and will be freed later.

Browse Source 
git-svn-id: trunk@64224 -
This commit is contained in:
juha 2020-12-18 10:51:36 +00:00
parent 7f0dc5b547
commit 4c9264496d
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/pairsplitter.pas
View File

@ -42,7 +42,6 @@ type
TPairSplitterSide = class(TWinControl)
private
fCreatedBySplitter: boolean;
function GetSplitter: TCustomPairSplitter;
protected
class procedure WSRegisterClass; override;
@ -388,14 +387,8 @@ begin
end;
destructor TCustomPairSplitter.Destroy;
var
i: Integer;
begin
// destroy the sides
fDoNotCreateSides:=true;
for i:=Low(FSides) to High(FSides) do
if (FSides[i]<>nil) and (FSides[i].fCreatedBySplitter) then
FSides[i].Free;
inherited Destroy;
end;
@ -433,8 +426,7 @@ var
ASide: TPairSplitterSide;
i: Integer;
begin
if fDoNotCreateSides or (csDestroying in ComponentState)
or (csLoading in ComponentState)
if fDoNotCreateSides or (ComponentState * [csLoading,csDestroying] <> [])
or ((Owner<>nil) and (csLoading in Owner.ComponentState)) then exit;
// create the missing side controls
for i := Low(FSides) to High(FSides) do
@ -443,7 +435,6 @@ begin
// For streaming it is important that the side controls are owned by
// the owner of the splitter
ASide:=TPairSplitterSide.Create(Owner);
ASide.fCreatedBySplitter:=true;
ASide.Parent:=Self;
end;
end;