paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed codetools proc collection

Browse Source 
git-svn-id: trunk@3247 -
This commit is contained in:
lazarus 2002-08-27 06:34:25 +00:00
parent ad27a83fd6
commit 277da25f30
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/customformeditor.pp
View File

@ -32,6 +32,8 @@ unit CustomFormEditor;
interface
{$DEFINE VerboseFormEditor}
uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
@ -507,9 +509,15 @@ Begin
end;
end;
Function TComponentInterface.Delete : Boolean;
Function TComponentInterface.Delete: Boolean;
Begin
{$IFDEF VerboseFormEditor}
writeln('TComponentInterface.Delete A ',Component.Name,':',Component.ClassName);
{$ENDIF}
Component.Free;
{$IFDEF VerboseFormEditor}
writeln('TComponentInterface.Delete B ',Component.Name,':',Component.ClassName);
{$ENDIF}
Destroy;
Result := True;
end;
@ -576,7 +584,6 @@ Begin
end;
end;
Function TCustomFormEditor.FormModified : Boolean;
Begin
Result := FModified;
@ -758,8 +765,7 @@ end;
Procedure TCustomFormEditor.RemoveFromComponentInterfaceList(
Value :TIComponentInterface);
Begin
if (FComponentInterfaceList.IndexOf(Value) <> -1) then
FComponentInterfaceList.Delete(FComponentInterfaceList.IndexOf(Value));
FComponentInterfaceList.Remove(Value);
end;
Function TCustomFormEditor.GetFormComponent : TIComponentInterface;