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

Fixed some issues with TTarget_Exported (hope so)

This commit is contained in:
Raymond 2010-04-10 13:36:09 +02:00
parent 44c4322d0f
commit e8c0e53f68
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,7 +42,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('TTarget_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,int15:integer; end;');
Sender.Comp.AddTypes('TDTMPointDef', 'record x, y, Color, Tolerance, AreaSize, AreaShape: integer; end;');
Sender.Comp.AddTypes('TDTMPointDefArray', 'Array Of TDTMPointDef;');

3
Units/MMLAddon/mmlpsthread.pas
View File

@ -226,7 +226,6 @@ uses
{$define extdecl := register}
{$endif}
{Some General PS Functions here}
procedure psWriteln(str : string); extdecl;
begin
@ -936,7 +935,7 @@ begin
interp_type(self.instance,'type T2DPointArray = array of array of TPoint;'); ;
interp_type(self.instance,'type TPointArrayArray = T2DPointArray;');
interp_type(self.instance,'type TTarget_Exported = record int1,int2,int3,int4,int5,int6,int7,int8,int9,int10,int11,int12,int13,int14:integer; end;');
interp_type(self.instance,'type TTarget_Exported = record int1,int2,int3,int4,int5,int6,int7,int8,int9,int10,int11,int12,int13,int14, int15:integer; end;');
interp_type(self.instance,'type TMask = record White, Black : TPointArray; WhiteHi,BlackHi : integer; W,H : integer;end;');
interp_type(self.instance,'type TDTMPointDef = record x, y, Color, Tolerance, AreaSize, AreaShape: integer; end;');
interp_type(self.instance,'type TDTMPointDefArray = Array Of TDTMPointDef;');

3
Units/MMLCore/iomanager.pas
View File

@ -219,7 +219,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) }
TTarget_Exported = packed record
TTarget_Exported = record
Target : Pointer;
GetTargetDimensions: procedure(target: pointer; var w, h: integer); stdcall;
@ -467,6 +467,7 @@ end;
function TIOManager_Abstract.ExportKeyMouseTarget: TTarget_Exported;
begin
FillChar(result,sizeof(TTarget_Exported),0);
with result do
begin
Target:= KeyMouse;