• Type name instead of Number - fixed

    By Salim L. 2 decades ago

    This will enhance the document viewer by displaying the Type name instead of the number in the second column.


    1. Add this function to the script library "CustomFunctions":



      Function GetItemType(itemType As Long) As String

      Select Case itemType

      Case 16 : GetItemType = "ACTIONCD"

      Case 17 : GetItemType = "ASSISTANTINFO"

      Case 1084: GetItemType = "ATTACHMENT"

      Case 1076: GetItemType = "AUTHORS"

      Case 2: GetItemType = "COLLATION"

      Case 1024 : GetItemType = "DATETIMES"

      Case 1090 : GetItemType = "EMBEDDEDOBJECT"

      Case 256 : GetItemType = "ERRORITEM"

      Case 1536 : GetItemType = "FORMULA"

      Case 21 : GetItemType = "HTML"

      Case 6 : GetItemType = "ICON"

      Case 20 : GetItemType = "LSOBJECT"

      Case 25 : GetItemType = "MIME_PART"

      Case 1074 : GetItemType = "NAMES"

      Case 7 : GetItemType = "NOTELINKS"

      Case 4 : GetItemType = "NOTEREFS"

      Case 768 : GetItemType = "NUMBERS"

      Case 1085 : GetItemType = "OTHEROBJECT"

      Case 15 : GetItemType = "QUERYCD"

      Case 1075 : GetItemType = "READERS"

      Case 1 : GetItemType = "RICHTEXT"

      Case 8 : GetItemType = "SIGNATURE"

      Case 1280: GetItemType = "TEXT"

      Case 512: GetItemType = "UNAVAILABLE"

      Case 0: GetItemType = "UNKNOWN"

      Case 14: GetItemType = "USERDATA"

      Case 1792: GetItemType = "USERID"

      Case 18: GetItemType = "VIEWMAPDATA"

      Case 19: GetItemType = "VIEWMAPLAYOUT"

      End Select

      End Function


    2. in QueryOpen event of the form modify line 110:



      replace this: Call rtitem.AppendText(Cstr(DocItem.type))

      by this: Call rtitem.AppendText(GetItemType(DocItem.type))
    • is included in 0.3

      By Timo Emrich 2 decades ago

      Thank you for the code.. this fuction is included in release 0.3



      Timo