Description

Splits horizontally the current text editing window, creating a new view.

Syntax

bool        

True=swap split if already opened; False=split

Return value

Error code

Context

Fred application dispatcher commands

Examples

  <ShellCommand(CanExecute:="Ena_HasFrameSelection")> _

  Public Overridable Sub TxtEdit()

    If Page.GetSelectedKind = POK.oFrame Then

      If (Page.GetSelectionHeight > Page.GetSelectionWidth) Or EdConfig.glbAlwaysSplitVertical = True Then

        Fred.WinVSplit(False)

      Else

        Fred.WinHSplit(False)

      End If

      If Fred.GetQualifier = 1 Then Fred.WinHSplit(False)

      If Fred.GetQualifier = 2 Then Fred.WinVSplit(False)

      Dim res As Integer = Page.TxtEdit(True, False)

      If res = EFAILED Then

        MsgBox(My.Resources.IDS_TxtEditNoPerm, vbExclamation, My.Resources.IDS_Error)

      End If

    End If

  End Sub

 

  Public Overridable Sub ResplitV()

    Fred4WindowAddIn.Fred.WinVSplit(False)

    FredApp.ActivePageDispatcher.TxtEdit(True, True)

  End Sub

See also

WinSplit Method

WinVSplit Method (Fred)