mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 19:19:19 +02:00
fix mem leak in docking code
git-svn-id: trunk@14496 -
This commit is contained in:
parent
38fa89e83c
commit
820cc2f396
@ -190,6 +190,8 @@ type
|
||||
{ TLazDockSplitter }
|
||||
|
||||
TLazDockSplitter = class(TCustomSplitter)
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
|
||||
@ -3070,6 +3072,14 @@ begin
|
||||
Result := doNoOrient;
|
||||
end;
|
||||
|
||||
{ TLazDockSplitter }
|
||||
|
||||
constructor TLazDockSplitter.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
MinSize := 1;
|
||||
end;
|
||||
|
||||
initialization
|
||||
DefaultDockTreeClass := TLazDockTree;
|
||||
{$I lcl_dock_images.lrs}
|
||||
|
Loading…
Reference in New Issue
Block a user