//PlanSwift Code:
Result := Item.PointCount;
// FreshDesk Code:
var ps: IPlanSwift;
itm: IItem;
i: Integer;
pt: IPoint;
begin
// Create the planswift Inteface
ps := coPlanswift.Create;
// Get the selected Item
itm := ps.SelectedItem;
// Check to see if an item is selected and has some points
if ((VarIsClear(itm)) or (itm.PointCount = 0)) then
begin
ShowMessage('Please Select a Digitized Item');
ps := nil;
exit;
end;
// Loop Through all points
for i := 0 to itm.PointCount - 1 do
begin
// Get point at i
pt := itm.GetPoint(i);
// Adjust the point by 10px on x and y axis
itm.SetPoint(i, pt.X + 10, pt.Y + 10);
end;
// Free Planswift
ps := nil;
end; |