Page Comparison

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;

public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}

Coming soon

Coming soon

Coming soon