Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

PostChanges

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

...

    • 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

API

...

Calls

Delphi

Code Block
languagedelphi
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
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;  


Code Block
languagedelphi
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

C#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

VB/VBA (OLE)

Code Block
languagevb
firstline1
titleUsing IItem Object Model
linenumberstrue


Code Block
languagevb
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

Pascal Scripting (OLE)

Code Block
firstline1
titleItem Object Model
linenumberstrue


Code Block
titleRoot Object Model
linenumberstrue

Pascal Scripting

Code Block
firstline1
titleItem Object Model
linenumberstrue
Code Block
titleUsing the PlanSwift Object Model
linenumberstrue