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; |