Syntax

code

Function: CurrentViewport;

Description

Gets the Upper right and lower left points of the viewport

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

code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

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;