NewPoint
...
Adds a new point to ItemPath at the X, Y coordinates. If the Item is not found or is not a drawing object, this procedure will be ignored.
...
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; |