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

Wrappers for PS.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@457 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-24 11:45:02 +00:00
parent 778b81a9ae
commit d20f973f61
3 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
trunk/Units/MMLAddon/PSInc/Wrappers/ocr.inc
View File

@ -2,3 +2,20 @@ function rs_GetUpText: String;
begin
Result := CurrThread.Client.MOCR.GetUpTextAtEx(7, 7, true);
end;
function BitmapFromTextFont(text, font: String): integer;
var
bmp: TMufasaBitmap;
begin
writeln('BitmapFromText: ' + text + ' ' + font);
bmp := CurrThread.Client.MOCR.TextToFontBitmap(text, font);
Result := CurrThread.Client.MBitmaps.AddBMP(bmp);
end;
function TPAFromTextFont(text, font: String): TPointArray;
var
w,h : integer;
begin
Result := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
end;

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

@ -173,6 +173,8 @@ AddFunction(@isKeyDown, 'function IsKeyDown(key: Word): Boolean;');
{ OCR}
SetCurrSection('OCR');
AddFunction(@rs_GetUpText, 'function rs_GetUpText: string;');
AddFunction(@BitmapFromTextFont, 'function BitmapFromTextFont(text, font: String): integer;');
AddFunction(@TPAFromTextFont, 'function TPAFromTextFont(text, font: String): TPointArray;');
{Bitmaps}

21
trunk/Units/MMLCore/bitmaps.pas
View File

@ -100,6 +100,7 @@ type
function GetBMP(Index : integer) : TMufasaBitmap;
property Bmp[Index : integer]: TMufasaBitmap read GetBMP;
function CreateBMP(w, h: integer): Integer;
function AddBMP(_bmp: TMufasaBitmap): Integer;
function CopyBMP( Bitmap : integer) : Integer;
function CreateMirroredBitmap(bitmap: Integer; MirrorStyle : TBmpMirrorStyle): Integer;
function CreateBMPFromFile(const Path : string) : integer;
@ -196,6 +197,26 @@ begin
BmpArray[Result].Index:= Result;
end;
function TMBitmaps.AddBMP(_bmp: TMufasaBitmap): Integer;
begin
if BmpsCurr < BmpsHigh then
begin;
inc(BmpsCurr);
Result := BmpsCurr;
end else if (FreeSpotsHigh > -1) then
begin;
Result := FreeSpots[FreeSpotsHigh];
dec(FreeSpotsHigh);
end else
begin;
SetLength(BmpArray, BmpsHigh + 6);
BmpsHigh := BmpsHigh + 5;
inc(BmpsCurr);
Result := BmpsCurr;
end;
BmpArray[Result] := _bmp;
end;
function TMBitmaps.CopyBMP(Bitmap: integer): Integer;
var
InputBMP : TMufasaBitmap;