Versions Compared

Key

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

SetZoom

Defines the current "zoom" scale factor for the active page.

...

    • 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 IItem Object Model
linenumberstrue
collapsetrue
procedure TForm1.psGetZoom(Sender: TObject);
var
  ps: IPlanSwift;
  zoom: string;
begin
//Create Planswift Interface
 ps := coPlanswift.Create;
 //Call inputbox to change the zoom level
 zoom := InputBox('Change Zoom Level','Change Zoom Level',FloatToStr(ps.Zoom));
 //Set Zoom Value
 ps.Zoom := strToInt(zoom);
 //Free Planswift Interface
 ps := nil;
 end;


Code Block
languagedelphi
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

C#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

VB/VBA (OLE)

Code Block
languagevb
firstline1
titleUsing IItem Object Model
linenumberstrue


Code Block
languagevb
firstline1
titleUsing PlanSwift Object Model
linenumberstrue

Pascal Scripting (OLE)

Code Block
firstline1
titleItem Object Model
linenumberstrue


Code Block
titleRoot Object Model
linenumberstrue

Pascal Scripting

Code Block
firstline1
titleItem Object Model
linenumberstrue


Code Block
titleUsing the PlanSwift Object Model
linenumberstrue