...
Procedure: NewPoint(ItemPath: String; X, Y: Double);
API Call:
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
StartCount := PointCount(ItemPath);
NewPoint(ItemPath, 100, 125);
StopCount := PointCount(ItemPath);
if StopCount > StartCount then
begin
Result := TRUE;
end
else
begin
Result := FALSE;
end; |