Syntax

code

Function:IItem.PointCount: Integer;


Description

Returns the number of digitizer points for the item.


Code Reference


code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

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;