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