moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-11 05:38:00 -05:00
Code Issues Releases Wiki Activity

Fixed compiling errors on linux. :)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@74 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-20 17:37:00 +00:00
parent beb307f24b
commit 4a6987a777
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Units/MMLCore/window.pas
View File

@ -134,7 +134,7 @@ begin
Self.FrozenData:= nil; Self.FrozenData:= nil;
Self.FrozenSize := Classes.Point(-1,-1); Self.FrozenSize := Classes.Point(-1,-1);
Self.FreezeState :=False; Self.FreezeState := False;
Self.ArrayPtr := nil; Self.ArrayPtr := nil;
Self.ArraySize := Classes.Point(-1, -1); Self.ArraySize := Classes.Point(-1, -1);
@ -171,6 +171,7 @@ end;
destructor TMWindow.Destroy; destructor TMWindow.Destroy;
begin begin
if FreezeState then
if FrozenData <> nil then if FrozenData <> nil then
FreeMem(FrozenData); FreeMem(FrozenData);
{$IFDEF LINUX} {$IFDEF LINUX}
@ -186,16 +187,16 @@ end;
function TMWindow.GetColor(x, y: integer): TColor; function TMWindow.GetColor(x, y: integer): TColor;
begin begin
{$IFDEF WINDOWS}
if Self.TargetMode = w_Window then if Self.TargetMode = w_Window then
Result := GetPixel(Self.TargetDC,x,y) Result := GetPixel(Self.TargetDC,x,y)
else else
{$ENDIF}
begin begin
with ReturnData(x,y,1,1) do with ReturnData(x,y,1,1) do
Result := RGBToColor(Ptr[0].r,Ptr[0].g,Ptr[0].b); Result := RGBToColor(Ptr[0].r,Ptr[0].g,Ptr[0].b);
FreeReturnData; FreeReturnData;
end; end;
end; end;
function TMWindow.ReturnData(xs, ys, width, height: Integer): TRetData; function TMWindow.ReturnData(xs, ys, width, height: Integer): TRetData;