NexPB
2012-01-14 15:46:41
procedure PaintPoints(tpa: TPointArray);
var
i, h: Integer;
pt: TPoint;
begin
if (Length(tpa) = 0) then Exit;
if (Length(tpa) > 0) then
SMART_SetupDebug;
h := High(tpa);
For i := 0 to h do
begin
pt := tpa[i];
SMART_DrawCircle(false, pt, 20, true, 65386);
end;
end;Somebody knows what im doing wrong and why it won't paint my points?