Document Viewer - Discussion: Type name instead of Number - fixed| Created on |
Mar 3, 2006 |
| Created by |
Salim L. |
| Status |
|
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))
Documents