72 lines
1.8 KiB
QBasic
72 lines
1.8 KiB
QBasic
|
Attribute VB_Name = "Declarations"
|
|||
|
|
Option Private Module
|
|||
|
|
Option Explicit
|
|||
|
|
|
|||
|
|
Public Const HELP_WORD_BOOKMARK = "HT03_VISIO"
|
|||
|
|
Public Const HELP_FILE_PATH = "\\fs1.concept.ru\Projects\10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\01 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD>\!<21><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.docx"
|
|||
|
|
|
|||
|
|
' Master shapes names
|
|||
|
|
Public Const MASTER_DOCUMENT = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Public Const MASTER_CONNECTOR = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
|
|||
|
|
' Custom cells names
|
|||
|
|
Public Const CELLSU_LNKTYPE = "User.LinkType"
|
|||
|
|
Public Const CELLSU_DOCLEVEL = "User.DocLevel"
|
|||
|
|
|
|||
|
|
' Max length of doc title
|
|||
|
|
Public Const MAX_TITLE_LEN = 130
|
|||
|
|
|
|||
|
|
Public Const PREFIX_HEAD = "H"
|
|||
|
|
|
|||
|
|
' ======== LayoutManager constants ================
|
|||
|
|
Public Const VERTICAL_GAP = 10# ' mm
|
|||
|
|
Public Const HORIZONTAL_GAP = 10# ' mm
|
|||
|
|
Public Const SHAPE_HEIGHT = 25# ' mm
|
|||
|
|
Public Const SHAPE_WIDTH = 80# ' mm
|
|||
|
|
|
|||
|
|
Public Const MM_TO_INCH = 25.4
|
|||
|
|
|
|||
|
|
Public Const MAX_LEVEL = 9
|
|||
|
|
|
|||
|
|
'# Layout Type
|
|||
|
|
Public Enum VsoLayoutType
|
|||
|
|
[_First] = 1
|
|||
|
|
|
|||
|
|
VLT_VERTICAL = 1
|
|||
|
|
VLT_HORIZONTAL = 2
|
|||
|
|
|
|||
|
|
[_Last] = 3
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
' ======== XL constants ================
|
|||
|
|
Public Const XL_FIRST_LINE = 2
|
|||
|
|
|
|||
|
|
Public Enum DocsStruct
|
|||
|
|
DS_ID = 1
|
|||
|
|
DS_LEVEL = 2
|
|||
|
|
DS_TITLE = 3
|
|||
|
|
DS_TYPE = 4
|
|||
|
|
DS_GID = 5
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Enum LinksStruct
|
|||
|
|
LS_SOURCE = 1
|
|||
|
|
LS_TARGET = 2
|
|||
|
|
LS_TYPE = 3
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Function DocLevelText(docLvl&) As String
|
|||
|
|
Select Case docLvl
|
|||
|
|
Case 1: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
|||
|
|
Case 2: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case 3: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case 4: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case 5: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case 6: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case 7: DocLevelText = "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
|||
|
|
Case 8: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 8"
|
|||
|
|
Case 9: DocLevelText = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 9"
|
|||
|
|
End Select
|
|||
|
|
End Function
|
|||
|
|
|