NewBlankPage
Creates a blank page in the current job and returns the Page Item that was created.
Syntax:
Procedure: NewBlankPage(const AName: WideString; AWidth, AHeight, ADPI: Integer; const AScale: WideString): IItem;
Code Reference:
- Create a New Form application
- Add a button to the for
- Add PlanSwift to reference (Planswift9_tlb in the uses)
- Copy code to button onclick event
API Calls
Delphi
PlanSwift Code:
var
oPageItem : IItem;
AName : WideString;
AWidth : integer;
AHeight : integer;
ADPI : integer;
AScale : WideString;
begin
AName := 'Floor Plan';
AWidth := 36;
AHeight := 24;
ADPI := 100;
AScale := '1=48';
oPageItem := PlanSwift.NewBlankPage(AName, AWidth, AHeight, ADPI, AScale);
end;
FreshDesk Code:
procedure TForm1.psNewBlankPage(Sender: TObject);
var
ps: IPlanSwift;
pg: IItem;
note: IItem;
begin
//Create Planswift Interface
ps := coPlanswift.Create;
//Check to see if a job is open
if not ps.IsJobOpen then begin
ShowMessage('No Job Open');
exit;
end else begin
//Create a new Blank page
pg := ps.NewBlankPage('My New Page',36,24,200,'1/4"=1');
//Draw a note on that page
note := pg.NewItem('Note','My Page Note');
// Set PAGEGUID on note so that it shows on the proper page
note.SetPropertyFormula('PageGUID',pg.guid);
//Set the note text
note.SetPropertyFormula('Text','This is My New Page');
//add first point on note
note.NewPoint(0,0);
end;
//Free Planswift Interface
ps := nil;
end;
C#
public class PlanswiftApi
{
private PlanSwift Planswift { get; }
public PlanSwiftApi()
{
Planswift = new PlanSwift();
}
}
VB/VBA (OLE)