The ARTICLE.VB in the TXTDESIGNERBASE class contains default constants, related to the Cursor and TxtPosDesc object.

  Protected Const modeSame = -1    ' same mode as the current editing window

  Protected Const modeJust = 0     ' Justified text, i.e. WYSIWYG

  Protected Const modeSrcOn = 1    ' Source text, with commands displayed

  Protected Const modeSrcOff = 2   ' Source text, with commands hidden

 

  Protected Const cposBegin = 0    ' Text begin

  Protected Const cposEnd = 1      ' Text end

  Protected Const cposCursor = 2   ' Current cursor position

  Protected Const cposSelBegin = 3 ' Begin of text selection

  Protected Const cposSelEnd = 4   ' End of text selection

 

  ' Text position description types

  Protected Const tptUnknown = -1

  Protected Const tptText = 0

  Protected Const tptInCmd = 1

  Protected Const tptStartCmd = 2

  Protected Const tptEndCmd = 3

  Protected Const tptPara = 4

  Protected Const tptForcLine = 5

  Protected Const tptSoftLine = 6

  Protected Const tptSoftHyphen = 7

  Protected Const tptBell = 8

  Protected Const tptTab = 9

  Protected Const tptStartTab = 10

  Protected Const tptInvisible = 11

  Protected Const tptInExtCmd = 12

  Protected Const tptStartExtCmd = 13

  Protected Const tptEndExtCmd = 14

  Protected Const tptFirst = -1

  Protected Const tptLast = 14

  ' Text position description names

  Dim atptNames() As String = {"empty", "text", "inside tag", "start tag", "end tag", "end paragraph", "forced end line", "justification end line", "justification end line with hyphen", "bell", "tab", "start tab", "invisible", "inside HTML tag", "start HTML tag", "end HTML tag"}

  ' Possible justification element types (values of the JustElementType property

  ' of the TxtPosDesc objects)

  Protected Const jeleNone = -1   ' nothing

  Protected Const jeleRule = 0    ' rule

  Protected Const jeleImg = 1     ' picture

  ' Tag types (values of the CmdType property of the TxtPosDesc objects)

  Protected Const ctUnknown = -1   ' Unknown / error

  Protected Const ctSimple = 0    ' Simple tag

  Protected Const ctParaStyle = 1    ' Paragraph style

  Protected Const ctTextStyleBegin = 2    ' Beginning of a text style

  Protected Const ctTextStyleEnd = 3    ' End of a text style

  Protected Const ctFirst = -1

  ' Tag types names

  Dim actNames() As String = {"unknown", "simple", "para style", "begin text style", "end text style"}

  ' Small caps codes (values of the Small property of the TxtPosDesc object)

  Protected Const smallOff = 0

  Protected Const smallOn = 1

  Protected Const smallUpper = 2

  Protected Const smallLower = 3

  ' Tabulation tests codes (values of the first parameter of the TestTabulation 

  ' function of the Cursor objects)

  Protected Const tpTable = 0    ' Complete table

  Protected Const tpRow = 1      ' Row of a table

  Protected Const tpCell = 2     ' Cell of a table