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

Add rs_GetUpTextAtEx.

This commit is contained in:
Merlijn Wajer 2010-09-25 18:16:12 +02:00
parent 85eadc7db6
commit b17ae5c539
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLAddon/PSInc/Wrappers/ocr.inc
View File

@ -3,6 +3,11 @@ begin
Result := CurrThread.Client.MOCR.GetUpTextAtEx(7, 7, true);
end;
function ps_rs_GetUpTextAtEx(x, y: integer; shadow: boolean): string; extdecl;
begin
result := CurrThread.Client.MOCR.GetUpTextAtEx(x, y, shadow);
end;
function ps_rs_GetUpTextAt(x, y : integer): string; extdecl;
begin
result := CurrThread.Client.MOCR.GetUpTextAtEx(x,y,true);

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

@ -316,6 +316,7 @@ AddFunction(@ps_GetKeyCode,'function GetKeyCode(c : char) : integer;');
SetCurrSection('OCR');
AddFunction(@ps_rs_GetUpText, 'function rs_GetUpText: string;');
AddFunction(@ps_rs_GetUpTextAt, 'function rs_GetUpTextAt(x, y : integer): string;');
AddFunction(@ps_rs_GetUpTextAtEx, 'function rs_GetUpTextAtEx(x, y: integer; shadow: boolean): string');
AddFunction(@ps_BitmapFromText, 'function BitmapFromText(const text, font: String): integer;');
AddFunction(@ps_TPAFromText, 'function TPAFromText(const text, font: String;var w,h : integer): TPointArray;');
AddFunction(@ps_TPAFromTextWrap,'procedure TPAFromTextWrap(const text, font: String;var w,h : integer;var TPA : TPointArray);');