From 9d07455586565cff7a63f6e889648c172a5ea9ca Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sat, 11 Dec 2004 20:04:36 +0000
Subject: [PATCH] fixed fpc 1.0.x compilation

git-svn-id: trunk@6365 -
---
 ide/customformeditor.pp | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp
index 143e00024a..efb457a913 100644
--- a/ide/customformeditor.pp
+++ b/ide/customformeditor.pp
@@ -1242,9 +1242,7 @@ Begin
       end;
       
       // create component interface
-      Temp := TComponentInterface.Create;
-      Temp.FComponent:=NewComponent;
-      
+      Temp := TComponentInterface.Create(NewComponent);
       // set parent
       if Temp.IsTControl then begin
         if (ParentComponent is TWinControl)
@@ -1268,13 +1266,11 @@ Begin
       if JITList=nil then
         RaiseException('TCustomFormEditor.CreateComponent '+TypeClass.ClassName);
       NewJITIndex := JITList.AddNewJITComponent(DefaultJITUnitName,TypeClass);
-      if NewJITIndex >= 0 then begin
+      if NewJITIndex >= 0 then
         // create component interface
-        Temp := TComponentInterface.Create;
-        Temp.FComponent := JITList[NewJITIndex]
-      end else begin
+        Temp := TComponentInterface.Create(JITList[NewJITIndex])
+      else
         exit;
-      end;
     end;
     {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TCustomFormEditor.CreateComponent D ');{$ENDIF}
     try