Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

    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

Code Block
languagedelphi
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
//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#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Coming soon


VB/VBA (OLE)

Code Block
languagevb
firstline1
titleUsing IItem Object Model
linenumberstrue
Coming soon


Code Block
languagevb
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Coming soon