Page Comparison

procedure TForm1.psCurrentViewPort(Sender: TObject);
var
  ps: IPlanSwift;
  psline: ILine;
  pg,d: IItem;
 
begin
  //Create Planswift Interface
  ps := coPlanswift.Create;
  //Get Current Viewport size and store it into a line
  psline := ps.CurrentViewport;
  // Get the current page in the viewport
  pg := ps.SelectedPage;
  //Add a dimension to the current page
  d := pg.NewItem('Dimension','ViewPort Dimension');
  //Set the PageGUID of the dimension so that it shows on the proper page
  d.SetPropertyFormula('PageGUID',pg.GUID);
  //Add Start point of the dimension
  d.NewPoint(psline.Point1.X,psline.Point1.Y);
  //Add End Point of the dimension
  d.NewPoint(psline.Point2.Y,psline.Point2.Y);
  //Free the planswift interface
  ps := nil;
end;