paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 14:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix mem leak in docking code

Browse Source 
git-svn-id: trunk@14496 -
This commit is contained in:
paul 2008-03-12 09:49:10 +00:00
parent 38fa89e83c
commit 820cc2f396
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/ldocktree.pas
View File

@ -190,6 +190,8 @@ type
{ TLazDockSplitter } { TLazDockSplitter }
TLazDockSplitter = class(TCustomSplitter) TLazDockSplitter = class(TCustomSplitter)
public
constructor Create(AOwner: TComponent); override;
end; end;
@ -3070,6 +3072,14 @@ begin
Result := doNoOrient; Result := doNoOrient;
end; end;
{ TLazDockSplitter }
constructor TLazDockSplitter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
MinSize := 1;
end;
initialization initialization
DefaultDockTreeClass := TLazDockTree; DefaultDockTreeClass := TLazDockTree;
{$I lcl_dock_images.lrs} {$I lcl_dock_images.lrs}