Syntax

code

Procedure: IPlanswift.PostChanges;

Description

Post changes made since call to NewChangeGroup. (See New Change Group)

Code Reference

  • 1. Create a New Forms Application
  • 2. Add a Planswift to the References (Planswift_Tlb)
  • 3. Add a button to the form
  • 4. copy code below to the onclick event of the button
  • 5. Compile and run

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

29

30

31

32

33

34

35

36

37

38

39

procedure TForm1.psNewChangeGroupPostChanges(Sender: TObject);

var

  ps: IPlanSwift;           

  itm,sect,pg: IItem;         

  I: Integer;

  ranX,ranY: Extended;

  x: Integer;

  y: Integer;

begin

//Create Planswift Interface

  ps := coPlanswift.Create;

  //Create Change Group

  ps.NewChangeGroup('Random Points');            

  //Begin Planswift Update

  ps.BeginUpdate;

  //Get The Current Selected Page

  pg := ps.SelectedPage;

  //Create a new Point Count Item

  itm := ps.GetItem('Job\Takeoff');        

  itm := itm.NewItem('Count','Random Points');

  //Create a section for the Random Points

  sect := itm.NewSection('Random Point Section');

  //Create 20 Random points on the page

  for I := 0 to 20 - 1 do begin

    x := Random(pg.GetPropertyResultAsInteger('PageWidth',0));

    ranX := x;

    y := Random(pg.GetPropertyResultAsInteger('PageHeight',0));

    ranY := y;

    sect.NewPoint(ranX,ranY);

  end;

  //End Planswift Update

  ps.EndUpdate;

  //Post all Changes for undo

  ps.PostChanges;

  //Notifiy user to press ctrl + Z

  ShowMessage('Press ctrl + z to undo changes');

  //free planswift

  ps := nil

end;