paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 06:39:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: formatting

Browse Source 
git-svn-id: trunk@19896 -
This commit is contained in:
paul 2009-05-10 05:26:28 +00:00
parent 3a94d2eef3
commit 4faad99326
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/customformeditor.pp
View File

@ -2417,11 +2417,12 @@ begin
Result:=EditorOpts.KeyMap.TranslateKey(Key,Shift,TDesignerIDECommandForm);
end;
Function TCustomFormEditor.CreateComponentInterface(
function TCustomFormEditor.CreateComponentInterface(
AComponent: TComponent; WithOwnedChilds: Boolean): TIComponentInterface;
Begin
Result:=FindComponent(AComponent);
if Result=nil then begin
begin
Result := FindComponent(AComponent);
if Result = nil then
begin
Result := TComponentInterface.Create(AComponent);
FComponentInterfaces.Add(Result);
end;
@ -2429,15 +2430,15 @@ Begin
CreateChildComponentInterfaces(AComponent);
end;
procedure TCustomFormEditor.CreateChildComponentInterfaces(
AComponent: TComponent);
procedure TCustomFormEditor.CreateChildComponentInterfaces(AComponent: TComponent);
var
i: Integer;
ChildComponent: TComponent;
begin
// create a component interface for each component owned by the new component
for i:=0 to AComponent.ComponentCount-1 do begin
ChildComponent:=AComponent.Components[i];
for i := 0 to AComponent.ComponentCount - 1 do
begin
ChildComponent := AComponent.Components[i];
CreateComponentInterface(ChildComponent,
csInline in ChildComponent.ComponentState);
end;