Sin
04-14-2013, 08:53 PM
function ReturnDTMPointsMS(DTM:Integer):TPointArray;
var
i,x,y:Integer; //515 x 327
t:TBoxArray;
begin
SetLength(t,100);
SetLength(Result,1);
t := Grid(10, 10, 52, 33, 50, 33, point(26, 26));
for i := 0 to 99 do
begin
if (FindDTM(DTM,x,y,t[i].X1,t[i].Y1,t[i].X2,t[i].Y2)) then
begin
Result[Length(Result)] := Point(x,y);
SetLength(Result, Length(Result) + 1);
end;
end;
end;
Returns a TPA of points it finds on the mainscreen.
var
i,x,y:Integer; //515 x 327
t:TBoxArray;
begin
SetLength(t,100);
SetLength(Result,1);
t := Grid(10, 10, 52, 33, 50, 33, point(26, 26));
for i := 0 to 99 do
begin
if (FindDTM(DTM,x,y,t[i].X1,t[i].Y1,t[i].X2,t[i].Y2)) then
begin
Result[Length(Result)] := Point(x,y);
SetLength(Result, Length(Result) + 1);
end;
end;
end;
Returns a TPA of points it finds on the mainscreen.