Cigue
2010-08-06 00:24:15
By Cigue, correction made by EvilChicken!
{$IFDEF SIMBA}
function FindTextTPAMulti(Color, tol, xs, ys, xe, ye: integer;
Texts: TStringArray; Chars: string; Action: fnct_ActionOptions): Boolean;
{$ELSE}
function FindTextTPAMulti(Color, tol, xs, ys, xe, ye: integer;
Texts: TStringArray; Chars: Integer; Action: fnct_ActionOptions): Boolean;
{$ENDIF}
var
I: Integer;
begin
for i := 0 to High(Texts) do
if FindTextTPA(Color, Tol, xs, ys, xe, ye, Texts[i], Chars, Action) then
begin
Result := True;
Exit;
end;
end;