ViewShowGuides Script
Contents
Description
Toggles display of guides on the Pages main tab.
Uses the Ena_IsWindowActive function for enabler.
Uses the Chk_IsViewShownGuides function to display the tick mark in the menu.
Syntax
ViewShowGuides |
Code
<ShellCommand(CanExecute:="Ena_IsWindowActive", IsChecked:="Chk_IsViewShownGuides")> _
Public Sub ViewShowGuides()
If (Chk_IsViewShowedGridVer() <> 0) And (Chk_IsViewShowedGridHor() <> 0) Then ' hor and ver shown
Page.ViewShowGuidesHor(SwitchOff)
Page.ViewShowGuidesVer(SwitchOff)
ElseIf (Chk_IsViewShowedGridVer()) = 0 And (Chk_IsViewShowedGridHor()) = 0 Then ' hor and ver hidden
Page.ViewShowGuidesHor(SwitchOn)
Page.ViewShowGuidesVer(SwitchOn)
Else
Page.ViewShowGuidesHor(SwitchOn)
Page.ViewShowGuidesVer(SwitchOn)
End If
End Sub
See also