From 4faad993265c77ca93e40dac6a758a2394d0a5a8 Mon Sep 17 00:00:00 2001 From: paul Date: Sun, 10 May 2009 05:26:28 +0000 Subject: [PATCH] ide: formatting git-svn-id: trunk@19896 - --- ide/customformeditor.pp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 39ec60317f..b0c452b0e6 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -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;