home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / vbwin / visio / visconst.bas next >
BASIC Source File  |  1993-09-15  |  14KB  |  394 lines
  1. '------------------------------------------------------------------------------------------------
  2. '------------------------------------------------------------------------------------------------
  3. '--  VISCONST.BAS - Visio global constant file. This file can be loaded into a code module.
  4. '--  Copyright (C) 1991-1993 Shapeware Corporation. All rights reserved.
  5. '--
  6. '--  The constant names consist of a lowercase prefix "vis" and fully spelled words all starting
  7. '--  with a capitalized initial (e.g., visSizeNormal). However, standard abbreviations are used
  8. '--  for the following words;
  9. '--
  10. '--  Horizontal is abbreviated as Horz
  11. '--  Vertical is abbreviated as Vert
  12. '--  Transform is abbreviated as XForm
  13. '--  Foreground is abbreviated as Fore
  14. '--  Background is abbreviated as Back
  15. '--
  16. '--  Some constants are commented out because they have
  17. '--  duplicates (e.g., visNone appears several places).
  18. '--
  19. '--
  20. '--
  21. '--
  22. '--  Audit Trail
  23. '--
  24. '--  09/01/93 - v19.00 - aw - All names should now follow the conventions above.
  25. '--  08/30/93 - v18.00 - aw - Added constants for the property Type (types of shape and window),
  26. '--                           and names for the already existing constants for patterns.
  27. '--  08/26/93 - v17.70 - pr - Changed a couple of comments and got rid of 2 unnecessary constants
  28. '--                           (the "fractional" constants, visUnitMin & visUnitSec) in the section,
  29. '--                           "Units constants for Result, ResultForce, ResultIU, and ResultIUForce".
  30. '--  08/24/93 - v17.50 - pr - Changed the value of visErrNum from 6 to 68.
  31. '--  08/22/93 - v17.00 - aw - Updated the object class constants according to \\bob\ben!ml\api\apipriv.h.
  32. '--                           Removed those classes we don't have properties or methods for. Added
  33. '--                           constants for possible values for CWin::Select's second paramter
  34. '--                           (selectAction).
  35. '--  08/20/93 - v16.00 - aw - Removed all the util functions to \\bob\ben!vao\vbao\lib\VISUTIL.BAS.
  36. '--  08/19/93 - v15.00 - aw - Added MinimizeWindow(), MaximizeWindow(), and RestoreWindow().
  37. '--  08/16/93 - v14.00 - aw - Added constants for the cells in the Paragraph section and the
  38. '--                           Character section.
  39. '--  08/10/93 - v13.00 - aw - Removed the PTG part for the contstants with the possible
  40. '--                           errors for the method Cell.Error
  41. '--  08/06/93 - v12.00 - pr - Added units constants for Result/ResultForce/ResultIU/ResultIUForce.
  42. '--  08/04/93 - v11.50 - pr - Added the word "Global" to the beginning of those constants added in v10.00.
  43. '--  07/30/93 - v11.00 - pr - Added a comment line (the "KKEEPER BEGIN-DON'T..." line) so that the
  44. '--                           Konstant Keeper application will not load any line above it.
  45. '--  07/30/93 - v10.00 - aw - Added constants for connecting (gluing) from and to, and constants for
  46. '--                          possible errors that might occur using the method Error for class Cell.
  47. '--  07/29/93 - v9.000 - pr - Changed file to a .txt file.
  48. '--  07/23/93 - v8.000 - aw - Added constants for text alignment, size, and updates for new masters
  49. '--  07/22/93 - v7.000 - aw - Removed the classes style and styles. Add constants for the 3 types of
  50. '--                           guides that visio supports. Const visTagInval added.
  51. '--  07/16/93 - v6.000 - aw - Removed all constants in the old format. Added new constant for tags.
  52. '--  07/14/93 - v5.000 - aw - New constants names! We now follow the "Visual Basic for Application"
  53. '--                           naming convention. ie. VIS_OBJTYPE_APP -> visObjApp, Function
  54. '--                           TxtBkgndColor
  55. '--  07/07/93 - v4.000 - aw - Included row and section indexes from the file sslogids.h,
  56. '--                           and row tags from the file dmtags.h, both at (\\bob\ben!ml\inc)
  57. '--  07/06/93 - v3.000 - aw - Added text background constants for text block dialog, color
  58. '--                           constants, and pattern constants.
  59. '--  06/30/93 - v2.000 - aw - Added routines for checking and removing the GUARD statement.
  60. '--  06/29/93 - v1.000 - aw - Globals and routines for debugging objects.
  61. '--
  62. '------------------------------------------------------------------------------------------------
  63. '------------------------------------------------------------------------------------------------
  64. 'KKEEPER BEGIN-DON'T ALTER THIS LINE!
  65. 'The application and object to create
  66. Global Const visApi = "visio.application"
  67.  
  68. 'The object ID's
  69. Global Const visApplication = 1
  70. Global Const visCell = 2
  71. Global Const visDocument = 10
  72. Global Const visDocuments = 11
  73. Global Const visMaster = 12
  74. Global Const visMasters = 13
  75. Global Const visPage = 14
  76. Global Const visPages = 15
  77. Global Const visShape = 16
  78. Global Const visShapes = 17
  79. Global Const visStyle = 18
  80. Global Const visStyles = 19
  81. Global Const visWindow = 20
  82. Global Const visWindows = 21
  83. Global Const visSelection = 22
  84. Global Const visConnect = 25
  85. Global Const visConnects = 26
  86.  
  87. 'Dump method parameter values
  88. Global Const visDumpType = 0
  89.  
  90. 'Select method parameter values
  91. Global Const visDeselect = &H1
  92. Global Const visSelect = &H2
  93. Global Const visSubSelect = &H3
  94. Global Const visDeselectAll = &H100
  95.  
  96. 'Units constants
  97. Global Const visNumber = &H20           'no units used
  98. Global Const visTypeUnits = &H30        'default text type units
  99. Global Const visPoints = &H32
  100. Global Const visPicas = &H33
  101. Global Const visDidots = &H35
  102. Global Const visCiceros = &H36
  103. Global Const visPageUnits = &H3F        'default
  104. Global Const visDrawingUnits = &H40     'default
  105. Global Const visInches = &H41
  106. Global Const visFeet = &H42
  107. Global Const visMiles = &H44
  108. Global Const visCentimeters = &H45
  109. Global Const visMillimeters = &H46
  110. Global Const visMeters = &H47
  111. Global Const visKilometers = &H48
  112. Global Const visYards = &H4B
  113. Global Const visAngleUnits = &H50       'default
  114. Global Const visDegrees = &H51          'decimal degrees
  115. Global Const visRadians = &H53
  116.  
  117. 'FromPart property values
  118. Global Const visConnectError = -1
  119. Global Const visNone = 0
  120. Global Const visLeftEdge = 1
  121. Global Const visCenterEdge = 2
  122. Global Const visRightEdge = 3
  123. Global Const visBottomEdge = 4
  124. Global Const visMiddleEdge = 5
  125. Global Const visTopEdge = 6
  126. Global Const visBeginX = 7
  127. Global Const visBeginY = 8
  128. Global Const visBegin = 9
  129. Global Const visEndX = 10
  130. Global Const visEndY = 11
  131. Global Const visEnd = 12
  132. Global Const visControlPoint = 100
  133.  
  134. 'ToPart property values
  135. 'Global Const visConnectError = -1             'see FromPart..
  136. 'Global Const visNone = 0               'see FromPart..
  137. Global Const visGuideX = 1
  138. Global Const visGuideY = 2
  139. Global Const visConnectionPoint = 100
  140.  
  141. 'Cell error property values
  142. Global Const visErrorSuccess = 0
  143. Global Const visErrorDivideByZero = 39
  144. Global Const visErrorValue = 47
  145. Global Const visErrorReference = 55
  146. Global Const visErrorName = 61
  147. Global Const visErrorNumber = 68
  148. Global Const visErrorNotAvailable = 74
  149.  
  150. 'AddGuide method guide types
  151. Global Const visPoint = 1
  152. Global Const visHorz = 2
  153. Global Const visVert = 3
  154.  
  155. 'Type property values - shapes
  156. Global Const visTypeStyle = 1
  157. Global Const vistypeGroup = 2
  158. Global Const visTypeShape = 3
  159. Global Const visTypeForeignObject = 4
  160. Global Const visTypeGuide = 5
  161.  
  162. 'Type property values - windows
  163. Global Const visDrawing = 1
  164. Global Const visStencil = 2
  165. Global Const visSheet = 3
  166. Global Const visIcon = 4
  167.  
  168. 'AlignName property values
  169. Global Const visLeft = 1
  170. Global Const visCenter = 2
  171. Global Const visRight = 3
  172.  
  173. 'IconSize property values
  174. Global Const visNormal = 1
  175. Global Const visTall = 2
  176. Global Const visWide = 3
  177. Global Const visDouble = 4
  178.  
  179. 'IconUpdate property values
  180. Global Const visAutomatic = &HFF
  181. Global Const visManual = 0
  182.  
  183. 'Text case
  184. Global Const visCaseNormal = 0
  185. Global Const visCaseAllCaps = 1
  186. Global Const visCaseInitialCaps = 2
  187.  
  188. 'Text position relative to shape
  189. Global Const visPosNormal = 0
  190. Global Const visPosSuper = 1
  191. Global Const visPosSub = 2
  192.  
  193. 'Text styles
  194. Global Const visBold = 1
  195. Global Const visItalic = 2
  196. Global Const visUnderLine = 4
  197. Global Const visSmallCaps = 8
  198.  
  199. 'The possible values for the HAlign cell
  200. Global Const visHorzLeft = 0
  201. Global Const visHorzCenter = 1
  202. Global Const visHorzRight = 2
  203. Global Const visHorzJustify = 3
  204. Global Const visHorzForce = 4
  205.  
  206. 'The possible values for the tab stop Align cell
  207. Global Const visTabStopLeft = 0
  208. Global Const visTabStopCenter = 1
  209. Global Const visTabStopRight = 2
  210. Global Const visTabStopDecimal = 3
  211. Global Const visTabStopComma = 4
  212.  
  213. 'The possible values for the VAlign cell
  214. Global Const visVertTop = 0
  215. Global Const visVertMiddle = 1
  216. Global Const visVertBottom = 2
  217.  
  218. 'The possible values for the TextBkgnd cell
  219. Global Const visTransparent = 0
  220.         'Opaque - see Visio's 24 color pallette list.
  221.  
  222. 'Visio's 24 color pallette
  223. Global Const visBlack = 0
  224. Global Const visWhite = 1
  225. Global Const visRed = 2
  226. Global Const visGreen = 3
  227. Global Const visBlue = 4
  228. Global Const visYellow = 5
  229. Global Const visMagenta = 6
  230. Global Const visCyan = 7
  231. Global Const visDarkRed = 8
  232. Global Const visDarkGreen = 9
  233. Global Const visDarkBlue = 10
  234. Global Const visDarkYellow = 11
  235. Global Const visPurple = 12
  236. Global Const visDarkCyan = 13
  237. Global Const visGray = 14
  238. Global Const visGray10 = 15
  239. Global Const visGray20 = 16
  240. Global Const visGray30 = 17
  241. Global Const visGray40 = 18
  242. Global Const visDarkGray = 19
  243. Global Const visGray50 = visDarkGray
  244. Global Const visGray60 = 20
  245. Global Const visGray70 = 21
  246. Global Const visGray80 = 22
  247. Global Const visGray90 = 23
  248.  
  249. 'Patterns
  250. 'Global Const visNone = 0
  251. Global Const visSolid = 1
  252. Global Const visWideUpDiagonal = 2
  253. Global Const visWideCross = 3
  254. Global Const visWideDiagonalCross = 4
  255. Global Const visWideDownDiagonal = 5
  256. Global Const visWideHorz = 6
  257. Global Const visWideVert = 7
  258. Global Const visBackDotsMini = 8
  259. Global Const visHalfAndHalf = 9
  260. Global Const visForeDotsMini = 10
  261. Global Const visForeDotsNarrow = 11
  262. Global Const visForeDotsWide = 12
  263. Global Const visThickHorz = 13
  264. Global Const visThickVertial = 14
  265. Global Const visThickDownDiagonal = 15
  266. Global Const visThickUpDiagonal = 16
  267. Global Const visThickDialogCross = 17
  268. Global Const visBackDotsWide = 18
  269. Global Const visThinHorz = 19
  270. Global Const visThinVert = 20
  271. Global Const visThinDownDiagonal = 21
  272. Global Const visThinUpDiagonal = 22
  273. Global Const visThinCross = 23
  274. Global Const visThinDiagonalCross = 24
  275.  
  276. '-- Values for the cells that control the page's size and scale
  277.  
  278. 'The possible values for the drawing size type
  279. Global Const visPrintSetup = 0
  280. Global Const visTight = 1
  281. Global Const visStandard = 2
  282. Global Const visCustom = 3
  283. Global Const visLogical = 4
  284.  
  285. 'The possible values the drawing scale type
  286. Global Const visNoScale = 0
  287. Global Const visArchitectural = 1
  288. Global Const visEngineering = 2
  289. Global Const visScaleCustom = 3
  290.  
  291. 'The possible values for the page's grid density
  292. Global Const visGridFine = 8
  293. Global Const visGridNormal = 4
  294. Global Const visGridCoarse = 2
  295.  
  296. 'The possible values for the page's subdivision on the ruler
  297. Global Const visRulerFine = 32
  298. Global Const visRulerNormal = 16
  299. Global Const visRulerCoarse = 8
  300.  
  301. 'Section IDs
  302. Global Const visSectionFirst = 0            'first logical section
  303. Global Const visSectionLastComponent = &HFA
  304. Global Const visSectionLast = &HFC          'last logical section
  305. Global Const visSectionText = &HFD
  306. Global Const visSectionForeign = &HFE
  307. Global Const visSectionNone = &HFF          'unspecified logical section
  308. Global Const visSectionObject = 1
  309. Global Const visSectionMember = 2
  310. Global Const visSectionCharacter = 3
  311. Global Const visSectionParagraph = 4
  312. Global Const visSectionTab = 5
  313. Global Const visSectionScratch = 6
  314. Global Const visSectionExport = 7
  315. Global Const visSectionTextField = 8
  316. Global Const visSectionControls = 9
  317. Global Const visSectionFirstComponent = 10
  318.  
  319. 'Row IDs
  320. Global Const visRowFirst = 0                'first logical row in any section
  321. Global Const visRowLast = -2                'last logical row in any section
  322. Global Const visRowNone = &HFF              'unspecified row
  323. Global Const visRowXFormOut = 1
  324. Global Const visRowLine = 2
  325. Global Const visRowFill = 3
  326. Global Const visRowXForm1D = 4
  327. Global Const visRowEvent = 5
  328. Global Const visRowGuide = 7
  329. Global Const visRowStyle = 8
  330. Global Const visRowForeign = 9
  331. Global Const visRowPage = 10
  332. Global Const visRowText = 11
  333. Global Const visRowTextXForm = 12
  334. Global Const visRowXFormIn = visRowXFormOut
  335. Global Const visRowAlign = 14
  336. Global Const visRowLock = 15
  337. Global Const visRowData123 = 16
  338. Global Const visRowMisc = 17
  339. Global Const visRowMember = 0
  340. Global Const visRowField = 0
  341. Global Const visRowCharacter = 0
  342. Global Const visRowParagraph = 0
  343. Global Const visRowTab = 0
  344. Global Const visRowScratch = 0
  345. Global Const visRowExport = 0
  346. Global Const visRowControl = 0
  347. Global Const visRowComponent = 0
  348. Global Const visRowVertex = 1
  349. Global Const visRowFormat = visRowControl
  350.  
  351. 'Tags for rows
  352. Global Const visTagBase = 130
  353. Global Const visTagTab0 = 136
  354. Global Const visTagComponent = 137
  355. Global Const visTagMoveTo = 138
  356. Global Const visTagLineTo = 139
  357. Global Const visTagArcTo = 140
  358. Global Const visTagEllipticalArcTo = 144
  359. Global Const visTagTab2 = 150
  360. Global Const visTagTab10 = 151
  361. Global Const visTagInvalid = &HFF
  362.  
  363. '-- Cell IDs
  364.  
  365. 'Cell IDs for vertex rows
  366. Global Const visX = 0
  367. Global Const visY = 1
  368. Global Const visBow = 2
  369. Global Const visEccentricityAngle = 4
  370. Global Const visAspectRatio = 5
  371. Global Const visControlX = 2
  372. Global Const visControlY = 3
  373.  
  374. 'The IDs for the cells in the Character section
  375. Global Const visCharacterFont = 0
  376. Global Const visCharacterColor = 1
  377. Global Const visCharacterStyle = 2
  378. Global Const visCharacterCase = 3
  379. Global Const visCharacterPos = 4
  380. Global Const visCharacterSize = 7
  381.  
  382. 'The IDs for the cells in the Paragraph section
  383. Global Const visIndentFirst = 0
  384. Global Const visIndentLeft = 1
  385. Global Const visIndentRight = 2
  386. Global Const visSpaceLine = 3
  387. Global Const visSpaceBefore = 4
  388. Global Const visSpaceAfter = 5
  389. Global Const visHorzAlign = 6
  390.  
  391.  
  392.  
  393.  
  394.