View Source

CurrentViewport

Gets the Upper right and lower left points of the viewport.

Syntax:

Procedure: CurrentViewport;

Code Reference:

1. Create a New Form application
2. Add a button to the form
3. Add PlanSwift to reference (Planswift9_tlb in the uses)
4. Copy code to button onclick event

API Calls

Delphi

//PlanSwift code:
var
  oLine : ILine;
begin
  oLine := PlanSwift.CurrentViewport();
end;



//FreshDesk code:
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;

C#

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

Coming soon

VB/VBA (OLE)

Coming soon

Coming soon