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

fixed wrong assumption in 14401

Browse Source 
git-svn-id: trunk@14413 -
This commit is contained in:
paul 2008-03-05 02:45:54 +00:00
parent df83fa1a25
commit f17329bc7c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/ldockctrl.pas
View File

@ -143,6 +143,7 @@ type
FRoot: TLazDockConfigNode;
public
constructor Create(const ADockerName: string; ANode: TLazDockConfigNode);
destructor Destroy; override;
procedure WriteDebugReport;
property DockerName: string read FDockerName;
property Root: TLazDockConfigNode read FRoot;
@ -1893,7 +1894,6 @@ begin
Layout:=GetLayoutFromControl;
if (Layout=nil) then exit;
Manager.AddOrReplaceConfig(DockerName,Layout);
Layout.Free;
end;
procedure TCustomLazControlDocker.RestoreLayout;
@ -3916,6 +3916,12 @@ begin
FRoot:=ANode;
end;
destructor TLazDockerConfig.Destroy;
begin
FRoot.Free; // who will clear it else?
inherited Destroy;
end;
procedure TLazDockerConfig.WriteDebugReport;
begin
DebugLn(['TLazDockerConfig.WriteDebugReport DockerName="',DockerName,'"']);