moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

TEIOS_Exported -> TTarget_Exported 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@524 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-02-05 19:20:35 +00:00
parent 2cee56c20e
commit 4570a4738d
5 changed files with 52 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/Units/MMLAddon/PSInc/Wrappers/window.inc
View File

@ -61,12 +61,12 @@ begin
CurrThread.Client.IOManager.GetKeyMouseTarget(result);
end;
function ExportImageTarget : TEIOS_Exported;
function ExportImageTarget : TTarget_Exported;
begin;
result := CurrThread.Client.IOManager.ExportImageTarget;
end;
function ExportKeyMouseTarget : TEIOS_Exported;
function ExportKeyMouseTarget : TTarget_Exported;
begin;
result := CurrThread.Client.IOManager.ExportKeyMouseTarget;
end;

2
trunk/Units/MMLAddon/PSInc/pscompile.inc
View File

@ -41,7 +41,7 @@ Sender.Comp.AddTypeS('TPointArrayArray','Array of TPointArray');
Sender.Comp.AddTypeS('TBmpMirrorStyle','(MirrorWidth,MirrorHeight,MirrorLine)');
Sender.Comp.AddTypeS('TMask','record White, Black : TPointArray; WhiteHi,BlackHi : integer; W,H : integer;end;');
Sender.Comp.addtypeS('PPoint','record R,T : extended; end;');
Sender.Comp.AddTypeS('TEIOS_Exported','record int1,int2,int3,int4,int5,int6,int7,int8,int9,int10,int11,int12,int13,int14:integer; end;');
Sender.Comp.AddTypeS('TTarget_Exported','record int1,int2,int3,int4,int5,int6,int7,int8,int9,int10,int11,int12,int13,int14:integer; end;');
Sender.Comp.AddTypes('TDTMPointDef', 'record x, y, Color, Tolerance, AreaSize, AreaShape: integer; end;');
Sender.Comp.AddTypes('TDTMPointDefArray', 'Array Of TDTMPointDef;');

4
trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -79,8 +79,8 @@ AddFunction(@SetImageTarget,'procedure SetImageTarget(idx: integer);');
AddFunction(@SetKeyMouseTarget,'procedure SetKeyMouseTarget(idx: integer);');
AddFunction(@GetImageTarget,'function GetImageTarget: integer;');
AddFunction(@GetKeyMouseTarget,'function GetKeyMouseTarget: integer;');
AddFunction(@ExportImageTarget,'function ExportImageTarget : TEIOS_Exported;');
AddFunction(@ExportKeyMouseTarget,'function ExportKeyMouseTarget : TEIOS_Exported;');
AddFunction(@ExportImageTarget,'function ExportImageTarget : TTarget_Exported;');
AddFunction(@ExportKeyMouseTarget,'function ExportKeyMouseTarget : TTarget_Exported;');
AddFunction(@FreeTarget,'procedure FreeTarget(idx: integer);');
AddFunction(@SetDesktopAsClient,'procedure SetDesktopAsClient');
AddFunction(@ActivateClient, 'procedure ActivateClient;');

2
trunk/Units/MMLAddon/mmlpsthread.pas
View File

@ -174,7 +174,7 @@ uses
uPSC_extctrls, //Compile-libs
uPSUtils,
fontloader,
IOmanager,//TEIOS_Exported
IOmanager,//TTarget_Exported
IniFiles,//Silly INI files
uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms,
uPSR_extctrls, //Runtime-libs

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

@ -209,7 +209,7 @@ interface
{Basically like TEIOS_Client, only this is exported to some plugin, whilst TEIOS_Client is Imported
Not all functions have to be 'set', it depends on the kind of target (Image/KeyMouse) }
TEIOS_Exported = packed record
TTarget_Exported = packed record
Target : Pointer;
GetTargetDimensions: procedure(target: pointer; var w, h: integer); stdcall;
@ -277,8 +277,8 @@ interface
function GetImageTarget: TTarget; overload;
function GetKeyMouseTarget: TTarget; overload;
function ExportImageTarget : TEIOS_Exported; overload;
function ExportKeyMouseTarget : TEIOS_Exported; overload;
function ExportImageTarget : TTarget_Exported; overload;
function ExportKeyMouseTarget : TTarget_Exported; overload;
procedure GetImageTarget(var idx: integer); overload;
procedure GetKeyMouseTarget(var idx: integer); overload;
@ -309,22 +309,22 @@ interface
property Stopping: Boolean Read FStopping write SetState;
end;
{These wrappers are for an exported TEIOS_Exported. This is done so a plugin can acces the current target and use its methodes}
procedure TEIOS_Exported_GetTargetDimensions(target: pointer; var w, h: integer); stdcall;
function TEIOS_Exported_GetColor (target: pointer;x,y : integer) : integer; stdcall;
function TEIOS_Exported_ReturnData (target: pointer;xs, ys, width, height: Integer): TRetData; stdcall;
procedure TEIOS_Exported_FreeReturnData(target: pointer); stdcall;
{These wrappers are for an exported TTarget_Exported. This is done so a plugin can acces the current target and use its methodes}
procedure TTarget_Exported_GetTargetDimensions(target: pointer; var w, h: integer); stdcall;
function TTarget_Exported_GetColor (target: pointer;x,y : integer) : integer; stdcall;
function TTarget_Exported_ReturnData (target: pointer;xs, ys, width, height: Integer): TRetData; stdcall;
procedure TTarget_Exported_FreeReturnData(target: pointer); stdcall;
procedure TEIOS_Exported_GetMousePosition(target: pointer; var x,y: integer); stdcall;
procedure TEIOS_Exported_MoveMouse(target: pointer; x,y: integer); stdcall;
procedure TEIOS_Exported_HoldMouse(target: pointer; x,y: integer; left: boolean); stdcall;
procedure TEIOS_Exported_ReleaseMouse(target: pointer; x,y: integer; left: boolean); stdcall;
procedure TTarget_Exported_GetMousePosition(target: pointer; var x,y: integer); stdcall;
procedure TTarget_Exported_MoveMouse(target: pointer; x,y: integer); stdcall;
procedure TTarget_Exported_HoldMouse(target: pointer; x,y: integer; left: boolean); stdcall;
procedure TTarget_Exported_ReleaseMouse(target: pointer; x,y: integer; left: boolean); stdcall;
procedure TEIOS_Exported_SendString(target: pointer; str: PChar); stdcall;
procedure TEIOS_Exported_HoldKey(target: pointer; key: integer); stdcall;
procedure TEIOS_Exported_ReleaseKey(target: pointer; key: integer); stdcall;
function TEIOS_Exported_IsKeyHeld(target: pointer; key: integer): boolean; stdcall;
function TEIOS_Exported_GetKeyCode(target : pointer; C : char) : integer; stdcall;
procedure TTarget_Exported_SendString(target: pointer; str: PChar); stdcall;
procedure TTarget_Exported_HoldKey(target: pointer; key: integer); stdcall;
procedure TTarget_Exported_ReleaseKey(target: pointer; key: integer); stdcall;
function TTarget_Exported_IsKeyHeld(target: pointer; key: integer): boolean; stdcall;
function TTarget_Exported_GetKeyCode(target : pointer; C : char) : integer; stdcall;
implementation
@ -434,34 +434,34 @@ begin
result := keymouse;
end;
function TIOManager_Abstract.ExportImageTarget: TEIOS_Exported;
function TIOManager_Abstract.ExportImageTarget: TTarget_Exported;
begin
FillChar(result,sizeof(TEIOS_Exported),0);
FillChar(result,sizeof(TTarget_Exported),0);
with result do
begin
Target:= image;
GetTargetDimensions:= @TEIOS_Exported_GetTargetDimensions;
GetColor:= @TEIOS_Exported_GetColor;
ReturnData := @TEIOS_Exported_ReturnData;
FreeReturnData:= @TEIOS_Exported_FreeReturnData;
GetTargetDimensions:= @TTarget_Exported_GetTargetDimensions;
GetColor:= @TTarget_Exported_GetColor;
ReturnData := @TTarget_Exported_ReturnData;
FreeReturnData:= @TTarget_Exported_FreeReturnData;
end;
end;
function TIOManager_Abstract.ExportKeyMouseTarget: TEIOS_Exported;
function TIOManager_Abstract.ExportKeyMouseTarget: TTarget_Exported;
begin
with result do
begin
Target:= KeyMouse;
GetMousePosition := @TEIOS_Exported_GetMousePosition;
MoveMouse := @TEIOS_Exported_MoveMouse;
HoldMouse := @TEIOS_Exported_HoldMouse;
ReleaseMouse := @TEIOS_Exported_ReleaseMouse;
GetMousePosition := @TTarget_Exported_GetMousePosition;
MoveMouse := @TTarget_Exported_MoveMouse;
HoldMouse := @TTarget_Exported_HoldMouse;
ReleaseMouse := @TTarget_Exported_ReleaseMouse;
SendString := @TEIOS_Exported_SendString;
HoldKey := @TEIOS_Exported_HoldKey;
ReleaseKey := @TEIOS_Exported_ReleaseKey;
IsKeyHeld := @TEIOS_Exported_IsKeyHeld;
GetKeyCode := @TEIOS_Exported_GetKeyCode;
SendString := @TTarget_Exported_SendString;
HoldKey := @TTarget_Exported_HoldKey;
ReleaseKey := @TTarget_Exported_ReleaseKey;
IsKeyHeld := @TTarget_Exported_IsKeyHeld;
GetKeyCode := @TTarget_Exported_GetKeyCode;
end;
end;
@ -919,41 +919,41 @@ end;
//***implementation*** TEIS_Exported wrappers
procedure TEIOS_Exported_GetTargetDimensions(target: pointer; var w,
procedure TTarget_Exported_GetTargetDimensions(target: pointer; var w,
h: integer); stdcall;
begin
TTarget(Target).GetTargetDimensions(w,h);
end;
function TEIOS_Exported_GetColor(target: pointer;x, y: integer): integer; stdcall;
function TTarget_Exported_GetColor(target: pointer;x, y: integer): integer; stdcall;
begin
result := TTarget(Target).GetColor(x,y);
end;
function TEIOS_Exported_ReturnData(target: pointer;xs, ys, width, height: Integer): TRetData;
function TTarget_Exported_ReturnData(target: pointer;xs, ys, width, height: Integer): TRetData;
stdcall;
begin
result := TTarget(Target).ReturnData(xs,ys,width,height);
end;
procedure TEIOS_Exported_FreeReturnData(target: pointer); stdcall;
procedure TTarget_Exported_FreeReturnData(target: pointer); stdcall;
begin
TTarget(target).FreeReturnData;
end;
procedure TEIOS_Exported_GetMousePosition(target: pointer; var x, y: integer
procedure TTarget_Exported_GetMousePosition(target: pointer; var x, y: integer
); stdcall;
begin
TTarget(Target).GetMousePosition(x,y);
end;
procedure TEIOS_Exported_MoveMouse(target: pointer; x, y: integer); stdcall;
procedure TTarget_Exported_MoveMouse(target: pointer; x, y: integer); stdcall;
begin
TTarget(Target).MoveMouse(x,y);
end;
procedure TEIOS_Exported_HoldMouse(target: pointer; x, y: integer;
procedure TTarget_Exported_HoldMouse(target: pointer; x, y: integer;
left: boolean); stdcall;
begin
if left then
@ -962,7 +962,7 @@ begin
TTarget(Target).HoldMouse(x,y,mouse_right);
end;
procedure TEIOS_Exported_ReleaseMouse(target: pointer; x, y: integer;
procedure TTarget_Exported_ReleaseMouse(target: pointer; x, y: integer;
left: boolean); stdcall;
begin
if left then
@ -971,28 +971,28 @@ begin
TTarget(Target).ReleaseMouse(x,y,mouse_right);
end;
procedure TEIOS_Exported_SendString(target: pointer; str: PChar); stdcall;
procedure TTarget_Exported_SendString(target: pointer; str: PChar); stdcall;
begin
TTarget(Target).SendString(str);
end;
procedure TEIOS_Exported_HoldKey(target: pointer; key: integer); stdcall;
procedure TTarget_Exported_HoldKey(target: pointer; key: integer); stdcall;
begin
TTarget(Target).HoldKey(key);
end;
procedure TEIOS_Exported_ReleaseKey(target: pointer; key: integer); stdcall;
procedure TTarget_Exported_ReleaseKey(target: pointer; key: integer); stdcall;
begin
TTarget(Target).ReleaseKey(key);
end;
function TEIOS_Exported_IsKeyHeld(target: pointer; key: integer): boolean;
function TTarget_Exported_IsKeyHeld(target: pointer; key: integer): boolean;
stdcall;
begin
result := TTarget(Target).IsKeyHeld(key);
end;
function TEIOS_Exported_GetKeyCode(target: pointer; C: char): integer;
function TTarget_Exported_GetKeyCode(target: pointer; C: char): integer;
stdcall;
begin
result := TTarget(target).GetKeyCode(c);