Description

Characters' width in millipoints. Correspond to the GNML tag >w...<.

Syntax

object

Required. Object name, returned by Text.GetTextStatus, Text.GetParaTextStatus and Text.GetDefaultTextStatus functions

mWidth

Value in millipoints.

Example

  <ShellCommand(CanExecute:="Ena_IsEditingArticleText")>

  Public Overridable Function InsChar() As Integer

    If Text.TestTextSelection Then

      If Text.EditBlockNoCmd = 0 Then

        Dim objTS = Text.GetTextStatus

        Dim chrInserted As Integer = Text.InsChar()

        If chrInserted = 0 Then Return 0

        Text.EditBlockStart()

        Text.CursorLeft()

        Text.EditBlockEnd()

        Text.SetTextStatus(objTS)

        If objTS.CharW <> objTS.CharH Then

          If MsgBox(My.Resources.IDS_RestHorScale, MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = vbYes Then

            objTS.CharW = objTS.CharH

            Text.SetTextStatus(objTS)

          End If

        End If

        objTS.Dispose()

        Return chrInserted

      Else

        Return 0

      End If

    Else

      Return Text.InsChar()

    End If

  End Function

See also

Other typeface, size and base properties and functions