PostChanges
Post changes made since call to NewChangeGroup. (See New Change Group).
Syntax:
Reference: IPlanswift.PostChanges;
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
API
...
Calls
Delphi
Code Block |
---|
language | delphi |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
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 |
---|
language | delphi |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
|
|
C#
Code Block |
---|
language | c# |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
|
|
Code Block |
---|
language | c# |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
|
|
VB/VBA (OLE)
Code Block |
---|
language | vb |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
|
|
Code Block |
---|
language | vb |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
|
|
Pascal Scripting (OLE)
Code Block |
---|
firstline | 1 |
---|
title | Item Object Model |
---|
linenumbers | true |
---|
|
|
Code Block |
---|
title | Root Object Model |
---|
linenumbers | true |
---|
|
|
Pascal Scripting
Code Block |
---|
firstline | 1 |
---|
title | Item Object Model |
---|
linenumbers | true |
---|
|
|
Code Block |
---|
title | Using the PlanSwift Object Model |
---|
linenumbers | true |
---|
|
|