Fix InvalidTypecast. Forms are cleaned up by the LCL.

This commit is contained in:
Merlijn Wajer 2010-07-23 13:23:04 +02:00
parent 8d852cf18f
commit 1c026294ba
3 changed files with 5 additions and 5 deletions

View File

@ -213,8 +213,8 @@ procedure Free;
begin
if (started) then
Timer.Enabled := False;//Freeing the components is not needed, as they will be freed upon the freeing of Simba.
if F <> nil then
F.Free;
{ if F <> nil then
F.Free; }
end;
procedure Attach;

View File

@ -1395,7 +1395,7 @@ end;
procedure Free;
begin
// Only here so people won't freak out. :)
Icon_Lock.Free;
{ Icon_Lock.Free; }
end;
{$IFDEF EXTENSION}

View File

@ -267,8 +267,8 @@ procedure Free;
begin
if (started) then
Timer.Enabled := False;//Freeing the components is not needed, as they will be freed upon the freeing of Simba.
if F <> nil then
F.Free;
{ if F <> nil then
F.Free; }
end;
procedure Attach;