mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-25 00:39:04 -05:00
Merge branch 'master' of ssh://villavu.com:54367/simba
This commit is contained in:
commit
13381cd9ac
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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}
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user