moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -05:00
Code Issues Releases Wiki Activity

Changes.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@84 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-23 04:09:52 +00:00
parent 301e4370ad
commit 79505f7c4d
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLCore/window.pas
View File

@ -188,7 +188,7 @@ begin
case Window.TargetMode of case Window.TargetMode of
w_BMP, w_Window, w_HDC: w_BMP, w_Window, w_HDC:
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Self.SetTarget(Window.TargetDC, Window.TargetMode); Self.SetTarget(Window.TargetHandle, Window.TargetMode);
{$ELSE} {$ELSE}
writeln('TMWindow.SetWindow - HDC not supported'); writeln('TMWindow.SetWindow - HDC not supported');
{$ENDIF} {$ENDIF}

11
Units/MMLCore/windowutil.pas
View File

@ -17,6 +17,7 @@ uses
{$IFDEF LINUX} {$IFDEF LINUX}
Procedure XImageToRawImage(XImg: PXImage; Var RawImage: TRawImage); Procedure XImageToRawImage(XImg: PXImage; Var RawImage: TRawImage);
function MufasaXErrorHandler(para1:PDisplay; para2:PXErrorEvent):cint;cdecl; function MufasaXErrorHandler(para1:PDisplay; para2:PXErrorEvent):cint;cdecl;
function MouseWindow: x.TWindow;
{$ENDIF} {$ENDIF}
Procedure ArrDataToRawImage(Ptr: PRGB32; Size: TPoint; Var RawImage: TRawImage); Procedure ArrDataToRawImage(Ptr: PRGB32; Size: TPoint; Var RawImage: TRawImage);
@ -129,5 +130,15 @@ Begin
End; End;
function MouseWindow: x.TWindow;
var
Old_Handler: TXErrorHandler;
begin
Old_Handler := XSetErrorHandler(@MufasaXErrorHandler);
XSetErrorHandler(Old_Handler);
end;
end. end.