moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 12:02:15 -05:00
Code Issues Releases Wiki Activity

Compile windows!

Browse Source
This commit is contained in:
Raymond 2011-02-21 17:59:50 +01:00
parent 207fe1048b
commit 7201c67e99
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Units/MMLCore/os_windows.pas
View File

@ -46,8 +46,8 @@ interface
constructor Create; constructor Create;
constructor Create(target: Hwnd); constructor Create(target: Hwnd);
destructor Destroy; override; destructor Destroy; override;
procedure GetTargetDimensions(var w, h: integer); override; procedure GetTargetDimensions(out w, h: integer); override;
procedure GetTargetPosition(var left, top: integer); override; procedure GetTargetPosition(out left, top: integer); override;
function ReturnData(xs, ys, width, height: Integer): TRetData; override; function ReturnData(xs, ys, width, height: Integer): TRetData; override;
function GetColor(x,y : integer) : TColor; override; function GetColor(x,y : integer) : TColor; override;
@ -57,7 +57,7 @@ interface
function TargetValid: boolean; override; function TargetValid: boolean; override;
procedure ActivateClient; override; procedure ActivateClient; override;
procedure GetMousePosition(var x,y: integer); override; procedure GetMousePosition(out x,y: integer); override;
procedure MoveMouse(x,y: integer); override; procedure MoveMouse(x,y: integer); override;
procedure ScrollMouse(x,y, lines : integer); override; procedure ScrollMouse(x,y, lines : integer); override;
procedure HoldMouse(x,y: integer; button: TClickType); override; procedure HoldMouse(x,y: integer; button: TClickType); override;
@ -226,7 +226,7 @@ implementation
SetForegroundWindow(handle); SetForegroundWindow(handle);
end; end;
procedure TWindow.GetTargetDimensions(var w, h: integer); procedure TWindow.GetTargetDimensions(out w, h: integer);
var var
Rect : TRect; Rect : TRect;
begin begin
@ -235,7 +235,7 @@ implementation
h:= Rect.Bottom - Rect.Top; h:= Rect.Bottom - Rect.Top;
end; end;
procedure TWindow.GetTargetPosition(var left, top: integer); procedure TWindow.GetTargetPosition(out left, top: integer);
var var
Rect : TRect; Rect : TRect;
begin begin
@ -284,7 +284,7 @@ implementation
Result.RowLen:= w; Result.RowLen:= w;
end; end;
procedure TWindow.GetMousePosition(var x,y: integer); procedure TWindow.GetMousePosition(out x,y: integer);
var var
MousePoint : TPoint; MousePoint : TPoint;
Rect : TRect; Rect : TRect;