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

blackchat example

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@509 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-02-01 19:18:10 +00:00
parent 3a004127f2
commit f85a7839b9
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
trunk/Tests/PS/blackchat.simb Normal file
View File

@ -0,0 +1,44 @@
program new;
const
MCX1 = 4;
MCY1 = 342;
MCX2 = 514;
MCY2 = 475;
Function TextCoords(textn: Integer): TPoint;
Begin
Result.X := 10;
Result.Y := 347 + (14 * (textn - 1));
End;
function GetChatBoxText(Line, TextCol: Integer): string;
var
P: TPoint;
cArr: TPointArray;
B: TBox;
begin
P := TextCoords(Line);
if (FindColorsTolerance(cArr, TextCol, MCX1, P.y, MCX2, P.y + 13, 0)) then
begin
B := GetTPABounds(cArr);
// Result := GetTextAt(B.x1 - 1, B.y1 - 1, 1, 3, 0, 0, 0, 100, 'SmallChars');
{Result := Trim(GetTextAtEx(B.x1 - 1, B.y1 - 2, 0, SmallChars, False, False,
0, 1, TextCol, 80, False, tr_AllChars)); }
end;
end;
var
bmp: integer;
begin
bmp := LoadBitmap('/home/merlijn/Programs/trunk/pics/17.bmp');
SetTargetBitmap(bmp);
// freebitmap(bmp);
{ GetChatBoxText(8, 0); }
{SetDesktopAsClient; }
// uncomment this for exception
freebitmap(bmp);
end.