paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 07:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed typo

Browse Source 
git-svn-id: trunk@31163 -
This commit is contained in:
mattias 2011-06-11 11:10:56 +00:00
parent 2e466d600d
commit e3dc158e75
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/codetoolsstructs.pas
View File

@ -167,14 +167,14 @@ type
TComponentChildCollector = class
private
FChilds: TFPList;
FChildren: TFPList;
FRoot: TComponent;
procedure AddChildComponent(Child: TComponent);
public
constructor Create;
destructor Destroy; override;
function GetComponents(RootComponent: TComponent; AddRoot: boolean = true): TFPList;
property Children: TFPList read FChilds;
property Children: TFPList read FChildren;
property Root: TComponent read FRoot;
end;
@ -797,12 +797,12 @@ end;
constructor TComponentChildCollector.Create;
begin
FChilds:=TFPList.Create;
FChildren:=TFPList.Create;
end;
destructor TComponentChildCollector.Destroy;
begin
FreeAndNil(FChilds);
FreeAndNil(FChildren);
inherited Destroy;
end;