paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:00:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed fpc 1.0.x compilation

Browse Source 
git-svn-id: trunk@6365 -
This commit is contained in:
vincents 2004-12-11 20:04:36 +00:00
parent 5d6c298120
commit 9d07455586
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/customformeditor.pp
View File

@ -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