moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

Resolve 83

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@505 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-02-01 08:21:52 +00:00
parent 2bd8708be0
commit 8c09614190
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/Units/MMLCore/client.pas
View File

@ -71,6 +71,8 @@ end;
destructor TClient.Destroy; destructor TClient.Destroy;
begin begin
IOManager.SetState(True);
MOCR.Free; MOCR.Free;
MDTM.Free; MDTM.Free;
MBitmaps.Free; MBitmaps.Free;

11
trunk/Units/MMLCore/iomanager.pas
View File

@ -261,6 +261,7 @@ interface
procedure SetImageTarget(idx: integer); procedure SetImageTarget(idx: integer);
procedure SetKeyMouseTarget(idx: integer); procedure SetKeyMouseTarget(idx: integer);
procedure FreeTarget(idx: integer); procedure FreeTarget(idx: integer);
procedure SetState(val: Boolean);
protected protected
function SetImageTarget(target: TTarget): integer; function SetImageTarget(target: TTarget): integer;
@ -275,11 +276,13 @@ interface
frozen: TTarget; frozen: TTarget;
freezebuffer: prgb32; freezebuffer: prgb32;
bothsame: boolean; bothsame: boolean;
FStopping: Boolean;
idxarr: array of TTarget; idxarr: array of TTarget;
function GetTargetIdx(target: TTarget): integer; function GetTargetIdx(target: TTarget): integer;
function GetIdxTarget(idx: integer): TTarget; function GetIdxTarget(idx: integer): TTarget;
property Stopping: Boolean Read FStopping write SetState;
end; end;
implementation implementation
@ -446,7 +449,7 @@ end;
procedure TIOManager_Abstract.BitmapDestroyed(Bitmap : TMufasaBitmap); procedure TIOManager_Abstract.BitmapDestroyed(Bitmap : TMufasaBitmap);
begin begin
if image is TBitmapTarget then if image is TBitmapTarget then
if TBitmapTarget(image).bitmap = Bitmap then if (TBitmapTarget(image).bitmap = Bitmap) and (not FStopping) then
raise Exception.Create('Target bitmap was destroyed!'); raise Exception.Create('Target bitmap was destroyed!');
end; end;
@ -554,6 +557,12 @@ begin
result := keymouse.GetKeyCode(c); result := keymouse.GetKeyCode(c);
end; end;
// TRUE when STOPPING.
procedure TIOManager_Abstract.SetState(val: Boolean);
begin
FStopping := val;
end;
//***implementation*** TTarget //***implementation*** TTarget
procedure TTarget.GetTargetDimensions(var w, h: integer); begin raise Exception.Create('GetTargetDimensions not available for this target'); end; procedure TTarget.GetTargetDimensions(var w, h: integer); begin raise Exception.Create('GetTargetDimensions not available for this target'); end;