Description

Zooms list of pages on the Tracking main tab in Fred.

Syntax

sParams

a number 01, 11, 00 or 10.

For the meaning of numbers, read below from the example of the toolbar assignment in Fred4_TabItems.xml, GN4ShellMenus > <Menuset Name="Fred4Tracy"> <ToolBarList

    <l:TBBtn CommandParameter="Zoom" ToolTip="Fit layout to window" Icon="#zoom3.gif" Param="01"/>

    <l:TBBtn CommandParameter="Zoom" ToolTip="Fit layout width to window" Icon="#zoom4.gif" Param="11"/>

    <l:TBBtn CommandParameter="Zoom" ToolTip="Fit page to window" Icon="#zoom1.gif" Param="00"/>

    <l:TBBtn CommandParameter="Zoom" ToolTip="Fit page width to window" Icon="#zoom6.gif" Param="10"/>

Code

  Public Sub Zoom(ByVal parameters As String)

    Dim wo=(parameters(0)="1")

    Dim fl=(parameters(1)="1")

    Designer.ZoomFit(wo, fl)

  End Sub