1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00

Merge branch 'master' of ssh://villavu.com:54367/simba

This commit is contained in:
Cazax 2010-07-23 23:32:55 -04:00
commit 13381cd9ac
4 changed files with 9 additions and 5 deletions

View File

@ -321,8 +321,12 @@ end;
procedure ResetBuffer; procedure ResetBuffer;
begin begin
{
Freeing the BmpBuffer here causes access violations.
It will have to investigated later.
if (bmpBuffer <> nil) then if (bmpBuffer <> nil) then
bmpBuffer.Free; bmpBuffer.Free;
}
bmpBuffer := bmp.Copy(0, 0, bmp.Width - 1, bmp.Height - 1); bmpBuffer := bmp.Copy(0, 0, bmp.Width - 1, bmp.Height - 1);
BufferChanged := False; BufferChanged := False;

View File

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

View File

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

View File

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