moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

Simba: TProc(Arr) rename to TSysProc(Arr)

Browse Source
This commit is contained in:
John P (Dgby714) 2010-12-23 11:24:18 -05:00
parent 58faccf182
commit 82e1036aa5
7 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -285,12 +285,12 @@ begin
end; end;
end; end;
function ps_GetProcesses: TProcArr; function ps_GetProcesses: TSysProcArr;
begin begin
Result := CurrThread.Client.IOManager.GetProcesses; Result := CurrThread.Client.IOManager.GetProcesses;
end; end;
procedure ps_SetTarget(Proc: TProc); procedure ps_SetTarget(Proc: TSysProc);
begin begin
CurrThread.Client.IOManager.SetTargetEx(Proc); CurrThread.Client.IOManager.SetTargetEx(Proc);
end; end;

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

@ -65,5 +65,5 @@ AddConstantN('mouse_Right','integer').SetInt(ps_mouse_right); //0
AddConstantN('mouse_Left','integer').SetInt(ps_mouse_left);//1 AddConstantN('mouse_Left','integer').SetInt(ps_mouse_left);//1
AddConstantN('mouse_Middle','integer').SetInt(ps_mouse_middle);//2 AddConstantN('mouse_Middle','integer').SetInt(ps_mouse_middle);//2
AddTypes('TProc', 'record Title: string; Handle: integer; Pid: integer; Width, Height: integer; end;'); AddTypes('TSysProc', 'record Title: string; Handle: integer; Pid: integer; Width, Height: integer; end;');
AddTypes('TProcArr', 'array of TProc;'); AddTypes('TSysProcArr', 'array of TSysProc;');

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

@ -195,8 +195,8 @@ AddFunction(@ps_messageBox,'function MessageBox(Text, Caption: string; Flags: Lo
AddFunction(@ps_MessageDlg,'function MessageDlg(const Caption, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons) : integer;'); AddFunction(@ps_MessageDlg,'function MessageDlg(const Caption, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons) : integer;');
AddFunction(@ps_SetClipBoard, 'procedure SetClipBoard(const Data: string);'); AddFunction(@ps_SetClipBoard, 'procedure SetClipBoard(const Data: string);');
AddFunction(@ps_GetClipBoard, 'function GetClipBoard: string;'); AddFunction(@ps_GetClipBoard, 'function GetClipBoard: string;');
AddFunction(@ps_GetProcesses, 'function GetProcesses: TProcArr;'); AddFunction(@ps_GetProcesses, 'function GetProcesses: TSysProcArr;');
AddFunction(@ps_SetTarget, 'procedure SetTarget(Proc: TProc);'); AddFunction(@ps_SetTarget, 'procedure SetTarget(Proc: TSysProc);');
{$ENDIF} {$ENDIF}
{string} {string}

4
Units/MMLCore/iomanager.pas
View File

@ -317,8 +317,8 @@ interface
procedure FreeTarget(idx: integer); procedure FreeTarget(idx: integer);
procedure SetState(val: Boolean); procedure SetState(val: Boolean);
function GetProcesses: TProcArr; virtual; abstract; function GetProcesses: TSysProcArr; virtual; abstract;
procedure SetTargetEx(Proc: TProc); virtual; abstract; procedure SetTargetEx(Proc: TSysProc); virtual; abstract;
protected protected
function SetImageTarget(target: TTarget): integer; function SetImageTarget(target: TTarget): integer;
function SetKeyMouseTarget(target: TTarget): integer; function SetKeyMouseTarget(target: TTarget): integer;

4
Units/MMLCore/mufasatypes.pas
View File

@ -106,13 +106,13 @@ type
x1, y1, x2, y2: Integer; x1, y1, x2, y2: Integer;
end; end;
TProc = record TSysProc = record
Title: string; Title: string;
Handle: integer; Handle: integer;
Pid: integer; Pid: integer;
Width, Height: integer; Width, Height: integer;
end; end;
TProcArr = array of TProc; TSysProcArr = array of TSysProc;
const const
TMDTMPointSize = 5*SizeOf(integer)+Sizeof(boolean); TMDTMPointSize = 5*SizeOf(integer)+Sizeof(boolean);

8
Units/MMLCore/os_linux.pas
View File

@ -97,8 +97,8 @@ interface
function SetTarget(target: TNativeWindow): integer; overload; function SetTarget(target: TNativeWindow): integer; overload;
procedure SetDesktop; override; procedure SetDesktop; override;
function GetProcesses: TProcArr; override; function GetProcesses: TSysProcArr; override;
procedure SetTargetEx(Proc: TProc); overload; procedure SetTargetEx(Proc: TSysProc); overload;
private private
procedure NativeInit; override; procedure NativeInit; override;
procedure NativeFree; override; procedure NativeFree; override;
@ -513,12 +513,12 @@ implementation
SetBothTargets(TWindow.Create(display, screennum, target)) SetBothTargets(TWindow.Create(display, screennum, target))
end; end;
function TIOManager.GetProcesses: TProcArr; function TIOManager.GetProcesses: TSysProcArr;
begin begin
raise Exception.Create('GetProcesses: Not Implemented.'); raise Exception.Create('GetProcesses: Not Implemented.');
end; end;
procedure TIOManager.SetTargetEx(Proc: TProc); procedure TIOManager.SetTargetEx(Proc: TSysProc);
begin begin
raise Exception.Create('SetTargetEx: Not Implemented.'); raise Exception.Create('SetTargetEx: Not Implemented.');
end; end;

13
Units/MMLCore/os_windows.pas
View File

@ -97,8 +97,9 @@ interface
constructor Create(plugin_dir: string); constructor Create(plugin_dir: string);
function SetTarget(target: TNativeWindow): integer; overload; function SetTarget(target: TNativeWindow): integer; overload;
procedure SetDesktop; override; procedure SetDesktop; override;
function GetProcesses: TProcArr; override;
procedure SetTargetEx(Proc: TProc); overload; function GetProcesses: TSysProcArr; override;
procedure SetTargetEx(Proc: TSysProc); overload;
protected protected
DesktopHWND : Hwnd; DesktopHWND : Hwnd;
procedure NativeInit; override; procedure NativeInit; override;
@ -444,11 +445,11 @@ end;
end; end;
threadvar threadvar
ProcArr: TProcArr; ProcArr: TSysProcArr;
function EnumProcess(Handle: HWND; Param: LPARAM): WINBOOL; stdcall; function EnumProcess(Handle: HWND; Param: LPARAM): WINBOOL; stdcall;
var var
Proc: TProc; Proc: TSysProc;
I: integer; I: integer;
pPid: DWORD; pPid: DWORD;
begin begin
@ -466,14 +467,14 @@ end;
end; end;
end; end;
function TIOManager.GetProcesses: TProcArr; function TIOManager.GetProcesses: TSysProcArr;
begin begin
SetLength(ProcArr, 0); SetLength(ProcArr, 0);
EnumWindows(@EnumProcess, 0); EnumWindows(@EnumProcess, 0);
Result := ProcArr; Result := ProcArr;
end; end;
procedure TIOManager.SetTargetEx(Proc: TProc); procedure TIOManager.SetTargetEx(Proc: TSysProc);
begin begin
SetTarget(Proc.Handle); SetTarget(Proc.Handle);
end; end;