home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / cvb / vaccess.vce < prev   
Text File  |  1998-02-16  |  193KB  |  4,344 lines
  1. //  COPYRIGHT:
  2. //    IBM(R) VisualAge(TM) for COBOL, Version 2.2
  3. //    (C) Copyright International Business Machines Corporation 1998
  4. //    Licensed Material - Program-Property of IBM - All Rights Reserved.
  5. //    US Government Users Restricted Rights - Use, duplication, or disclosure
  6. //    restricted by GSA ADP Schedule Contract with IBM Corp.
  7. //
  8. //  -------------------------------------------------------------------
  9. //
  10. //VBBeginTypeInfo: Integer,,
  11. //VB: 01  Integer PIC 9(9) COMP-5.
  12. //VBPartDataFile: 'vaccess.vcb'
  13. //VBComposerClass: Integer
  14. //VBEndTypeInfo: Integer
  15. //
  16. //VBBeginTypeInfo: SignedInteger,,
  17. //VB: 01  SignedInteger PIC S9(9) COMP-5.
  18. //VBPartDataFile: 'vaccess.vcb'
  19. //VBComposerClass: Integer
  20. //VBEndTypeInfo: SignedInteger
  21. //
  22. //VBBeginTypeInfo: String,,
  23. //VB: 01  String PIC X(256).
  24. //VBPartDataFile: 'vaccess.vcb'
  25. //VBComposerClass: AvlCharString
  26. //VBEndTypeInfo: String
  27. //
  28. // *** The stringArray has been defined to a maximum of 200 entries ***
  29. //VBBeginTypeInfo: StringArray,,
  30. //VB: 01  StringArray.
  31. //VB:      03  StringArray-Size      PIC 9(9) COMP-5.
  32. //VB:      03  StringArray-Item   PIC X(255) OCCURS 1 TO
  33. //VB:              200 TIMES DEPENDING ON StringArray-Size.
  34. //VBPartDataFile: 'vaccess.vcb'
  35. //VBComposerClass: AvlCharString, Array
  36. //VBEndTypeInfo: StringArray
  37. //
  38. //VBBeginTypeInfo: PackedNum,,
  39. //VB: 01  PackedNum PIC S9(18).
  40. //VBPartDataFile: 'vaccess.vcb'
  41. //VBComposerClass: Integer
  42. //VBEndTypeInfo: PackedNum
  43. //
  44. //VBBeginTypeInfo: Float,,
  45. //VB: 01  Float COMP-2.
  46. //VBPartDataFile: 'vaccess.vcb'
  47. //VBComposerClass: Integer
  48. //VBEndTypeInfo: Float
  49. //
  50. //VBBeginTypeInfo: CommandLine,"Command Line information",
  51. //VB: 01  CommandLine.
  52. //VB:      03  CommandLine-Length      PIC 9(4) USAGE COMP.
  53. //VB:      03  CommandLine-String      PIC X(255).
  54. //VBPartDataFile: 'vaccess.vcb'
  55. //VBComposerClass: CBLVarLengthString
  56. //VBEndTypeInfo: CommandLine
  57. //
  58. //VBBeginTypeInfo: VarLengthString,"Variable length string",
  59. //VB: 01  VarLengthString.
  60. //VB:      03  VarLengthString-Length      PIC 9(9) COMP-5.
  61. //VB:      03  VarLengthString-String.
  62. //VB:           05  VarLengthString-Chars  PIC X
  63. //VB:                  OCCURS 1 TO 255 TIMES
  64. //VB:                  DEPENDING ON VarLengthString-Length.
  65. //VBPartDataFile: 'vaccess.vcb'
  66. //VBComposerClass: CBLVarLengthString
  67. //VBEndTypeInfo: VarLengthString
  68. //
  69. //VBBeginTypeInfo: VarLengthStringMLE,"Variable length string for an MLE",
  70. //VB: 01  VarLengthStringMLE.
  71. //VB:      03  VarLengthStringMLE-Length      PIC 9(9) COMP-5.
  72. //VB:      03  VarLengthStringMLE-String.
  73. //VB:           05  VarLengthStringMLE-Chars  PIC X
  74. //VB:                  OCCURS 1 TO 65535 TIMES
  75. //VB:                  DEPENDING ON VarLengthStringMLE-Length.
  76. //VBPartDataFile: 'vaccess.vcb'
  77. //VBComposerClass: CBLVarLengthString
  78. //VBEndTypeInfo: VarLengthStringMLE
  79. //
  80. //VBBeginTypeInfo: Boolean,,
  81. //VB: 01  Boolean      PIC 9(9) COMP-5.
  82. //VB:      88  Boolean-False      VALUE 0.
  83. //VB:      88  Boolean-True      VALUE 1.
  84. //VBPartDataFile: 'vaccess.vcb'
  85. //VBComposerClass: Boolean
  86. //VBEndTypeInfo: Boolean
  87. //
  88. //VBBeginTypeInfo: Pointer,,
  89. //VB: 01  aPointer POINTER.
  90. //VBPartDataFile: 'vaccess.vcb'
  91. //VBComposerClass: CBLPointer
  92. //VBEndTypeInfo: Pointer
  93. //
  94. //VBBeginTypeInfo: CVBMnemonicString
  95. //VBPartDataFile: 'vaccess.vcb'
  96. //VBComposerClass: AvlMnemonicString
  97. //VBEndTypeInfo: CVBMnemonicString
  98. //
  99. //VBBeginTypeInfo: Mix,"Red-Green-Blue color specification",
  100. //VB: 01  Mix.
  101. //VB:      03  Mix-Red      PIC 9(9) COMP-5.
  102. //VB:      03  Mix-Green      PIC 9(9) COMP-5.
  103. //VB:      03  Mix-Blue      PIC 9(9) COMP-5.
  104. //VBPartDataFile: 'vaccess.vcb'
  105. //VBComposerClass: CBLColorMix
  106. //VBEndTypeInfo: Mix
  107. //
  108. //VBBeginTypeInfo: KeyPress,"Key Pressed",
  109. //VB: 01  KeyPress     PIC X.
  110. //VBPartDataFile: 'vaccess.vcb'
  111. //VBEndTypeInfo: KeyPress
  112. //
  113. //VBBeginTypeInfo: MouseData,"Mouse Data information",
  114. //VB: 01  MouseData.
  115. //VB:      03 MouseData-Button-Pressed    PIC 9(9) COMP-5.
  116. //VB:          88  MouseData-NoButton          VALUE 0.
  117. //VB:          88  MouseData-Button1           VALUE 1.
  118. //VB:          88  MouseData-Button2           VALUE 2.
  119. //VB:          88  MouseData-Button3           VALUE 3.
  120. //VB:      03  MouseData-Position-X        PIC 9(9) COMP-5.
  121. //VB:      03  MouseData-Position-Y        PIC 9(9) COMP-5.
  122. //VBPartDataFile: 'vaccess.vcb'
  123. //VBEndTypeInfo: MouseData
  124. //
  125. //VBBeginTypeInfo: PopUpData,"PopUp Data information",
  126. //VB: 01  PopUpData.
  127. //VB:      03  PopUpData-Position-X        PIC 9(9) COMP-5.
  128. //VB:      03  PopUpData-Position-Y        PIC 9(9) COMP-5.
  129. //VB:      03  PopUpData-Index             PIC 9(9) COMP-5.
  130. //VBPartDataFile: 'vaccess.vcb'
  131. //VBEndTypeInfo: PopUpData
  132. //
  133. //VBBeginTypeInfo: Resize,"New window resizing values",
  134. //VB: 01  Resize.
  135. //VB:      03  Resize-Height               PIC 9(9) COMP-5.
  136. //VB:      03  Resize-Width                PIC 9(9) COMP-5.
  137. //VBPartDataFile: 'vaccess.vcb'
  138. //VBEndTypeInfo: Resize
  139. //
  140. //VBBeginEnumeration: VKeyPress,"Virtual Key Pressed",
  141. //VB: 01  VKeyPress                        PIC 9(9) COMP-5.
  142. //VB:      88  VKeyPress-Escape            VALUE 0.
  143. //VB:      88  VKeyPress-Tab               VALUE 1.
  144. //VB:      88  VKeyPress-Backtab           VALUE 2.
  145. //VB:      88  VKeyPress-Space             VALUE 3.
  146. //VB:      88  VKeyPress-Backspace         VALUE 4.
  147. //VB:      88  VKeyPress-Enter             VALUE 5.
  148. //VB:      88  VKeyPress-Newline           VALUE 6.
  149. //VB:      88  VKeyPress-Shift             VALUE 7.
  150. //VB:      88  VKeyPress-Control           VALUE 8.
  151. //VB:      88  VKeyPress-Alt               VALUE 9.
  152. //VB:      88  VKeyPress-Insert            VALUE 10.
  153. //VB:      88  VKeyPress-Delete            VALUE 11.
  154. //VB:      88  VKeyPress-Home              VALUE 12.
  155. //VB:      88  VKeyPress-End               VALUE 13.
  156. //VB:      88  VKeyPress-Pageup            VALUE 14.
  157. //VB:      88  VKeyPress-Pagedown          VALUE 15.
  158. //VB:      88  VKeyPress-Left              VALUE 16.
  159. //VB:      88  VKeyPress-Right             VALUE 17.
  160. //VB:      88  VKeyPress-Up                VALUE 18.
  161. //VB:      88  VKeyPress-Down              VALUE 19.
  162. //VB:      88  VKeyPress-Caps-Lock         VALUE 20.
  163. //VB:      88  VKeyPress-Num-Lock          VALUE 21.
  164. //VB:      88  VKeyPress-Scroll-Lock       VALUE 22.
  165. //VB:      88  VKeyPress-Pause             VALUE 23.
  166. //VB:      88  VKeyPress-SysReq            VALUE 24.
  167. //VB:      88  VKeyPress-Break             VALUE 25.
  168. //VB:      88  VKeyPress-F2                VALUE 26.
  169. //VB:      88  VKeyPress-F3                VALUE 27.
  170. //VB:      88  VKeyPress-F4                VALUE 28.
  171. //VB:      88  VKeyPress-F5                VALUE 29.
  172. //VB:      88  VKeyPress-F6                VALUE 30.
  173. //VB:      88  VKeyPress-F7                VALUE 31.
  174. //VB:      88  VKeyPress-F8                VALUE 32.
  175. //VB:      88  VKeyPress-F9                VALUE 33.
  176. //VB:      88  VKeyPress-F11               VALUE 34.
  177. //VB:      88  VKeyPress-F12               VALUE 35.
  178. //VB:      88  VKeyPress-F13               VALUE 36.
  179. //VB:      88  VKeyPress-F14               VALUE 37.
  180. //VB:      88  VKeyPress-F15               VALUE 38.
  181. //VB:      88  VKeyPress-F16               VALUE 39.
  182. //VB:      88  VKeyPress-F17               VALUE 40.
  183. //VB:      88  VKeyPress-F18               VALUE 41.
  184. //VB:      88  VKeyPress-F19               VALUE 42.
  185. //VB:      88  VKeyPress-F20               VALUE 43.
  186. //VB:      88  VKeyPress-F21               VALUE 44.
  187. //VB:      88  VKeyPress-F22               VALUE 45.
  188. //VB:      88  VKeyPress-F23               VALUE 46.
  189. //VB:      88  VKeyPress-F24               VALUE 47.
  190. //VBPartDataFile: 'vaccess.vcb'
  191. //VBEndEnumeration: VKeyPress
  192. //
  193. //VBBeginTypeInfo: Execute,"DDE Execute Acknowledgement",
  194. //VB: 01  Execute.
  195. //VB:      03  Execute-Status              PIC 9(9) COMP-5.
  196. //VB:          88  Execute-UnSuccessful    VALUE 0.
  197. //VB:          88  Execute-Successful      VALUE 1.
  198. //VB:      03  Execute-Length              PIC 9(9) COMP-5.
  199. //VB:      03  Execute-String.
  200. //VB:           05  Execute-Chars          PIC X(255).
  201. //VBPartDataFile: 'vaccess.vcb'
  202. //VBEndTypeInfo: Execute
  203. //
  204. //VBBeginTypeInfo: Poke,"DDE Poke Acknowledgement",
  205. //VB: 01  Poke.
  206. //VB:      03  Poke-Status                 PIC 9(9) COMP-5.
  207. //VB:          88  Poke-UnSuccessful       VALUE 0.
  208. //VB:          88  Poke-Successful         VALUE 1.
  209. //VB:      03  Poke-Data-Length            PIC 9(9) COMP-5.
  210. //VB:      03  Poke-Item-Length            PIC 9(9) COMP-5.
  211. //VB:      03  Poke-Data-String.
  212. //VB:           05  Poke-Data-Chars        PIC X(255).
  213. //VB:      03  Poke-Item-String.
  214. //VB:           05  Poke-Item-Chars        PIC X(255).
  215. //VBPartDataFile: 'vaccess.vcb'
  216. //VBEndTypeInfo: Poke
  217. //
  218. //VBBeginTypeInfo: Data,"DDE Data",
  219. //VB: 01  Data.
  220. //VB:      03  Data-Data-Length            PIC 9(9) COMP-5.
  221. //VB:      03  Data-Item-Length            PIC 9(9) COMP-5.
  222. //VB:      03  Data-Data-String.
  223. //VB:           05  Data-Data-Chars        PIC X(255).
  224. //VB:      03  Data-Item-String.
  225. //VB:           05  Data-Item-Chars        PIC X(255).
  226. //VBPartDataFile: 'vaccess.vcb'
  227. //VBEndTypeInfo: Data
  228. //
  229. //VBBeginEnumeration: Alignment,"Screen alignment",
  230. //VB: 01  Alignment      PIC 9(9) COMP-5.
  231. //VB:      88  Alignment-leftAlign      VALUE 1.
  232. //VB:      88  Alignment-rightAlign      VALUE 2.
  233. //VB:      88  Alignment-centerAlign      VALUE 3.
  234. //VBPartDataFile: 'vaccess.vcb'
  235. //VBEndEnumeration: Alignment
  236. //
  237. //VBBeginEnumeration: Arrange,"Container arrangement",
  238. //VB: 01  Arrange      PIC 9(9) COMP-5.
  239. //VB:      88  Arrange-Unsorted      VALUE 1.
  240. //VB:      88  Arrange-Ascending      VALUE 2.
  241. //VB:      88  Arrange-Descending      VALUE 3.
  242. //VBPartDataFile: 'vaccess.vcb'
  243. //VBEndEnumeration: Arrange
  244. //
  245. //VBBeginEnumeration: Binding,"Notebook binding",
  246. //VB: 01  Binding      PIC 9(9) COMP-5.
  247. //VB:      88  Binding-Spiral      VALUE 1.
  248. //VB:      88  Binding-Solid      VALUE 2.
  249. //VBPartDataFile: 'vaccess.vcb'
  250. //VBEndEnumeration: Binding
  251. //
  252. //VBBeginEnumeration: Color,"Color Attributes",
  253. //VB: 01  Color      PIC S9(9) COMP-5.
  254. //VB:      88  Color-White      VALUE 0.
  255. //VB:      88  Color-Black      VALUE 1.
  256. //VB:      88  Color-Blue       VALUE 2.
  257. //VB:      88  Color-Red        VALUE 3.
  258. //VB:      88  Color-Pink       VALUE 4.
  259. //VB:      88  Color-Green      VALUE 5.
  260. //VB:      88  Color-Cyan       VALUE 6.
  261. //VB:      88  Color-Yellow     VALUE 7.
  262. //VB:      88  Color-DarkGray   VALUE 8.
  263. //VB:      88  Color-DarkBlue   VALUE 9.
  264. //VB:      88  Color-DarkRed    VALUE 10.
  265. //VB:      88  Color-DarkPink   VALUE 11.
  266. //VB:      88  Color-DarkGreen  VALUE 12.
  267. //VB:      88  Color-DarkCyan   VALUE 13.
  268. //VB:      88  Color-Brown      VALUE 14.
  269. //VB:      88  Color-PaleGray   VALUE 15.
  270. //VBPartDataFile: 'vaccess.vcb'
  271. //VBEndEnumeration: Color
  272. //
  273. //VBBeginEnumeration: MediaButton,"Media Button Pressed",
  274. //VB: 01  MediaButton      PIC S9(9) COMP-5.
  275. //VB:      88  MediaButton-None         VALUE 0.
  276. //VB:      88  MediaButton-Pause        VALUE 1.
  277. //VB:      88  MediaButton-Play         VALUE 2.
  278. //VB:      88  MediaButton-Record       VALUE 3.
  279. //VB:      88  MediaButton-Stop         VALUE 4.
  280. //VB:      88  MediaButton-Next-Track   VALUE 5.
  281. //VB:      88  MediaButton-LastTrack    VALUE 6.
  282. //VB:      88  MediaButton-Next-Index   VALUE 7.
  283. //VB:      88  MediaButton-Last-Index   VALUE 8.
  284. //VB:      88  MediaButton-Volume       VALUE 9.
  285. //VB:      88  MediaButton-Position     VALUE 10.
  286. //VBPartDataFile: 'vaccess.vcb'
  287. //VBEndEnumeration: MediaButton
  288. //
  289. //VBBeginEnumeration: MediaMode,"Media mode",
  290. //VB: 01  MediaMode      PIC 9(9) COMP-5.
  291. //VB:      88  MediaMode-Pause       VALUE 1.
  292. //VB:      88  MediaMode-Play        VALUE 2.
  293. //VB:      88  MediaMode-Record      VALUE 3.
  294. //VB:      88  MediaMode-Stop        VALUE 4.
  295. //VBPartDataFile: 'vaccess.vcb'
  296. //VBEndEnumeration: MediaMode
  297. //
  298. //VBBeginEnumeration: MsgButtonReturned,"Message Box Button Returned",
  299. //VB: 01  MsgButtonReturned      PIC 9(9) COMP-5.
  300. //VB:      88  MsgButtonReturned-OK          VALUE 1.
  301. //VB:      88  MsgButtonReturned-Cancel      VALUE 2.
  302. //VB:      88  MsgButtonReturned-Retry       VALUE 4.
  303. //VB:      88  MsgButtonReturned-Abort       VALUE 8.
  304. //VB:      88  MsgButtonReturned-Ignore      VALUE 16.
  305. //VB:      88  MsgButtonReturned-Yes         VALUE 32.
  306. //VB:      88  MsgButtonReturned-No          VALUE 64.
  307. //VB:      88  MsgButtonReturned-Enter       VALUE 128.
  308. //VBPartDataFile: 'vaccess.vcb'
  309. //VBEndEnumeration: MsgButtonReturned
  310. //
  311. //VBBeginEnumeration: SequenceCode,"SequenceCode for adding item to a listbox",
  312. //VB: 01  SequenceCode      PIC 9(9) COMP-5.
  313. //VB:      88  SequenceCode-Ascending       VALUE 1.
  314. //VB:      88  SequenceCode-Descending      VALUE 2.
  315. //VB:      88  SequenceCode-At-Index        VALUE 3.
  316. //VB:      88  SequenceCode-At-End          VALUE 4.
  317. //VBPartDataFile: 'vaccess.vcb'
  318. //VBEndEnumeration: SequenceCode
  319. //
  320. //VBBeginEnumeration: TabShape,"Tab Shape of notebook",
  321. //VB: 01  TabShape      PIC 9(9) COMP-5.
  322. //VB:      88  TabShape-Squared      VALUE 1.
  323. //VB:      88  TabShape-Rounded      VALUE 2.
  324. //VB:      88  TabShape-Polygon      VALUE 3.
  325. //VBPartDataFile: 'vaccess.vcb'
  326. //VBEndEnumeration: TabShape
  327. //
  328. //VBBeginEnumeration: TimerMode,"Timer mode",
  329. //VB: 01  TimerMode      PIC S9(9) COMP-5.
  330. //VB:      88  TimerMode-Start      VALUE 1.
  331. //VB:      88  TimerMode-Stop       VALUE 2.
  332. //VB:      88  TimerMode-Pause      VALUE 3.
  333. //VBPartDataFile: 'vaccess.vcb'
  334. //VBEndEnumeration: TimerMode
  335. //
  336. //VBBeginEnumeration: View,"Container view",
  337. //VB: 01  View      PIC 9(9) COMP-5.
  338. //VB:      88  View-Icon         VALUE 1.
  339. //VB:      88  View-Tree         VALUE 2.
  340. //VB:      88  View-Details      VALUE 3.
  341. //VBPartDataFile: 'vaccess.vcb'
  342. //VBEndEnumeration: View
  343. //
  344. //VBBeginEnumeration: WindowMode,"Window mode",
  345. //VB: 01  WindowMode      PIC 9(9) COMP-5.
  346. //VB:      88  WindowMode-Maximized      VALUE 1.
  347. //VB:      88  WindowMode-Minimized      VALUE 2.
  348. //VB:      88  WindowMode-Restored       VALUE 3.
  349. //VBPartDataFile: 'vaccess.vcb'
  350. //VBEndEnumeration: WindowMode
  351. //
  352. //
  353. //VBBeginEnumeration: CommandKeyList,"CommandKey",
  354. //VB: 01  CommandKey                       PIC 9(9) COMP-5.
  355. //VB:      88  CommandKey-None             VALUE 1.
  356. //VB:      88  CommandKey-F2               VALUE 2.
  357. //VB:      88  CommandKey-F3               VALUE 3.
  358. //VB:      88  CommandKey-F4               VALUE 4.
  359. //VB:      88  CommandKey-F5               VALUE 5.
  360. //VB:      88  CommandKey-F6               VALUE 6.
  361. //VB:      88  CommandKey-F7               VALUE 7.
  362. //VB:      88  CommandKey-F8               VALUE 8.
  363. //VB:      88  CommandKey-F9               VALUE 9.
  364. //VB:      88  CommandKey-F11              VALUE 10.
  365. //VB:      88  CommandKey-F12              VALUE 11.
  366. //VB:      88  CommandKey-SHIFT-F1         VALUE 12.
  367. //VB:      88  CommandKey-SHIFT-F2         VALUE 13.
  368. //VB:      88  CommandKey-SHIFT-F3         VALUE 14.
  369. //VB:      88  CommandKey-SHIFT-F4         VALUE 15.
  370. //VB:      88  CommandKey-SHIFT-F5         VALUE 16.
  371. //VB:      88  CommandKey-SHIFT-F6         VALUE 17.
  372. //VB:      88  CommandKey-SHIFT-F7         VALUE 18.
  373. //VB:      88  CommandKey-SHIFT-F8         VALUE 19.
  374. //VB:      88  CommandKey-SHIFT-F9         VALUE 20.
  375. //VB:      88  CommandKey-SHIFT-F10        VALUE 21.
  376. //VB:      88  CommandKey-SHIFT-F11        VALUE 22.
  377. //VB:      88  CommandKey-SHIFT-F12        VALUE 23.
  378. //VB:      88  CommandKey-CONTROL-F1       VALUE 24.
  379. //VB:      88  CommandKey-CONTROL-F2       VALUE 25.
  380. //VB:      88  CommandKey-CONTROL-F3       VALUE 26.
  381. //VB:      88  CommandKey-CONTROL-F4       VALUE 27.
  382. //VB:      88  CommandKey-CONTROL-F5       VALUE 28.
  383. //VB:      88  CommandKey-CONTROL-F6       VALUE 29.
  384. //VB:      88  CommandKey-CONTROL-F7       VALUE 30.
  385. //VB:      88  CommandKey-CONTROL-F8       VALUE 31.
  386. //VB:      88  CommandKey-CONTROL-F9       VALUE 32.
  387. //VB:      88  CommandKey-CONTROL-F10      VALUE 33.
  388. //VB:      88  CommandKey-CONTROL-F11      VALUE 34.
  389. //VB:      88  CommandKey-CONTROL-F12      VALUE 35.
  390. //VBPartDataFile: 'vaccess.vcb'
  391. //VBEndEnumeration: CommandKeyList
  392. //
  393. //
  394. //VBBeginPartInfo: CVisualPart, "COBOL base class for visual parts"
  395. //VBParent: IWindow
  396. //VBPartDataFile: 'vaccess.vcb'
  397. //VBComposerInfo: class, 202, iwzbvr20, abstract, iwzbvi20
  398. //VBConstraints: noBaseClass noEdit noShow noAdd
  399. //
  400. //VBAction: clearErrorCode,
  401. //VB:          "Resets the error code for a specific part to rc=0."
  402. //VBAttribute: errorCode,
  403. //VB:          "Returns the corresponding error code for the function executed for a specific part.",
  404. //VB:          getErrorCode,01 errorCodeRc Integer.
  405. //VBAttribute: parentName,
  406. //VB:          "Returns the name of the part which contains this part.",
  407. //VB:          getParentName,01 ParentName VarLengthString.
  408. //VBAttribute: partName,
  409. //VB:          "Returns the name of the part.",
  410. //VB:          getPartName,01 PartName VarLengthString.
  411. //VBAttribute: partType,
  412. //VB:          "Returns the type of the part.",
  413. //VB:          getPartType,01 PartType VarLengthString.
  414. //VBAttribute: userData,
  415. //VB:          "Allows any user defined string to be associated with a part.",
  416. //VB:          getUserData,01 UserData VarLengthString.,
  417. //VB:          setUserData,01 UserData VarLengthString.
  418. //VBAttribute: helpId,
  419. //VB:          "Help Id.",
  420. //VB:          getHelpId,01 HelpId Integer.,
  421. //VB:          setHelpId,01 HelpId Integer.
  422. //VB:          ,,, NOCONNECT NOCOBOLAPI
  423. //
  424. //VBAttribute: anyEvent,
  425. //VB:          "This INotifier feature is not supported."
  426. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  427. //VBAttribute: inputEnabledEvent,
  428. //VB:          "This IWindow feature is not supported."
  429. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  430. //VBAttribute: inputDisabledEvent,
  431. //VB:          "This IWindow feature is not supported."
  432. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  433. //VBAttribute: gotFocusEvent,
  434. //VB:          "This IWindow feature is not supported."
  435. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  436. //VBAttribute: lostFocusEvent,
  437. //VB:          "This IWindow feature is not supported."
  438. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  439. //VBAttribute: visibilityEnabledEvent,
  440. //VB:          "This IWindow feature is not supported."
  441. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  442. //VBAttribute: visibilityDisabledEvent,
  443. //VB:          "This IWindow feature is not supported."
  444. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  445. //VBAttribute: commandEvent,
  446. //VB:          "This IWindow feature is not supported."
  447. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  448. //VBAttribute: systemCommandEvent,
  449. //VB:          "This IWindow feature is not supported."
  450. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  451. //VBAttribute: applyBidiSettings,
  452. //VB:          "This IWindow feature is not supported."
  453. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  454. //VBAttribute: capturePointer,
  455. //VB:          "This IWindow feature is not supported."
  456. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  457. //VBAttribute: convertToGUIStyle,
  458. //VB:          "This IWindow feature is not supported."
  459. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  460. //VBAttribute: disable,
  461. //VB:          "This IWindow feature is not supported."
  462. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  463. //VBAttribute: disableNotification,
  464. //VB:          "This IWindow feature is not supported."
  465. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  466. //VBAttribute: disableUpdate,
  467. //VB:          "This IWindow feature is not supported."
  468. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  469. //VBAttribute: dispatchRemainingHandlers,
  470. //VB:          "This IWindow feature is not supported."
  471. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  472. //VBAttribute: enable,
  473. //VB:          "This IWindow feature is not supported."
  474. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  475. //VBAttribute: enableUpdate,
  476. //VB:          "This IWindow feature is not supported."
  477. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  478. //VBAttribute: handleException,
  479. //VB:          "This IWindow feature is not supported."
  480. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  481. //VBAttribute: hide,
  482. //VB:          "This IWindow feature is not supported."
  483. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  484. //VBAttribute: hideSourceEmphasis,
  485. //VB:          "This IWindow feature is not supported."
  486. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  487. //VBAttribute: isLayoutDistorted,
  488. //VB:          "This IWindow feature is not supported."
  489. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  490. //VBAttribute: matchForMnemonic,
  491. //VB:          "This IWindow feature is not supported."
  492. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  493. //VBAttribute: notifyObservers,
  494. //VB:          "This IWindow feature is not supported."
  495. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  496. //VBAttribute: positionBehindSibling,
  497. //VB:          "This IWindow feature is not supported."
  498. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  499. //VBAttribute: positionBehindSiblings,
  500. //VB:          "This IWindow feature is not supported."
  501. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  502. //VBAttribute: positionOnSiblings,
  503. //VB:          "This IWindow feature is not supported."
  504. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  505. //VBAttribute: postEvent,
  506. //VB:          "This IWindow feature is not supported."
  507. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  508. //VBAttribute: refresh,
  509. //VB:          "This IWindow feature is not supported."
  510. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  511. //VBAttribute: releasePointer,
  512. //VB:          "This IWindow feature is not supported."
  513. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  514. //VBAttribute: releasePresSpace,
  515. //VB:          "This IWindow feature is not supported."
  516. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  517. //VBAttribute: resetActiveColor,
  518. //VB:          "This IWindow feature is not supported."
  519. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  520. //VBAttribute: resetBackgroundColor,
  521. //VB:          "This IWindow feature is not supported."
  522. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  523. //VBAttribute: resetBorderColor,
  524. //VB:          "This IWindow feature is not supported."
  525. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  526. //VBAttribute: resetDisabledBackgroundColor,
  527. //VB:          "This IWindow feature is not supported."
  528. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  529. //VBAttribute: resetDisabledForegroundColor,
  530. //VB:          "This IWindow feature is not supported."
  531. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  532. //VBAttribute: resetFont,
  533. //VB:          "This IWindow feature is not supported."
  534. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  535. //VBAttribute: resetForegroundColor,
  536. //VB:          "This IWindow feature is not supported."
  537. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  538. //VBAttribute: resetHiliteBackgroundColor,
  539. //VB:          "This IWindow feature is not supported."
  540. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  541. //VBAttribute: resetHiliteForegroundColor,
  542. //VB:          "This IWindow feature is not supported."
  543. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  544. //VBAttribute: resetInactiveColor,
  545. //VB:          "This IWindow feature is not supported."
  546. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  547. //VBAttribute: resetMinimumSize,
  548. //VB:          "This IWindow feature is not supported."
  549. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  550. //VBAttribute: resetShadowColor,
  551. //VB:          "This IWindow feature is not supported."
  552. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  553. //VBAttribute: sendEvent,
  554. //VB:          "This IWindow feature is not supported."
  555. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  556. //VBAttribute: setFocus,
  557. //VB:          "This IWindow feature is not supported."
  558. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  559. //VBAttribute: setLayoutDistorted,
  560. //VB:          "This IWindow feature is not supported."
  561. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  562. //VBAttribute: show,
  563. //VB:          "This IWindow feature is not supported."
  564. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  565. //VBAttribute: showSourceEmphasis,
  566. //VB:          "This IWindow feature is not supported."
  567. //VB:          ,,,,,,, NOCONNECT NOCOBOLAPI
  568. //VBEndPartInfo: CVisualPart
  569. //
  570. //
  571. //VBBeginPartInfo: CWindow, "COBOL Common Window routines"
  572. //VBParent: CVisualPart
  573. //VBPartDataFile: 'vaccess.vcb'
  574. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  575. //VBConstraints: noBaseClass noEdit noShow noAdd
  576. //
  577. //VBFlagAttribute: Style, 30 0, clipChildren, off, VIEWABLE
  578. //VBFlagAttribute: Style, 29 0, clipSiblings, off, VIEWABLE
  579. //VBFlagAttribute: Style, 28 0, clipToParent, off, VIEWABLE
  580. //VBFlagAttribute: Style, 27 0, saveBits, off
  581. //VBFlagAttribute: Style, 26 0, synchPaint, off
  582. //VBFlagAttribute: Style, 32 0, visible, on
  583. //
  584. // not used VBFlagAttribute: Gen, 31 0, disabled , off
  585. // not used VBFlagAttribute: Gen, 0 0, noStyle, off
  586. //
  587. //VBConstructor: CWindow,
  588. //VB:  01 id Integer.
  589. //VB:  01 parent CWindow*.
  590. //
  591. //VBEvent: fontEvent,
  592. //VB:          "Font event for a part",
  593. //VB:          fontId
  594. //VBEvent: positionEvent,
  595. //VB:          "Position event for a part",
  596. //VB:          positionId
  597. //VBEvent: sizeEvent,
  598. //VB:          "Size event for a part",
  599. //VB:          sizeId
  600. //
  601. //VBAttribute: backColor,
  602. //VB:          "Returns or sets the background color of a part using one of 16 discrete color values.",
  603. //VB:          getBackColor,01 BackColor Color.,
  604. //VB:          setBackColor,01 BackColor Color.
  605. //VB:          ,backgroundColorId,, VIEWABLE
  606. //VBAttribute: backMix,
  607. //VB:          "Returns or sets the background color of a part using numeric values for red/green/blue.",
  608. //VB:          getBackMix,01 BackMix Mix.,
  609. //VB:          setBackMix,01 BackMix Mix.
  610. //VB:          ,backgroundColorId,, VIEWABLE
  611. //VBAttribute: bottom,
  612. //VB:          "Returns or sets the screen coordinates in pixels from the bottom of the screen or from the objects that contains the part.",
  613. //VB:          getBottom,01 BottomPosition SignedInteger.,
  614. //VB:          setBottom,01 BottomPosition SignedInteger.
  615. //VB:          ,,, VIEWABLE
  616. //VBAttribute: enabled,
  617. //VB:          "Returns or sets if the part can respond to user interface events.",
  618. //VB:          isEnabled,01 EnableFlag Boolean VALUE 1.,
  619. //VB:          setEnable,01 EnableFlag Boolean VALUE 0.
  620. //VB:          ,enableId,, VIEWABLE
  621. //VBAction: enable,
  622. //VB:          "Enable the object to respond to user interface events."
  623. //VBAction: disable,
  624. //VB:          "Disable the object from responding to user interface events."
  625. //VBAttribute: focus,
  626. //VB:          "Queries if the part currently has focus.",
  627. //VB:          isFocusOn,01 FocusFlag Boolean.
  628. //VB:          ,,,focusId
  629. //VBAction: enableFocus,
  630. //VB:          "Enable focus of the object."
  631. //VBAttribute: fontBold,
  632. //VB:          "Returns or sets if the label or text is displayed in bold font.",
  633. //VB:          isFontBoldOn,01 BoldFlag Boolean.,
  634. //VB:          setFontBold,01 BoldFlag Boolean VALUE 0.
  635. //VB:          ,,, VIEWABLE
  636. //VBAction: enableFontBold,
  637. //VB:          "Enable bold font."
  638. //VBAttribute: fontItalics,
  639. //VB:          "Returns or sets if the label or text is shown in italics.",
  640. //VB:          isFontItalicsOn,01 ItalicsFlag Boolean.,
  641. //VB:          setFontItalics,01 ItalicsFlag Boolean VALUE 0.
  642. //VB:          ,,, VIEWABLE
  643. //VBAction: enableFontItalics,
  644. //VB:          "Enable italicized font."
  645. //VBAttribute: fontName,
  646. //VB:          "Returns or sets the font to be used for the text or label that applies to this part.",
  647. //VB:          getFontName,01 FontName VarLengthString.,
  648. //VB:          setFontName,01 FontName VarLengthString.
  649. //VB:          ,,, VIEWABLE
  650. //VBAttribute: fontSize,
  651. //VB:          "Returns or sets in points the size of the font to be used with this part.",
  652. //VB:          getFontSize,01 FontSize Integer.,
  653. //VB:          setFontSize,01 FontSize Integer.
  654. //VB:          ,,, VIEWABLE
  655. //VBAttribute: fontStrikeout,
  656. //VB:          "Returns or sets if the text or label is displayed in strikeout font which displays a slash through a character.",
  657. //VB:          isFontStrikeoutOn,01 StrikeoutFlag Boolean.,
  658. //VB:          setFontStrikeout,01 StrikeoutFlag Boolean VALUE 0.
  659. //VB:          ,,, VIEWABLE
  660. //VBAction: enableFontStrikeout,
  661. //VB:          "Enable strikeout of text."
  662. //VBAttribute: fontUnderline,
  663. //VB:          "Returns or sets if the label or text is underlined.",
  664. //VB:          isFontUnderlineOn,01 UnderlineFlag Boolean.,
  665. //VB:          setFontUnderline,01 UnderlineFlag Boolean VALUE 0.
  666. //VB:          ,,, VIEWABLE
  667. //VBAttribute: fontOutline,
  668. //VB:          "Returns or sets if the label or text is outlined.",
  669. //VB:          isFontOutlineOn,01 OutlineFlag Boolean.,
  670. //VB:          setFontOutline,01 OutlineFlag Boolean VALUE 0.
  671. //VB:          ,,, NOCONNECT NOCOBOLAPI
  672. //VBAction: enableFontUnderline,
  673. //VB:          "Enable underlining of text."
  674. //VBAttribute: foreColor,
  675. //VB:          "Returns or sets the color of the text in the foreground using one of 16 discrete color values.",
  676. //VB:          getForeColor,01 ForeColor Color.,
  677. //VB:          setForeColor,01 ForeColor Color.
  678. //VB:          ,foregroundColorId,, VIEWABLE
  679. //VBAttribute: foreMix,
  680. //VB:          "Returns or sets the color of the text in the foreground using numeric values for red/green/blue.",
  681. //VB:          getForeMix,01 ForeMix Mix.,
  682. //VB:          setForeMix,01 ForeMix Mix.
  683. //VB:          ,foregroundColorId,, VIEWABLE
  684. //VBAttribute: height,
  685. //VB:          "Returns or sets the height of the part in pixels.",
  686. //VB:          getHeight,01 Height SignedInteger.,
  687. //VB:          setHeight,01 Height SignedInteger.
  688. //VB:          ,,, VIEWABLE
  689. //VBAttribute: left,
  690. //VB:          "Returns or sets the screen coordinates in pixels from the left edge of the object or from the object that contains this part.",
  691. //VB:          getLeft,01 LeftPosition SignedInteger.,
  692. //VB:          setLeft,01 LeftPosition SignedInteger.
  693. //VB:          ,,, VIEWABLE
  694. //VBAttribute: visible,
  695. //VB:          "Queries or sets if the part is visible or not.",
  696. //VB:          isVisible,01 VisibleFlag Boolean VALUE 1.,
  697. //VB:          setVisible,01 VisibleFlag Boolean VALUE 0.
  698. //VB:          ,visibleId,, VIEWABLE
  699. //VBAction: show,
  700. //VB:          "Make the object visible."
  701. //VBAction: hide,
  702. //VB:          "Make the object invisible."
  703. //VBAttribute: width,
  704. //VB:          "Returns or sets the width of the part in pixels.",
  705. //VB:          getWidth,01 ObjectWidth SignedInteger.,
  706. //VB:          setWidth,01 ObjectWidth SignedInteger.
  707. //VB:          ,,, VIEWABLE
  708. //VBAttribute: tabStop,
  709. //VB:          "Returns or sets the tabStop style.",
  710. //VB:          isTabStop,01 TabStopFlag Boolean VALUE 1.,
  711. //VB:          enableTabStop,01 TabStopFlag Boolean VALUE 1.
  712. //VB:          ,,, NOCONNECT NOCOBOLAPI
  713. //VBAttribute: group,
  714. //VB:          "Returns or sets the group style.",
  715. //VB:          isGroup,01 GroupFlag Boolean VALUE 0.,
  716. //VB:          enableGroup,01 GroupFlag Boolean VALUE 0.
  717. //VB:          ,,, NOCONNECT NOCOBOLAPI
  718. //VBAttribute: defaultStyle,
  719. //VB:          "Returns the default style.",
  720. //VB:          defaultStyle,01 defaultStyle Style.,
  721. //VB:          setDefaultStyle,01 defaultStyle Style&.,,,
  722. //VB:          NOCONNECT NOSETTING NOCOBOLAPI
  723. //VBEndPartInfo: CWindow
  724. //
  725. //
  726. //VBBeginPartInfo: CTextControl, "COBOL Text control"
  727. //VBParent: CWindow
  728. //VBPartDataFile: 'vaccess.vcb'
  729. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  730. //VBConstraints: noBaseClass noEdit noShow noAdd
  731. //
  732. //VBAttribute: label,
  733. //VB:          "Returns or sets the text string that is associated with a part.",
  734. //VB:          getLabel,01 Contents VarLengthString.,
  735. //VB:          setLabel,01 Contents VarLengthString.
  736. //VB:          ,textId,, VIEWABLE
  737. //VBEndPartInfo: CTextControl
  738. //
  739. //
  740. //VBBeginPartInfo: CDragControl, "COBOL drag/drop control"
  741. //VBParent: CTextControl
  742. //VBPartDataFile: 'vaccess.vcb'
  743. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  744. //VBConstraints: noBaseClass noEdit noShow noAdd
  745. //
  746. //VBFlagAttribute: Style, 17 0, group, off
  747. //VBFlagAttribute: Style, 18 0, tabStop, on
  748. //
  749. //VBEvent: dropEvent,
  750. //VB:          "Object has been dragged and then dropped onto this part.",
  751. //VB:          DropId,
  752. //VB:          getDrop,01 DropInfo VarLengthString.
  753. //
  754. //VBAttribute: drag,
  755. //VB:          "Indicates if the part is drag enabled.",
  756. //VB:          isDragEnabled,01 DragFlag Boolean VALUE 0.
  757. //VBAction: enableDrag,
  758. //VB:          "Enable drag of the object."
  759. //VBAttribute: drop,
  760. //VB:          "Indiciates if the part is drag-drop enabled.",
  761. //VB:          isDropEnabled,01 DropFlag Boolean VALUE 0.
  762. //VBAction: enableDrop,
  763. //VB:          "Enable drop of the object."
  764. //VBAttribute: menu,
  765. //VB:          "The menu feature is not supported."
  766. //VB:          ,,,,,,, NOSETTING NOCONNECT
  767. //VBAttribute: popUpMenu,
  768. //VB:          "The menu feature is not supported."
  769. //VB:          ,,,,,,, NOSETTING NOCONNECT
  770. //VBAttribute: style,
  771. //VB:            "For settings",
  772. //VB:            getStyle,01 style CDragControl::Style.
  773. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  774. //VBEndPartInfo: CDragControl
  775. //
  776. //
  777. //VBBeginPartInfo: CEntryControl, "COBOL Entry Field type stuff"
  778. //VBParent: CDragControl
  779. //VBPartDataFile: 'vaccess.vcb'
  780. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  781. //VBConstraints: noBaseClass noEdit noShow noAdd
  782. //
  783. //VBEvent: change,
  784. //VB:          "Contents of a part have changed.",
  785. //VB:          ChangeId
  786. //VBEvent: click,
  787. //VB:          "User presses and releases mouse button.",
  788. //VB:          ClickId,
  789. //VB:          getClick,01 MouseInfo MouseData.
  790. //VBEvent: dblClick,
  791. //VB:          "User presses and releases mouse button twice quickly.",
  792. //VB:          DblClickId,
  793. //VB:          getDblClick,01 MouseInfo MouseData.
  794. //VBEvent: gotFocus,
  795. //VB:          "Part has received input focus.",
  796. //VB:          GotFocusId
  797. //VBEvent: keyPress,
  798. //VB:          "Key is pressed.",
  799. //VB:          KeyPressId,
  800. //VB:          getKeyPress,01 KeyPressInfo KeyPress.
  801. //VBEvent: lostFocus,
  802. //VB:          "Part has lost input focus.",
  803. //VB:          LostFocusId
  804. //VBEvent: mouseDown,
  805. //VB:          "User presses the mouse button.",
  806. //VB:          MouseDownId,
  807. //VB:          getMouseDown,01 MouseInfo MouseData.
  808. //VBEvent: mouseMove,
  809. //VB:          "Mouse pointer is moved over part.",
  810. //VB:          MouseMoveId,
  811. //VB:          getMouseMove,01 MouseInfo MouseData.
  812. //VBEvent: mouseUp,
  813. //VB:          "User releases the mouse button.",
  814. //VB:          MouseUpId,
  815. //VB:          getMouseUp,01 MouseInfo MouseData.
  816. //VBEvent: popUp,
  817. //VB:          "Right mouse button is pressed over part.",
  818. //VB:          PopUpId,
  819. //VB:          getPopUp,01 PopUpInfo PopUpData.
  820. //VBEvent: vKeyPress,
  821. //VB:          "Virtual key is pressed.",
  822. //VB:          VKeyPressId,
  823. //VB:          getVKeyPress,01 VKeyPressInfo VKeyPress.
  824. //
  825. //VBAttribute: contents,
  826. //VB:          "Returns or sets the contents for an entry field portions of a part.",
  827. //VB:          getContents,01 Contents VarLengthString.,
  828. //VB:          setContents,01 Contents VarLengthString.
  829. //VB:          ,ChangeId,, VIEWABLE
  830. //VBAttribute: readOnly,
  831. //VB:          "Queries or sets if the entry field portion of a part is read only.",
  832. //VB:          isReadOnlyOn,01 ReadOnlyFlag Boolean VALUE 0.,
  833. //VB:          setReadOnly,01 ReadOnlyFlag Boolean VALUE 0.
  834. //VBAction: enableReadOnly,
  835. //VB:          "Enable read only for the entry field portion of a part."
  836. //VBAttribute: textEnd,
  837. //VB:          "Returns or sets the character offset of the last selected character.",
  838. //VB:          getTextEnd,01 TextEnd Integer.,
  839. //VB:          setTextEnd,01 TextEnd Integer.
  840. //VBAttribute: textLength,
  841. //VB:          "Returns the length of the text in a part.",
  842. //VB:          getTextLength,01 TextLength Integer.
  843. //VBAttribute: textSelected,
  844. //VB:          "Returns the selected text from the part.",
  845. //VB:          getTextSelected,01 SelectedText VarLengthString.
  846. //VBAttribute: textStart,
  847. //VB:          "Returns or sets the character offset of the first selected character.",
  848. //VB:          getTextStart,01 TextStart Integer.,
  849. //VB:          setTextStart,01 TextStart Integer.
  850. //VBAttribute: label,
  851. //VB:          "The label feature is not supported."
  852. //VB:          ,,,,,,, NOSETTING NOCONNECT
  853. //VBEndPartInfo: CEntryControl
  854. //
  855. //
  856. //VBBeginPartInfo: CBaseListBox, "COBOL Base List Box stuff"
  857. //VBParent: CDragControl
  858. //VBPartDataFile: 'vaccess.vcb'
  859. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  860. //VBConstraints: noBaseClass noEdit noShow noAdd
  861. //
  862. // not used VBFlagAttribute: Style, 2 0, drawItem, off
  863. //VBFlagAttribute: Style, 5 0, extendedSelect, off
  864. //VBFlagAttribute: Style, 4 0, horizontalScroll, off, VIEWABLE
  865. //VBFlagAttribute: Style, 1 0, multipleSelect, off
  866. //VBFlagAttribute: Style, 3 0, noAdjustPosition, on
  867. //
  868. //VBEvent: enter,
  869. //VB:          "Enter key is pressed on a part or is double-clicked.",
  870. //VB:          EnterId
  871. //VBEvent: mouseMove,
  872. //VB:          "Mouse pointer is moved over part.",
  873. //VB:          MouseMoveId,
  874. //VB:          getMouseMove,01 MouseInfo MouseData.
  875. //VBEvent: popUp,
  876. //VB:          "Right mouse button is pressed over part.",
  877. //VB:          PopUpId,
  878. //VB:          getPopUp,01 PopUpInfo PopUpData.
  879. //VBEvent: selectEvent,
  880. //VB:          "Part is selected or an item in a part is selected.",
  881. //VB:          SelectEventId
  882. //
  883. //VBAction: insertItem,
  884. //VB:          "Inserts an item in the list portion of a part.",
  885. //VB:          01 ItemIndex Integer.
  886. //VB:          01 Item VarLengthString.
  887. //VBAttribute: itemSelectedFlag,
  888. //VB:          "Returns a flag indicating if a specific item in the list portion of a part is selected.",
  889. //VB:          isItemSelectedFlag,01 SelectedFlag Boolean.
  890. //VBAction: selectOne,
  891. //VB:          "Selects an item in the list portion of a part.",
  892. //VB:          01 ItemIndex Integer.
  893. //VBAction: selectAll,
  894. //VB:          "Selects all items in the list portion of a part."
  895. //VBAttribute: sequence,
  896. //VB:          "Returns or sets the order in which items are added to the list portion of a part.",
  897. //VB:          getSequence,01 Seqcode SequenceCode.,
  898. //VB:          setSequence,01 Seqcode SequenceCode VALUE 4.
  899. //VBAction: addItemEnd,
  900. //VB:          "Adds a new item to the end of the list.",
  901. //VB:          01 Item VarLengthString.
  902. //VBAction: removeOne,
  903. //VB:          "Removes an item from a list.",
  904. //VB:          01 ItemIndex Integer.
  905. //VBAction: removeAll,
  906. //VB:          "Removes all items from a list."
  907. //VBAction: deSelectOne,
  908. //VB:          "Deselects an item in the list portion of a part.",
  909. //VB:          01 ItemIndex Integer.
  910. //VBAction: deSelectAll,
  911. //VB:          "Deselects all items in the list portion of a part."
  912. //VBAction: setTopIndex,
  913. //VB:          "Scrolls the list such that the specified item is scrolled to the top of the list.",
  914. //VB:          01 ItemIndex Integer.
  915. //VBAttribute: firstSelected,
  916. //VB:          "Returns the index value of the first selected item in the list portion of a part.",
  917. //VB:          getFirstSelected,01 ItemIndex Integer.
  918. //VBAttribute: count,
  919. //VB:          "Returns the number of items in the list portion of a part.",
  920. //VB:          getCount,01 ItemCount Integer.
  921. //VBAction: setIndex,
  922. //VB:          "Establishes the index value of the list portion of a part.",
  923. //VB:          01 ItemIndex Integer.
  924. //VBAttribute: indicatedItem,
  925. //VB:          "Replaces or returns an existing item in the list.",
  926. //VB:          getIndicatedItem,01 Item VarLengthString.,
  927. //VB:          setIndicatedItem,01 Item VarLengthString.
  928. //VBAttribute: listData,
  929. //VB:          "Replaces or returns an array of elements to the listbox.",
  930. //VB:          getListData,01 List StringArray.,
  931. //VB:          setListData,01 List StringArray.
  932. //VBAction: addListEnd,
  933. //VB:          "Appends an array of elements in sequence to the end of the list.",
  934. //VB:          01 List StringArray.
  935. //VBAction: extractListData,
  936. //VB:          "Extracts an array of elements from a list starting at a specific index position.",
  937. //VB:          01 StartPosition Integer.
  938. //VB:          01 TableSize Integer.,
  939. //VB:          01 List StringArray.
  940. //VBAction: insertListData,
  941. //VB:          "Inserts an array of elements into a list starting before a specific index position.",
  942. //VB:          01 List StringArray.
  943. //VB:          01 StartPosition Integer.
  944. //VBAttribute: selectedList,
  945. //VB:          "Extracts selected elements from a listbox.",
  946. //VB:          getSelectedList,01 List StringArray.
  947. //VBAttribute: label,
  948. //VB:          "The label feature is not supported."
  949. //VB:          ,,,,,,, NOSETTING NOCONNECT
  950. //VBAttribute: defaultStyle,
  951. //VB:           "Default window style",
  952. //VB:           defaultStyle,01 style CBaseListBox::Style.,
  953. //VB:           setDefaultStyle,01 style CBaseListBox::Style.
  954. //VB:            ,,,NOCONNECT NOCOBOLAPI
  955. //VBAttribute: style,
  956. //VB:            "For settings",
  957. //VB:            getStyle,01 style CBaseListBox::Style.
  958. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  959. //VBEndPartInfo: CBaseListBox
  960. //
  961. //
  962. //VBBeginPartInfo: CButtonControl, "COBOL Button control"
  963. //VBParent: CTextControl
  964. //VBPartDataFile: 'vaccess.vcb'
  965. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  966. //VBConstraints: noBaseClass noEdit noShow noAdd
  967. //
  968. //VBFlagAttribute: Style, 12 0, noPointerFocus, off
  969. //VBFlagAttribute: Style, 17 0, group, off
  970. //VBFlagAttribute: Style, 18 0, tabStop, on
  971. //
  972. //VBEvent: mouseMove,
  973. //VB:          "Mouse pointer is moved over part.",
  974. //VB:          MouseMoveId,
  975. //VB:          getMouseMove,01 MouseInfo MouseData.
  976. //VBEvent: popUp,
  977. //VB:          "Right mouse button is pressed over part.",
  978. //VB:          PopUpId,
  979. //VB:          getPopUp,01 PopUpInfo PopUpData.
  980. //
  981. //VBAttribute: highLight,
  982. //VB:          "Returns or sets if the specified part is highlighted.",
  983. //VB:          isHighLighted,01 HighLightFlag Boolean.,
  984. //VB:          setHighLight,01 HighLightFlag Boolean VALUE 0.
  985. //VB:          ,,, VIEWABLE
  986. //VBAction: enableHighLight,
  987. //VB:          "Enable highlighting of object."
  988. //VBAttribute: mouseFocus,
  989. //VB:          "Returns or sets if clicking the mouse on a part will change focus to this part.",
  990. //VB:          isMouseFocusOn,01 MouseFocusFlag Boolean VALUE 1.,
  991. //VB:          setMouseFocus,01 MouseFocusFlag Boolean VALUE 0.
  992. //VBAction: enableMouseFocus,
  993. //VB:          "Enable change of focus of object by mouse click."
  994. //VBAttribute: parentNameLink,
  995. //VB:          "Returns the name of the part which contains this part to link.",
  996. //VB:          getParentNameLink,01 ParentNameLink VarLengthString.,
  997. //VB:          setParentNameLink,01 ParentNameLink VarLengthString.
  998. //VB:          ,,, NOCONNECT NOCOBOLAPI
  999. //VBAttribute: partNameLink,
  1000. //VB:          "Returns the name of the part to link.",
  1001. //VB:          getPartNameLink,01 PartNameLink VarLengthString.,
  1002. //VB:          setPartNameLink,01 PartNameLink VarLengthString.
  1003. //VB:          ,,, NOCONNECT NOCOBOLAPI
  1004. //VBAttribute: menu,
  1005. //VB:          "The menu feature is not supported."
  1006. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1007. //VBAttribute: popUpMenu,
  1008. //VB:          "The menu feature is not supported."
  1009. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1010. //VBAttribute: style,
  1011. //VB:            "For settings",
  1012. //VB:            getStyle,01 style CButtonControl::Style.
  1013. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1014. //VBPreferredFeatures: self, label
  1015. //VBEndPartInfo: CButtonControl
  1016. //
  1017. //
  1018. //VBBeginPartInfo: CSettingButton, "COBOL Setting Button control"
  1019. //VBParent: CButtonControl
  1020. //VBPartDataFile: 'vaccess.vcb'
  1021. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  1022. //VBConstraints: noBaseClass noEdit noShow noAdd
  1023. //
  1024. //VBEvent: selectEvent,
  1025. //VB:          "Part is selected or an item in a part is selected.",
  1026. //VB:          SelectEventId
  1027. //
  1028. //VBAttribute: checked,
  1029. //VB:          "Returns or sets if the part is checked.",
  1030. //VB:          isChecked,01 CheckedFlag Boolean VALUE 0.,
  1031. //VB:          setCheck,01 CheckedFlag Boolean VALUE 0.
  1032. //VB:          ,selectId,, VIEWABLE
  1033. //VBAction: enableCheck,
  1034. //VB:          "Enable check state of an object."
  1035. //VBEndPartInfo: CSettingButton
  1036. //
  1037. //
  1038. //VBBeginPartInfo: CRangeControl, "COBOL Range Control"
  1039. //VBParent: CWindow
  1040. //VBPartDataFile: 'vaccess.vcb'
  1041. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  1042. //VBConstraints: noBaseClass noEdit noShow noAdd
  1043. //
  1044. //VBFlagAttribute: Style, 17 0, group, off
  1045. //VBFlagAttribute: Style, 18 0, tabStop, on
  1046. //
  1047. //VBEvent: change,
  1048. //VB:          "Contents of a part have changed.",
  1049. //VB:          ChangeId
  1050. //VBEvent: gotFocus,
  1051. //VB:          "Part has received input focus.",
  1052. //VB:          GotFocusId
  1053. //VBEvent: lostFocus,
  1054. //VB:          "Part has lost input focus.",
  1055. //VB:          LostFocusId
  1056. //VBEvent: mouseMove,
  1057. //VB:          "Mouse pointer is moved over part.",
  1058. //VB:          MouseMoveId,
  1059. //VB:          getMouseMove,01 MouseInfo MouseData.
  1060. //VBEvent: popUp,
  1061. //VB:          "Right mouse button is pressed over part.",
  1062. //VB:          PopUpId,
  1063. //VB:          getPopUp,01 PopUpInfo PopUpData.
  1064. //
  1065. //VBAttribute: maximum,
  1066. //VB:          "Returns or sets the maximum value in either a numeric spin button or slider.",
  1067. //VB:          getMaximum,01 Max SignedInteger.,
  1068. //VB:          setMaximum,01 Max SignedInteger.
  1069. //VBAttribute: minimum,
  1070. //VB:          "Returns or sets the minimum value in either a numeric spin button or slider.",
  1071. //VB:          getMinimum,01 Min SignedInteger.,
  1072. //VB:          setMinimum,01 Min SignedInteger.
  1073. //VBAttribute: value,
  1074. //VB:          "Returns or sets the current value in either a numeric spin button or slider.",
  1075. //VB:          getValue,01 SliderValue SignedInteger.,
  1076. //VB:          setValue,01 SliderValue SignedInteger.
  1077. //VB:          ,ChangeId
  1078. //VBAttribute: menu,
  1079. //VB:          "The menu feature is not supported."
  1080. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1081. //VBAttribute: popUpMenu,
  1082. //VB:          "The menu feature is not supported."
  1083. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1084. //VBAttribute: style,
  1085. //VB:            "For settings",
  1086. //VB:            getStyle,01 style CRangeControl::Style.
  1087. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1088. //VBEndPartInfo: CRangeControl
  1089. //
  1090. //
  1091. //VBBeginPartInfo: CBaseSpinButton, "COBOL Spin Button stuff"
  1092. //VBParent: CRangeControl
  1093. //VBPartDataFile: 'vaccess.vcb'
  1094. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  1095. //VBConstraints: noBaseClass noEdit noShow noAdd
  1096. //
  1097. //VBFlagAttribute: Style, 2 0, readOnly, off, VIEWABLE
  1098. //VBFlagAttribute: Style, 6 0, noBorder, off, VIEWABLE
  1099. //VBFlagAttribute: Style, 9 0, fastSpin, off
  1100. //VBFlagAttribute: Style, 5 0, master, on, VIEWABLE
  1101. //
  1102. // not used VBFlagAttribute: Gen, 15 0, servant, off
  1103. //VBFlagAttribute: Gen, 0 5, centerAlign, off
  1104. //VBFlagAttribute: Gen, 4 0, leftAlign, on
  1105. //VBFlagAttribute: Gen, 3 0, rightAlign, off
  1106. //VBFlagAttribute: Gen, 16 0, allCharacters, off
  1107. //VBFlagAttribute: Gen, 1 0, numericOnly, off
  1108. //
  1109. //VBEvent: spinDown,
  1110. //VB:          "Down arrow is pressed on a spin button part.",
  1111. //VB:          SpinDownId
  1112. //VBEvent: spinEnd,
  1113. //VB:          "Spin arrow has been released.",
  1114. //VB:          SpinEndId
  1115. //VBEvent: spinUp,
  1116. //VB:          "Up arrow is pressed on a spin button part.",
  1117. //VB:          SpinUpId
  1118. //
  1119. //VBAttribute: alignment,
  1120. //VB:          "Returns or sets text or label in a part to left/right/center.",
  1121. //VB:          getAlignment,01 Align Alignment VALUE 1.,
  1122. //VB:          setAlignment,01 Align Alignment VALUE 1.
  1123. //VB:          ,,, VIEWABLE
  1124. //VBAttribute: readOnly,
  1125. //VB:          "Queries or sets if the entry field portion of a part is read only.",
  1126. //VB:          isReadOnlyOn,01 ReadOnlyFlag Boolean VALUE 0.,
  1127. //VB:          setReadOnly,01 ReadOnlyFlag Boolean VALUE 0.
  1128. //VBAction: enableReadOnly,
  1129. //VB:          "Enable read only for the entry field portion of a part."
  1130. //VBAttribute: backColor,
  1131. //VB:          "The backColor feature is not supported."
  1132. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1133. //VBAttribute: backMix,
  1134. //VB:          "The backMix feature is not supported."
  1135. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1136. //VBAttribute: style,
  1137. //VB:            "For settings",
  1138. //VB:            getStyle,01 style CBaseSpinButton::Style.
  1139. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1140. //VBEndPartInfo: CBaseSpinButton
  1141. //
  1142. //
  1143. //VBBeginPartInfo: CMediaControl, "COBOL Media Control"
  1144. //VBParent: CWindow
  1145. //VBPartDataFile: 'vaccess.vcb'
  1146. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  1147. //VBConstraints: noBaseClass noEdit noShow noAdd
  1148. //
  1149. //VBAttribute: position,
  1150. //VB:          "Returns or sets the position of an Audio file or the Media panel slider.",
  1151. //VB:          getPosition,01 SliderPosition Integer.,
  1152. //VB:          setPosition,01 SliderPosition Integer.
  1153. //VBAttribute: volume,
  1154. //VB:          "Returns or sets the volume setting of a part.",
  1155. //VB:          getVolume,01 Volume Integer.,
  1156. //VB:          setVolume,01 Volume Integer.
  1157. //VBAttribute: menu,
  1158. //VB:          "The menu feature is not supported."
  1159. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1160. //VBAttribute: popUpMenu,
  1161. //VB:          "The menu feature is not supported."
  1162. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1163. //VBEndPartInfo: CMediaControl
  1164. //
  1165. //
  1166. //VBBeginPartInfo: CRectangle, "IBM rectangle, defined by 2 points"
  1167. //VBParent: IBase
  1168. //VBPartDataFile: 'vaccess.vcb'
  1169. //VBConstraints: noBaseClass noEdit noShow noAdd
  1170. //VBEndPartInfo: CRectangle
  1171. //
  1172. //
  1173. //VBBeginPartInfo: CBitmapHandle, "Manage bitmap resources"
  1174. //VBParent: IHandle
  1175. //VBPartDataFile: 'vaccess.vcb'
  1176. //VBConstraints: noBaseClass noEdit noShow noAdd
  1177. //VBEndPartInfo: CBitmapHandle
  1178. //
  1179. //VBBeginPartInfo: CResourceId, "Resource Identifier"
  1180. //VBParent: IBase
  1181. //VBPartDataFile: 'vaccess.vcb'
  1182. //VBComposerInfo: class, 204, iwzbvr20, 'AvlResourceId'
  1183. //VBConstraints: noBaseClass noEdit noShow noAdd
  1184. //VBEndPartInfo: CResourceId
  1185. //
  1186. //
  1187. //VBBeginPartInfo: CWindowHandle, "Access windows"
  1188. //VBParent: IHandle
  1189. //VBPartDataFile: 'vaccess.vcb'
  1190. //VBConstraints: noBaseClass noEdit noShow noAdd
  1191. //VBEndPartInfo: CWindowHandle
  1192. //
  1193. //
  1194. //VBBeginPartInfo: CFrameWindow, "COBOL Window part"
  1195. //VBParent: CTextControl
  1196. //VBPartDataFile: 'vaccess.vcb'
  1197. //VBComposerInfo: visual, 319, iwzbvr20, frame, iwzbvi20
  1198. //VBVdeType: v
  1199. //VBSettingsPages: VDEFrameWindowViewAttributesPage, VDEControlViewAttributesPage,
  1200. //VB:                   VDEFrameWindowStylesAttributesPage,
  1201. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  1202. //VB:                   AvlFontAttributesPage
  1203. //VBFlagInfo: Style, defaultStyle()
  1204. //VBComposerTextSetting: title, UsePartName
  1205. //VBGeneratorClass: CBLFrameWindowCodeGenerator
  1206. //VBConstraints: noEdit noAdd
  1207. //
  1208. //VBConstructor: CFrameWindow,
  1209. //VB:  01 id Integer.
  1210. //VB:  01 parent CWindow*.
  1211. //VB:  01 owner CWindow*.
  1212. //VB:  01 rect CRectangle.
  1213. //VB:  01 style Integer VALUE x"00008808".
  1214. //VB:  01 title String VALUE "0".
  1215. //
  1216. //VBFlagAttribute: Style, 2 0, accelerator, on
  1217. //VBFlagAttribute: Style, 23 0, animated, off
  1218. //VBFlagAttribute: Style, 16 0, appDBCSStatus, on, VIEWABLE
  1219. //VBFlagAttribute: Style, 9 0, border, on, VIEWABLE, dialogBorder sizingBorder
  1220. //VBFlagAttribute: Style, 8 0, dialogBorder, off, VIEWABLE, border sizingBorder
  1221. //VBFlagAttribute: Style, 12 0, sizingBorder, off, VIEWABLE, border dialogBorder
  1222. //VBFlagAttribute: Style, 13 0, dialogBackground, off, VIEWABLE
  1223. //VBFlagAttribute: Style, 0 4, hideButton, off, VIEWABLE, minimizeButton
  1224. //VBFlagAttribute: Style, 0 5, minimizeButton, on, VIEWABLE, hideButton
  1225. //VBFlagAttribute: Style, 0 6, maximizeButton, on, VIEWABLE
  1226. //VBFlagAttribute: Style, 24 0, maximized, off,, minimized shellPosition
  1227. //VBFlagAttribute: Style, 25 0, minimized, off,, maximized shellPosition
  1228. //VBFlagAttribute: Style, 3 0, shellPosition, off,, maximized minimized
  1229. //VBFlagAttribute: Style, 6 0, noMoveWithOwner, off
  1230. //VBFlagAttribute: Style, 0 2, systemMenu, on, VIEWABLE
  1231. //VBFlagAttribute: Style, 7 0, systemModal, off
  1232. //VBFlagAttribute: Style, 0 1, titleBar, on, VIEWABLE
  1233. //VBFlagAttribute: Style, 4 0, windowList, on
  1234. //
  1235. //VBFlagAttribute: Style, 30 0, clipChildren, off, VIEWABLE
  1236. //VBFlagAttribute: Style, 29 0, clipSiblings, off, VIEWABLE
  1237. //VBFlagAttribute: Style, 28 0, clipToParent, off, VIEWABLE
  1238. //VBFlagAttribute: Style, 27 0, saveBits, off
  1239. //VBFlagAttribute: Style, 26 0, synchPaint, on
  1240. //VBFlagAttribute: Style, 32 0, visible, on
  1241. //
  1242. // not used VBFlagAttribute: Gen, 5 0, alignNoAdjust, off
  1243. //VBFlagAttribute: Gen, 1 0, minimizedIcon, off
  1244. // not used VBFlagAttribute: Gen, 0 3, menuBar, off
  1245. // not implemented VBFlagAttribute: Gen, 0 8, horizontalScroll, off
  1246. // not implemented VBFlagAttribute: Gen, 0 7, verticalScroll, off
  1247. //
  1248. //VBEvent: create,
  1249. //VB:          "Initial event for a part",
  1250. //VB:          CreateId
  1251. //VBEvent: destroy,
  1252. //VB:          "Final event for a part",
  1253. //VB:          DestroyId
  1254. //VBEvent: activate,
  1255. //VB:          "Window becomes active",
  1256. //VB:          ActivateId
  1257. //VBEvent: close,
  1258. //VB:          "Window is closed via the system menu",
  1259. //VB:          CloseId
  1260. //VBEvent: deActivate,
  1261. //VB:          "Window becomes inactive",
  1262. //VB:          DeActivateId
  1263. //VBEvent: resize,
  1264. //VB:          "Window is resized",
  1265. //VB:          ResizeId,
  1266. //VB:          getResize,01 ResizeInfo Resize.
  1267. //
  1268. //VBAttribute: title,
  1269. //VB:          "Settings attribute to support the title.",
  1270. //VB:          getTitle,01 Title VarLengthString.,
  1271. //VB:          setTitle,01 Title VarLengthString.
  1272. //VB:          ,,, NOCONNECT NOCOBOLAPI
  1273. //VBAttribute: immediateOpen,
  1274. //VB:          "Settings attribute whether the window opens immediately or not.",
  1275. //VB:          getImmediateOpen,01 ImmediateOpen Boolean VALUE 1.,
  1276. //VB:          setImmediateOpen,01 ImmediateOpen Boolean.
  1277. //VB:          ,,, NOCONNECT NOCOBOLAPI
  1278. //VBAttribute: iconFileName,
  1279. //VB:          "Returns or sets the minimized icon file to be associated with the part.",
  1280. //VB:          getIconFileName,01 FileName VarLengthString.,
  1281. //VB:          setIconFileName,01 FileName VarLengthString.
  1282. //VB:          ,,, NOCONNECT NOCOBOLAPI
  1283. //VBAttribute: windowOpened,
  1284. //VB:          "Determines whether the child window is opened or closed.",
  1285. //VB:          isWindowOpened,01 openWindowFlag Boolean.
  1286. //VBAction: openWindow,
  1287. //VB:          "Makes a child window available to the parent window."
  1288. //VBAction: closeWindow,
  1289. //VB:          "Makes a child window unavailable to the parent window."
  1290. //VBAttribute: windowMode,
  1291. //VB:          "Returns or sets a window to maximized/minimized/restored.",
  1292. //VB:          getWindowMode,01 Window WindowMode.,
  1293. //VB:          setWindowMode,01 Window WindowMode VALUE 3.
  1294. //VB:          ,,, VIEWABLE
  1295. //VBAttribute: client,
  1296. //VB:          "Client of the frame.",
  1297. //VB:          getClient,01 client CWindow.,
  1298. //VB:          setClient,01 client CWindow.
  1299. //VB:          ,,,NOCONNECT NOCOBOLAPI
  1300. //VBAttribute: defaultStyle,
  1301. //VB:           "Default window style",
  1302. //VB:           defaultStyle,01 style CFrameWindow::Style.,
  1303. //VB:           setDefaultStyle,01 style CFrameWindow::Style.
  1304. //VB:            ,,,NOCONNECT NOCOBOLAPI
  1305. //VBAttribute: style,
  1306. //VB:            "For settings",
  1307. //VB:            getStyle,01 style CFrameWindow::Style.
  1308. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1309. //VBPreferredFeatures: self, popUpMenu, menu, closeWindow, openWindow, hide, show, visible, enableFocus
  1310. //VBEndPartInfo: CFrameWindow
  1311. //
  1312. //
  1313. //VBBeginPartInfo: CCanvas, "COBOL Canvas part"
  1314. //VBParent: CWindow
  1315. //VBPartDataFile: 'vaccess.vcb'
  1316. //VBComposerInfo: visual, 305, iwzbvr20, composer, iwzbvi20, outline
  1317. //VBVdeType: v
  1318. //VBGeneratorClass: CBLCanvasCodeGenerator
  1319. //VBConstraints: noEdit noAdd
  1320. //
  1321. //VBSettingsPages: VDEPartnameAttributesPage, VDEControl2ViewAttributesPage,
  1322. //VB:                   VDECanvasStylesAttributesPage,
  1323. //VB:                   VDEBackColorAttributesPage, AvlFontAttributesPage
  1324. //VBFlagInfo: Style, defaultStyle(), CWindow
  1325. //
  1326. //VBEvent: create,
  1327. //VB:          "Initial event for a part",
  1328. //VB:          CreateId
  1329. //VBEvent: destroy,
  1330. //VB:          "Final event for a part",
  1331. //VB:          DestroyId
  1332. //VBEvent: click,
  1333. //VB:          "User presses and releases mouse button.",
  1334. //VB:          ClickId,
  1335. //VB:          getClick,01 MouseInfo MouseData.
  1336. //VBEvent: dblClick,
  1337. //VB:          "User presses and releases mouse button twice quickly.",
  1338. //VB:          DblClickId,
  1339. //VB:          getDblClick,01 MouseInfo MouseData.
  1340. //VBEvent: mouseDown,
  1341. //VB:          "User presses the mouse button.",
  1342. //VB:          MouseDownId,
  1343. //VB:          getMouseDown,01 MouseInfo MouseData.
  1344. //VBEvent: mouseMove,
  1345. //VB:          "Mouse pointer is moved over part.",
  1346. //VB:          MouseMoveId,
  1347. //VB:          getMouseMove,01 MouseInfo MouseData.
  1348. //VBEvent: mouseUp,
  1349. //VB:          "User releases the mouse button.",
  1350. //VB:          MouseUpId,
  1351. //VB:          getMouseUp,01 MouseInfo MouseData.
  1352. //VBEvent: popUp,
  1353. //VB:          "Right mouse button is pressed over part.",
  1354. //VB:          PopUpId,
  1355. //VB:          getPopUp,01 PopUpInfo PopUpData.
  1356. //
  1357. //VBAttribute: enabled,
  1358. //VB:          "The enabled feature is not supported."
  1359. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1360. //VBAttribute: enable,
  1361. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1362. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1363. //VBAttribute: disable,
  1364. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1365. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1366. //VBAttribute: focus,
  1367. //VB:          "The focus feature is not supported."
  1368. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1369. //VBAttribute: enableFocus,
  1370. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1371. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1372. //VBAttribute: foreColor,
  1373. //VB:          "The foreColor feature is not supported."
  1374. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1375. //VBAttribute: foreMix,
  1376. //VB:          "The foreMix feature is not supported."
  1377. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1378. //VBAttribute: positionEvent,
  1379. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  1380. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1381. //VBAttribute: sizeEvent,
  1382. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  1383. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1384. //VBAttribute: bottom,
  1385. //VB:          "Returns the screen coordinates in pixels from the bottom edge of the object.",
  1386. //VB:          getBottom,01 BottomPosition SignedInteger.
  1387. //VBAttribute: height,
  1388. //VB:          "Returns the height of the part in pixels.",
  1389. //VB:          getHeight,01 Height SignedInteger.
  1390. //VBAttribute: left,
  1391. //VB:          "Returns the screen coordinates in pixels from the left edge of the object.",
  1392. //VB:          getLeft,01 LeftPosition SignedInteger.
  1393. //VBAttribute: width,
  1394. //VB:          "Returns the width of the part in pixels.",
  1395. //VB:          getWidth,01 ObjectWidth SignedInteger.
  1396. //VBAttribute: visible,
  1397. //VB:          "The visible feature is not supported."
  1398. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1399. //VBAttribute: show,
  1400. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1401. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1402. //VBAttribute: hide,
  1403. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1404. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1405. //VBAttribute: menu,
  1406. //VB:          "The menu feature is not supported."
  1407. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1408. //VBAttribute: popUpMenu,
  1409. //VB:          "The menu feature is not supported."
  1410. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1411. //VBAttribute: defaultStyle,
  1412. //VB:           "Default window style",
  1413. //VB:           defaultStyle,01 style CCanvas::Style.,
  1414. //VB:           setDefaultStyle,01 style CCanvas::Style.
  1415. //VB:            ,,,NOCONNECT NOCOBOLAPI
  1416. //VBAttribute: style,
  1417. //VB:            "For settings",
  1418. //VB:            getStyle,01 style CCanvas::Style.
  1419. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1420. //VBPreferredFeatures: self
  1421. //VBEndPartInfo: CCanvas
  1422. //
  1423. //
  1424. //VBBeginPartInfo: CAudio, "COBOL Audio control"
  1425. //VBParent: CMediaControl
  1426. //VBPartDataFile: 'vaccess.vcb'
  1427. //VBComposerInfo: nonvisual, 9005, iwzbvr20
  1428. //VBVdeType: v
  1429. //VBSettingsPages: VDEAudioAttributesPage
  1430. //VBConstraints: noEdit noAdd
  1431. //
  1432. //VBEvent: complete,
  1433. //VB:          "Audio part has completely processed an audio file.",
  1434. //VB:          CompleteId,
  1435. //VB:          getComplete,01 CompleteInfo Boolean.
  1436. //
  1437. //VBAction: setAudioMode,
  1438. //VB:          "Sets the operating mode for the audio part.",
  1439. //VB:          01 AudioMode MediaMode.
  1440. //VBAttribute: fileName,
  1441. //VB:          "Returns or sets the file to be associated with the part.",
  1442. //VB:          getFileName,01 FileName VarLengthString.,
  1443. //VB:          setFileName,01 FileName VarLengthString.
  1444. //VBAttribute: visible,
  1445. //VB:          "The visible feature will not be supported."
  1446. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1447. //VBAttribute: show,
  1448. //VB:          "This Action will not be supported.  Need to use VBAttribue to disable connection"
  1449. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1450. //VBAttribute: hide,
  1451. //VB:          "This Action will not be supported.  Need to use VBAttribue to disable connection"
  1452. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1453. //VBAttribute: bottom,
  1454. //VB:          "The bottom feature will not be supported."
  1455. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1456. //VBAttribute: left,
  1457. //VB:          "The left feature will not be supported."
  1458. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1459. //VBAttribute: positionEvent,
  1460. //VB:          "This Event will not be supported.  Need to use VBAttribue to disable connection"
  1461. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1462. //VBAttribute: backColor,
  1463. //VB:          "The backColor feature is not supported."
  1464. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1465. //VBAttribute: backMix,
  1466. //VB:          "The backMix feature is not supported."
  1467. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1468. //VBAttribute: enabled,
  1469. //VB:          "The enabled feature is not supported."
  1470. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1471. //VBAttribute: enable,
  1472. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1473. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1474. //VBAttribute: disable,
  1475. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1476. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1477. //VBAttribute: focus,
  1478. //VB:          "The focus feature is not supported."
  1479. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1480. //VBAttribute: enableFocus,
  1481. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1482. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1483. //VBAttribute: fontBold,
  1484. //VB:          "The fontBold feature is not supported."
  1485. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1486. //VBAttribute: enableFontBold,
  1487. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1488. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1489. //VBAttribute: fontItalics,
  1490. //VB:          "The fontItalics feature is not supported."
  1491. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1492. //VBAttribute: enableFontItalics,
  1493. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1494. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1495. //VBAttribute: fontName,
  1496. //VB:          "The fontName feature is not supported."
  1497. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1498. //VBAttribute: fontSize,
  1499. //VB:          "The fontSize feature is not supported."
  1500. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1501. //VBAttribute: fontStrikeout,
  1502. //VB:          "The fontStrikeout feature is not supported."
  1503. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1504. //VBAttribute: enableFontStrikeout,
  1505. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1506. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1507. //VBAttribute: fontUnderline,
  1508. //VB:          "The fontUnderline feature is not supported."
  1509. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1510. //VBAttribute: enableFontUnderline,
  1511. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  1512. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1513. //VBAttribute: foreColor,
  1514. //VB:          "The foreColor feature is not supported."
  1515. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1516. //VBAttribute: foreMix,
  1517. //VB:          "The foreMix feature is not supported."
  1518. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1519. //VBAttribute: height,
  1520. //VB:          "The height feature is not supported."
  1521. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1522. //VBAttribute: width,
  1523. //VB:          "The width feature is not supported."
  1524. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1525. //VBAttribute: fontEvent,
  1526. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  1527. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1528. //VBAttribute: sizeEvent,
  1529. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  1530. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1531. //VBPreferredFeatures: self, volume, fileName, setAudioMode
  1532. //VBEndPartInfo: CAudio
  1533. //
  1534. //
  1535. //VBBeginPartInfo: CCheckBox, "COBOL Check Box control"
  1536. //VBParent: CSettingButton
  1537. //VBPartDataFile: 'vaccess.vcb'
  1538. //VBComposerInfo: visual, 323, iwzbvr20, primitive, iwzbvi20
  1539. //VBVdeType: v
  1540. //VBSettingsPages: VDERadioButtonAttributesPage, VDEControlViewAttributesPage,
  1541. //VB:                   VDECheckBoxStylesAttributesPage,
  1542. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  1543. //VB:                   AvlFontAttributesPage
  1544. //VBFlagInfo: Style, defaultStyle(), CWindow, CButtonControl
  1545. //VBComposerTextSetting: label, UsePartName
  1546. //VBConstraints: noEdit noAdd
  1547. //
  1548. //VBFlagAttribute: Style, 0 3, autoSelect, on
  1549. //
  1550. //VBAttribute: defaultStyle,
  1551. //VB:           "Default window style",
  1552. //VB:           defaultStyle,01 style CCheckBox::Style.,
  1553. //VB:           setDefaultStyle,01 style CCheckBox::Style.
  1554. //VB:            ,,,NOCONNECT NOCOBOLAPI
  1555. //VBAttribute: style,
  1556. //VB:            "For settings",
  1557. //VB:            getStyle,01 style CCheckBox::Style.
  1558. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1559. //VBPreferredFeatures: self, label, checked, enableCheck, disable, enable, enabled, enableFocus, selectEvent
  1560. //VBEndPartInfo: CCheckBox
  1561. //
  1562. //
  1563. //VBBeginPartInfo: CContainerControl, "COBOL Container control"
  1564. //VBParent: CTextControl
  1565. //VBPartDataFile: 'vaccess.vcb'
  1566. //VBComposerInfo: visual, 303, iwzbvr20, 'AvlContainerView', iwzbvi20, outline
  1567. //VBVdeType: v
  1568. //VBConstraints: noEdit noAdd
  1569. //
  1570. //VBSettingsPages: VDEContainerControlAttributesPage, VDEControlViewAttributesPage,
  1571. //VB:                   VDEContainerControlStylesAttributesPage,
  1572. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  1573. //VB:                   AvlFontAttributesPage
  1574. //VBFlagInfo: Style, defaultStyle(), CWindow
  1575. //
  1576. //VBConstructor: CContainerControl,
  1577. //VB:  01 id Integer.
  1578. //VB:  01 parent CWindow*.
  1579. //VB:  01 owner CWindow*.
  1580. //VB:  01 rect CRectangle.
  1581. //VB:  01 style Integer VALUE x"00000000".
  1582. //VB:  01 attribute Integer VALUE x"00000000".
  1583. //
  1584. //VBFlagAttribute: Style, 1 0, extendedSelection, off,, multipleSelection singleSelection
  1585. //VBFlagAttribute: Style, 2 0, multipleSelection, off,, extendedSelection singleSelection
  1586. //VBFlagAttribute: Style, 3 0, singleSelection, on,, extendedSelection multipleSelection
  1587. //VBFlagAttribute: Style, 17 0, group, off
  1588. //VBFlagAttribute: Style, 18 0, tabStop, on
  1589. //
  1590. //VBFlagAttribute: Gen, 4 0, autoPosition, off
  1591. //VBFlagAttribute: Gen, 6 0, readOnly, off
  1592. //VBFlagAttribute: Gen, 5 0, verifyPointers, off
  1593. //
  1594. //VBFlagAttribute: Attribute, 14 0, alignTitleCentered, on
  1595. //VBFlagAttribute: Attribute, 12 0, alignTitleLeft, off
  1596. //VBFlagAttribute: Attribute, 13 0, alignTitleRight, off
  1597. //VBFlagAttribute: Attribute, 4 0, detailsView, off
  1598. //VBFlagAttribute: Attribute, 3 0, iconView, on
  1599. //VBFlagAttribute: Attribute, 7 0, treeView, off
  1600. //VBFlagAttribute: Attribute, 16 0, detailsViewTitles, on
  1601. //VBFlagAttribute: Attribute, 5 0, flowedView, off
  1602. //VBFlagAttribute: Attribute, 21 0, handleDrawBackground, off
  1603. //VBFlagAttribute: Attribute, 15 0, handleDrawItem, off
  1604. //VBFlagAttribute: Attribute, 22 0, mixedTargetEmphasis, off
  1605. //VBFlagAttribute: Attribute, 2 0, nameView, off
  1606. //VBFlagAttribute: Attribute, 17 0, orderedTargetEmphasis, on
  1607. //VBFlagAttribute: Attribute, 20 0, readOnlyTitle, on
  1608. //VBFlagAttribute: Attribute, 1 0, textView, off
  1609. //VBFlagAttribute: Attribute, 11 0, titleSeparator, off
  1610. //VBFlagAttribute: Attribute, 10 0, visibleTitle, on
  1611. //VBFlagAttribute: Attribute, 23 0, treeLineVisibility, on
  1612. //
  1613. //VBEvent: click,
  1614. //VB:          "User presses and releases mouse button.",
  1615. //VB:          ClickId,
  1616. //VB:          getClick,01 MouseInfo MouseData.
  1617. //VBEvent: dblClick,
  1618. //VB:          "User presses and releases mouse button twice quickly.",
  1619. //VB:          DblClickId,
  1620. //VB:          getDblClick,01 MouseInfo MouseData.
  1621. //VBEvent: enter,
  1622. //VB:          "Enter key is pressed on a part or is double-clicked.",
  1623. //VB:          EnterId
  1624. //VBEvent: gotFocus,
  1625. //VB:          "Part has received input focus.",
  1626. //VB:          GotFocusId
  1627. //VBEvent: lostFocus,
  1628. //VB:          "Part has lost input focus.",
  1629. //VB:          LostFocusId
  1630. //VBEvent: mouseDown,
  1631. //VB:          "User presses the mouse button.",
  1632. //VB:          MouseDownId,
  1633. //VB:          getMouseDown,01 MouseInfo MouseData.
  1634. //VBEvent: mouseMove,
  1635. //VB:          "Mouse pointer is moved over part.",
  1636. //VB:          MouseMoveId,
  1637. //VB:          getMouseMove,01 MouseInfo MouseData.
  1638. //VBEvent: mouseUp,
  1639. //VB:          "User releases the mouse button.",
  1640. //VB:          MouseUpId,
  1641. //VB:          getMouseUp,01 MouseInfo MouseData.
  1642. //VBEvent: popUp,
  1643. //VB:          "Right mouse button is pressed over part.",
  1644. //VB:          PopUpId,
  1645. //VB:          getPopUp,01 PopUpInfo PopUpData.
  1646. //VBEvent: selectEvent,
  1647. //VB:          "Part is selected or an item in a part is selected.",
  1648. //VB:          SelectEventId
  1649. //
  1650. //VBAction: setArrange,
  1651. //VB:          "Sets the sorting order for a container.",
  1652. //VB:          01 ContainerOrder Arrange.
  1653. //VBAction: setColNumber,
  1654. //VB:          "Set the field column number.",
  1655. //VB:          01 ColNumber Integer.
  1656. //VBAction: setColumnAttribute,
  1657. //VB:          "Sets the attribute name of the column.",
  1658. //VB:          01 ColumnNumber Integer.
  1659. //VB:          01 AttributeName String.
  1660. //VBAction: addContainerRecordWithDetails,
  1661. //VB:          "Creates and adds a record to the container in details view.",
  1662. //VB:          01 ParentIndex Integer.
  1663. //VB:          01 ContainerRecord SOMObject.,
  1664. //VB:          01 RecordIndex Integer.
  1665. //VBAction: getRcdDetails,
  1666. //VB:          "Returns the record contents.",
  1667. //VB:          01 RecordIndex Integer.
  1668. //VB:          01 ContainerRecord SOMObject.
  1669. //VBAction: setRcdDetails,
  1670. //VB:          "Sets the record contents.",
  1671. //VB:          01 RecordIndex Integer.
  1672. //VB:          01 ContainerRecord SOMObject.
  1673. //VBAction: addContainerRecordWithIcon,
  1674. //VB:          "Creates and adds a record to the container in icon/tree view.",
  1675. //VB:          01 ParentIndex Integer.
  1676. //VB:          01 IconText VarLengthString.
  1677. //VB:          01 IconFile VarLengthString.,
  1678. //VB:          01 RecordIndex Integer.
  1679. //VBAction: setRcdColumnDetails,
  1680. //VB:          "Sets the record contents for a specified column in a container.",
  1681. //VB:          01 RecordIndex Integer.
  1682. //VB:          01 ColNumber Integer.
  1683. //VB:          01 RecordDetails VarLengthString.
  1684. //VBAction: getRcdColumnDetails,
  1685. //VB:          "Returns the record contents for a specified column in a container.",
  1686. //VB:          01 RecordIndex Integer.
  1687. //VB:          01 ColNumber Integer.,
  1688. //VB:          01 RecordDetails VarLengthString.
  1689. //VBAttribute: count,
  1690. //VB:          "Returns the number of items in the list portion of a part.",
  1691. //VB:          getCount,01 ItemCount Integer.
  1692. //VBAction: disableExtSelect,
  1693. //VB:          "Disable extended selection for the part."
  1694. //VBAction: enableExtSelect,
  1695. //VB:          "Enable extended selection for the part."
  1696. //VBAttribute: firstSelected,
  1697. //VB:          "Returns the index value of the first selected item in the list portion of a part.",
  1698. //VB:          getFirstSelected,01 RecordId Integer.
  1699. //VBAction: setHorizontalSpacing,
  1700. //VB:          "Sets the horizontal spacing between a parent and child.",
  1701. //VB:          01 HorizontalSpacing Integer.
  1702. //VBAttribute: inUseFlag,
  1703. //VB:          "Queries or sets the in-use state of a record.",
  1704. //VB:          getInUseFlag,01 InUse Boolean.,
  1705. //VB:          setInUseFlag,01 InUse Boolean VALUE 0.
  1706. //VB:          ,,, VIEWABLE
  1707. //VBAction: enableInUse,
  1708. //VB:          "Enable the in-use state for a record.",
  1709. //VB:          01 RecordId Integer.
  1710. //VBAction: disableMultiSelect,
  1711. //VB:          "Disable multiple selection for the part."
  1712. //VBAction: enableMultiSelect,
  1713. //VB:          "Enable multiple selection for the part."
  1714. //VBAttribute: newRecordId,
  1715. //VB:          "Returns a new unique ID for a record in the container.",
  1716. //VB:          getNewRecordId,01 RecordId Integer.
  1717. //VB:          ,,,,, NOCONNECT
  1718. //VBAttribute: readOnlyRcdFlag,
  1719. //VB:          "Queries or sets if the record in a container is read only.",
  1720. //VB:          getReadOnlyRcdFlag,01 ReadOnlyFlag Boolean.,
  1721. //VB:          setReadOnlyRcdFlag,01 ReadOnlyFlag Boolean VALUE 0.
  1722. //VBAction: enableReadOnlyRecord,
  1723. //VB:          "Enable read only for the entry field portion of a part.",
  1724. //VB:          01 RecordId Integer.
  1725. //VBAction: selectRecord,
  1726. //VB:          "Select a record in a container.",
  1727. //VB:          01 RecordId Integer.
  1728. //VBAction: removeRecord,
  1729. //VB:          "Remove a record from the container.",
  1730. //VB:          01 RecordId Integer.
  1731. //VBAction: removeAll,
  1732. //VB:          "Removes all items from the container."
  1733. //VBAttribute: rcdIcon,
  1734. //VB:          "Returns or sets the file name for the icon used to represent the record.",
  1735. //VB:          getRcdIcon,01 RecordIcon VarLengthString.,
  1736. //VB:          setRcdIcon,01 RecordIcon VarLengthString.
  1737. //VBAttribute: recordId,
  1738. //VB:          "Returns or sets the current record identifier of a container record.",
  1739. //VB:          getRecordId,01 RecordId Integer.,
  1740. //VB:          setRecordId,01 RecordId Integer.
  1741. //VBAttribute: rcdText,
  1742. //VB:          "Returns or sets the record icon text.",
  1743. //VB:          getRcdText,01 RecordText VarLengthString.,
  1744. //VB:          setRcdText,01 RecordText VarLengthString.
  1745. //VBAction: deSelect,
  1746. //VB:          "Deselects items in the list portion of a part.",
  1747. //VB:          01 RecordId Integer.
  1748. //VBAttribute: selectedRcdFlag,
  1749. //VB:          "Returns a flag indicating if a specific record in the container part is selected.",
  1750. //VB:          getSelectedRcdFlag,01 SelectedFlag Integer.
  1751. //VBAction: editTextDetails,
  1752. //VB:          "Opens up an edit field on a record column while in details view.",
  1753. //VB:          01 RecordId Integer.
  1754. //VB:          01 ColNumber Integer.
  1755. //VBAction: editTextIcon,
  1756. //VB:          "Opens up an edit field on the record text while in icon view.",
  1757. //VB:          01 RecordId Integer.
  1758. //VBAction: editTextTree,
  1759. //VB:          "Opens up an edit field on the record text while in tree view.",
  1760. //VB:          01 RecordId Integer.
  1761. //VBAttribute: titleSeparator,
  1762. //VB:          "Queries or sets the visibility of the title separator.",
  1763. //VB:          isTitleSeparatorOn,01 TitleSeparator Boolean VALUE 0.,
  1764. //VB:          setTitleSeparator,01 TitleSeparator Boolean VALUE 0.
  1765. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1766. //VBAction: disableTitleSeparator,
  1767. //VB:          "Make the title separator invisible."
  1768. //VBAction: enableTitleSeparator,
  1769. //VB:          "Make the title separator visible."
  1770. //VBAttribute: titleVisibility,
  1771. //VB:          "Queries or sets the visibility of the container title.",
  1772. //VB:          isTitleVisibilityOn,01 TitleVisibility Boolean VALUE 1.,
  1773. //VB:          setTitleVisibility,01 TitleVisibility Boolean VALUE 0.
  1774. //VB:          ,,, VIEWABLE
  1775. //VBAction: enableTitleVisibility,
  1776. //VB:          "Enable the visibility of the container title."
  1777. //VBAction: setTopIndex,
  1778. //VB:          "Scrolls the list such that the specified item is scrolled to the top of the list.",
  1779. //VB:          01 RecordId Integer.
  1780. //VBAttribute: treeCollapsedFlag,
  1781. //VB:          "Queries or sets if the record in a container are collapsed.",
  1782. //VB:          getTreeCollapsedFlag,01 Collapsed Boolean.,
  1783. //VB:          setTreeCollapsedFlag,01 Collapsed Boolean VALUE 0.
  1784. //VB:          ,,, VIEWABLE
  1785. //VBAction: collapseTree,
  1786. //VB:          "Collapse the subtree of a record.",
  1787. //VB:          01 RecordId Integer.
  1788. //VBAction: expandTree,
  1789. //VB:          "Expand the subtree of a record.",
  1790. //VB:          01 RecordId Integer.
  1791. //VBAttribute: treeLineVisibility,
  1792. //VB:          "Queries or sets the visibility of the tree line.",
  1793. //VB:          isTreeLineVisibilityOn,01 TreeLine Boolean VALUE 1.,
  1794. //VB:          setTreeLineVisibility,01 TreeLine Boolean VALUE 0.
  1795. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1796. //VBAction: disableTreeLine,
  1797. //VB:          "Make the line that connects the parent to its child in the tree view invisible."
  1798. //VBAction: enableTreeLine,
  1799. //VB:          "Make the line that connects the parent to its child in the tree view visible."
  1800. //VBAttribute: verticalSpacing,
  1801. //VB:          "Returns or sets the vertical spacing in pixels between records in a container.",
  1802. //VB:          getVerticalSpacing,01 VerticalSpacing Integer.,
  1803. //VB:          setVerticalSpacing,01 VerticalSpacing Integer.
  1804. //VB:          ,,, VIEWABLE
  1805. //VBAttribute: view,
  1806. //VB:          "Returns or sets the view of a container to icon/tree/details.",
  1807. //VB:          getView,01 ContainerView View.,
  1808. //VB:          setView,01 ContainerView View VALUE 1.
  1809. //VB:          ,,, VIEWABLE
  1810. //VBAttribute: title,
  1811. //VB:          "Returns or sets the title string that is associated with a part.",
  1812. //VB:          getTitle,01 Contents VarLengthString.,
  1813. //VB:          setTitle,01 Contents VarLengthString.
  1814. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1815. //VBAttribute: itemType,
  1816. //VB:          "Returns or sets the item attribute that is associated with the container.",
  1817. //VB:          getItemType,01 ItemType VarLengthString.,
  1818. //VB:          setItemType,01 ItemType VarLengthString.
  1819. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1820. //VBAttribute: titleAlignment,
  1821. //VB:          "Returns or sets tab text alignment.",
  1822. //VB:          getTitleAlignment,01 TitleAlign CContainerControl::TitleAlign VALUE 2.,
  1823. //VB:          setTitleAlignment,01 TitleAlign CContainerControl::TitleAlign VALUE 2.
  1824. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1825. //VBAttribute: viewType,
  1826. //VB:          "Returns or sets the view of a container to icon/tree/details.",
  1827. //VB:          getViewType,01 ContainerView CContainerControl::View VALUE 0.,
  1828. //VB:          setViewType,01 ContainerView CContainerControl::View VALUE 0.
  1829. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1830. //VBAttribute: lineSpacing,
  1831. //VB:          "Returns or sets horizontal line spacing.",
  1832. //VB:          getLineSpacing,01 LineSpacing Integer VALUE 5.,
  1833. //VB:          setLineSpacing,01 LineSpacing Integer.
  1834. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1835. //VBAttribute: menu,
  1836. //VB:          "The menu feature is not supported."
  1837. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1838. //VBAttribute: popUpMenu,
  1839. //VB:          "The menu feature is not supported."
  1840. //VB:          ,,,,,,, NOSETTING NOCONNECT
  1841. //VBAttribute: style,
  1842. //VB:            "For settings",
  1843. //VB:            getStyle,01 style CContainerControl::Style.
  1844. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1845. //VBAttribute: attribute,
  1846. //VB:            "For settings",
  1847. //VB:            getAttribute,01 attribute CContainerControl::Attribute.
  1848. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  1849. //VBPreferredFeatures: self, view, selectEvent
  1850. //VBEndPartInfo: CContainerControl
  1851. //
  1852. //
  1853. //VBBeginPartInfo: CContainerColumn, "IBM column for container details view"
  1854. //VBParent: IVBase
  1855. //VBPartDataFile: 'vaccess.vcb'
  1856. //VBComposerInfo: class, 15026, iwzbvr20, 'AvlContainerColumn', iwzbvi20
  1857. //VBVdeType: v
  1858. //VBConstraints: noEdit noAdd
  1859. //
  1860. //VBSettingsPages: VDEContainerColumnAttributesPage
  1861. // old stuff VBSettingsPages: VDEContainerColumnAttributesPage, AvlContainerColumnStylesAttributesPage
  1862. //VBFlagInfo: DataStyle
  1863. //VBFlagInfo: HeadingStyle
  1864. //VBGeneratorClass: CBLContainerColumnCodeGenerator
  1865. //
  1866. //VBConstructor: CContainerColumn,
  1867. //VB:  01 dataOffset Integer.
  1868. //VB:  01 HeadingStyle Integer VALUE x"00000000".
  1869. //VB:  01 DataStyle Integer VALUE x"00000000".
  1870. //
  1871. //VBFlagAttribute: DataStyle, 12 0, alignTitleLeft, on
  1872. //VBFlagAttribute: DataStyle, 16 0, detailsViewTitles, on
  1873. //VBFlagAttribute: DataStyle, 11 0, headingSeparator, on
  1874. //VBFlagAttribute: DataStyle, 4 0, vertAlignmentTop, off
  1875. //VBFlagAttribute: DataStyle, 5 0, vertAlignmentCenter, on
  1876. //VBFlagAttribute: DataStyle, 6 0, vertAlignmentBottom, off
  1877. //VBFlagAttribute: DataStyle, 1 0, horiAlignmentLeft, on
  1878. //VBFlagAttribute: DataStyle, 3 0, horiAlignmentCenter, off
  1879. //VBFlagAttribute: DataStyle, 2 0, horiAlignmentRight, off
  1880. //
  1881. //VBFlagAttribute: HeadingStyle, 12 0, alignTitleLeft, on
  1882. //VBFlagAttribute: HeadingStyle, 17 0, orderedTargetEmphasis, on
  1883. //VBFlagAttribute: HeadingStyle, 4 0, vertAlignmentTop, off
  1884. //VBFlagAttribute: HeadingStyle, 5 0, vertAlignmentCenter, on
  1885. //VBFlagAttribute: HeadingStyle, 6 0, vertAlignmentBottom, off
  1886. //VBFlagAttribute: HeadingStyle, 1 0, horiAlignmentLeft, on
  1887. //VBFlagAttribute: HeadingStyle, 3 0, horiAlignmentCenter, off
  1888. //VBFlagAttribute: HeadingStyle, 2 0, horiAlignmentRight, off
  1889. //
  1890. //VBAttribute: framingSpec,
  1891. //VB:          "Returns or sets the framing spec for the column.",
  1892. //VB:          getFramingSpec,01 FramingSpec Integer.,
  1893. //VB:          setFramingSpec,01 FramingSpec Integer.
  1894. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1895. //VBAttribute: columnType,
  1896. //VB:          "Returns or sets the column type.",
  1897. //VB:          getColumnType,01 ColumnType Integer VALUE 3.,
  1898. //VB:          setColumnType,01 ColumnType Integer.
  1899. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1900. //VBAttribute: displayWidth,
  1901. //VB:          "Returns the number of pixels of the container column.",
  1902. //VB:          getDisplayWidth,01 DisplayWidth Integer VALUE 100.,
  1903. //VB:          setDisplayWidth,01 DisplayWidth Integer.
  1904. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1905. //VBAttribute: dataVerticalAlignment,
  1906. //VB:          "Returns or sets the vertical alignment of the column.",
  1907. //VB:          getDataVerticalAlignment,01 VertAlign CContainerColumn::VertAlign VALUE 1.,
  1908. //VB:          setDataVerticalAlignment,01 VertAlign CContainerColumn::VertAlign VALUE 1.
  1909. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1910. //VBAttribute: dataHorizontalAlignment,
  1911. //VB:          "Returns or sets the horizontal alignment of the column.",
  1912. //VB:          getDataHorizontalAlignment,01 HoriAlign CContainerColumn::HoriAlign VALUE 0.,
  1913. //VB:          setDataHorizontalAlignment,01 HoriAlign CContainerColumn::HoriAlign VALUE 0.
  1914. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1915. //VBAttribute: headingText,
  1916. //VB:          "Returns the heading text of the container column.",
  1917. //VB:          getHeadingText,01 HeadingText VarLengthString.,
  1918. //VB:          setHeadingText,01 HeadingText VarLengthString.
  1919. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1920. //VBAttribute: iconName,
  1921. //VB:          "Returns the icon name of the container column.",
  1922. //VB:          getIconName,01 IcontName VarLengthString.,
  1923. //VB:          setIconName,01 IconName VarLengthString.
  1924. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1925. //VBAttribute: headingVerticalAlignment,
  1926. //VB:          "Returns or sets the vertical alignment of the heading.",
  1927. //VB:          getHeadingVerticalAlignment,01 VertAlign CContainerColumn::VertAlign VALUE 1.,
  1928. //VB:          setHeadingVerticalAlignment,01 VertAlign CContainerColumn::VertAlign VALUE 1.
  1929. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1930. //VBAttribute: headingHorizontalAlignment,
  1931. //VB:          "Returns or sets the horizontal alignment of the heading.",
  1932. //VB:          getHeadingHorizontalAlignment,01 HoriAlign CContainerColumn::HoriAlign VALUE 0.,
  1933. //VB:          setHeadingHorizontalAlignment,01 HoriAlign CContainerColumn::HoriAlign VALUE 0.
  1934. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1935. //VBAttribute: headingSeparator,
  1936. //VB:          "Returns or sets the heading separator.",
  1937. //VB:          getHeadingSeparator,01 HeadingSeparator Boolean VALUE 1.,
  1938. //VB:          setHeadingSeparator,01 HeadingSeparator Boolean VALUE 0.
  1939. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1940. //VBAttribute: dataOffset,
  1941. //VB:          "Returns or sets the data offset.",
  1942. //VB:          getDataOffset,01 DataOffset Integer.,
  1943. //VB:          setDataOffset,01 DataOffset Integer.
  1944. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1945. //VBAttribute: HeadingStyle,
  1946. //VB:          "Returns or sets the heading style.",
  1947. //VB:          getHeadingStyle,01 HeadingStyle CContainerColumn::HeadingStyle.,
  1948. //VB:          setHeadingStyle,01 HeadingStyle CContainerColumn::HeadingStyle.
  1949. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1950. //VBAttribute: DataStyle,
  1951. //VB:          "Returns or sets the data style.",
  1952. //VB:          getDataStyle,01 DataStyle CContainerColumn::DataStyle.,
  1953. //VB:          setDataStyle,01 DataStyle CContainerColumn::DataStyle.
  1954. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1955. //VBAttribute: attributeName,
  1956. //VB:          "Returns the attriuteName of the container column.",
  1957. //VB:          getAttributeName,01 AttributeName VarLengthString.,
  1958. //VB:          setAttributeName,01 AttributeName VarLengthString.
  1959. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  1960. //VBEndPartInfo: CContainerColumn
  1961. //
  1962. //
  1963. //VBBeginPartInfo: CDDEClient, "COBOL DDEClient control"
  1964. //VBParent: CVisualPart
  1965. //VBPartDataFile: 'vaccess.vcb'
  1966. //VBComposerInfo: nonvisual, 9003, iwzbvr20
  1967. //VBVdeType: v
  1968. //VBSettingsPages: VDEDDEClientAttributesPage
  1969. //VBConstraints: noEdit noAdd
  1970. //
  1971. //VBEvent: data,
  1972. //VB:          "Data has become available from the server application in a DDE Conversation.",
  1973. //VB:          DataId,
  1974. //VB:          getData,01 DataInfo Data.
  1975. //VBEvent: executeAck,
  1976. //VB:          "Server application has processed an execute command.",
  1977. //VB:          ExecuteAckId,
  1978. //VB:          getExecuteAck,01 ExecuteInfo Execute.
  1979. //VBEvent: pokeAck,
  1980. //VB:          "Server application has processed a poke command.",
  1981. //VB:          PokeAckId,
  1982. //VB:          getPokeAck,01 PokeInfo Poke.
  1983. //VBEvent: terminate,
  1984. //VB:          "Server application has requested that the conversation be terminated.",
  1985. //VB:          TerminateId
  1986. //VBEvent: timeOutEvent,
  1987. //VB:          "DDE Conversation has not been established in the time defined.",
  1988. //VB:          TimeOutEventId
  1989. //
  1990. //VBAction: DDEAddLink,
  1991. //VB:          "Establishes a hot-link between the server application and a part name.",
  1992. //VB:          01 ServerAppName VarLengthString.
  1993. //VB:          01 ServerTopic VarLengthString.
  1994. //VB:          01 ServerItem VarLengthString.
  1995. //VB:          01 ClientWindow VarLengthString.
  1996. //VB:          01 ClientPart VarLengthString.
  1997. //VBAction: DDEExecute,
  1998. //VB:          "Posts an Execute command to the server application.",
  1999. //VB:          01 Command VarLengthString.
  2000. //VBAction: DDEInitiate,
  2001. //VB:          "Initiates a DDE conversation.",
  2002. //VB:          01 ServerAppName VarLengthString.
  2003. //VB:          01 ServerTopic VarLengthString.
  2004. //VB:          01 ServerItem VarLengthString.
  2005. //VBAction: DDEPoke,
  2006. //VB:          "Sends data to a server application.",
  2007. //VB:          01 ServerAppName VarLengthString.
  2008. //VB:          01 ServerTopic VarLengthString.
  2009. //VB:          01 ServerItem VarLengthString.
  2010. //VB:          01 DDEData VarLengthString.
  2011. //VBAction: DDERequest,
  2012. //VB:          "Requests the current value of an item in a server application.",
  2013. //VB:          01 ServerAppName VarLengthString.
  2014. //VB:          01 ServerTopic VarLengthString.
  2015. //VB:          01 ServerItem VarLengthString.
  2016. //VBAction: DDERmvLink,
  2017. //VB:          "Removes a hot-link between the server application and a part name.",
  2018. //VB:          01 ServerAppName VarLengthString.
  2019. //VB:          01 ServerTopic VarLengthString.
  2020. //VB:          01 ServerItem VarLengthString.
  2021. //VB:          01 ClientWindow VarLengthString.
  2022. //VB:          01 ClientPart VarLengthString.
  2023. //VBAction: DDETerminate,
  2024. //VB:          "Terminates the DDE conversation.",
  2025. //VB:          01 ServerAppName VarLengthString.
  2026. //VB:          01 ServerTopic VarLengthString.
  2027. //VB:          01 ServerItem VarLengthString.
  2028. //VBAttribute: timeOut,
  2029. //VB:          "Returns or sets the time in seconds to wait for a DDE conversation to be established.",
  2030. //VB:          getTimeOut,01 TimeOut1 Integer.,
  2031. //VB:          setTimeOut,01 TimeOut1 Integer.
  2032. //VBAttribute: initialContents,
  2033. //VB:          "Settings attribute to define initial contents.",
  2034. //VB:          getInitialContents,01 InitialContents VarLengthString.,
  2035. //VB:          setInitialContents,01 InitialContents VarLengthString.
  2036. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2037. //VBAttribute: appName,
  2038. //VB:          "Returns or sets the applicaton name.",
  2039. //VB:          getAppName,01 AppName VarLengthString.,
  2040. //VB:          setAppName,01 AppName VarLengthString.
  2041. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2042. //VBAttribute: topicName,
  2043. //VB:          "Returns or sets the topic name.",
  2044. //VB:          getTopicName,01 TopicName VarLengthString.,
  2045. //VB:          setTopicName,01 TopicName VarLengthString.
  2046. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2047. //VBAttribute: itemName,
  2048. //VB:          "Returns or sets the item name.",
  2049. //VB:          getItemName,01 ItemName VarLengthString.,
  2050. //VB:          setItemName,01 ItemName VarLengthString.
  2051. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2052. //VBAttribute: menu,
  2053. //VB:          "The menu feature is not supported."
  2054. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2055. //VBAttribute: popUpMenu,
  2056. //VB:          "The menu feature is not supported."
  2057. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2058. //VBPreferredFeatures: self, timeOut, DDEAddLink, DDEInitiate
  2059. //VBEndPartInfo: CDDEClient
  2060. //
  2061. //
  2062. //VBBeginPartInfo: CEntryField, "COBOL Text Entry Field control"
  2063. //VBParent: CEntryControl
  2064. //VBPartDataFile: 'vaccess.vcb'
  2065. //VBComposerInfo: visual, 322, iwzbvr20, primitive, iwzbvi20
  2066. //VBVdeType: v
  2067. //VBConstraints: noEdit noAdd
  2068. //
  2069. //VBSettingsPages: VDEEntryFieldViewAttributesPage, VDEControlViewAttributesPage,
  2070. //VB:                   VDEEntryFieldStylesAttributesPage, VDEDisplayTypePage,
  2071. //VB:                   VDEEntryFieldValidationPage,
  2072. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  2073. //VB:                   AvlFontAttributesPage
  2074. //VBComposerTextSetting: contents
  2075. //VBFlagInfo: Style, defaultStyle(), CWindow, CDragControl
  2076. //VBGeneratorClass: CBLEntryFieldCodeGenerator
  2077. //
  2078.  
  2079. //VBFlagAttribute: Style, 8 0, unreadable, off, VIEWABLE
  2080. //VBFlagAttribute: Style, 3 0, autoScroll, on
  2081. //VBFlagAttribute: Style, 5 0, autoTab, off
  2082. //VBFlagAttribute: Style, 4 0, margin, on
  2083. //VBFlagAttribute: Style, 6 0, readOnly, off, VIEWABLE
  2084. //
  2085. //VBFlagAttribute: Gen, 1 0, centerAlign, off
  2086. // not used VBFlagAttribute: Gen, 14 0, dbcsData , off
  2087. //VBFlagAttribute: Gen, 0 1, leftAlign, on
  2088. // not used VBFlagAttribute: Gen, 0 3, mixedData, off
  2089. //VBFlagAttribute: Gen, 2 0, rightAlign, off
  2090. // not used VBFlagAttribute: Gen, 13 0, sbcsData , off
  2091. // not used VBFlagAttribute: Gen, 7 0, command, off
  2092. //
  2093. //VBAttribute: asNumeric,
  2094. //VB:          "Returns or sets the text string (asNumeric) that is associated with a part.",
  2095. //VB:          getAsNumeric,01 FloatContents Float.,
  2096. //VB:          setContents,01 NumContents VarLengthString.
  2097. //VB:          ,ChangeId,, VIEWABLE INLINE
  2098. //VBAttribute: asAlphanumeric,
  2099. //VB:          "Returns or sets the text string (asAlphanumeric) that is associated with a part.",
  2100. //VB:          getContents,01 AlphaContents VarLengthString.,
  2101. //VB:          setContents,01 AlphaContents VarLengthString.
  2102. //VB:          ,ChangeId,, VIEWABLE INLINE
  2103. //VBAttribute: asNumericType,
  2104. //VB:          "Returns or sets the display type for asNumeric.",
  2105. //VB:          getAsNumericType,01 NumContents VarLengthString.,
  2106. //VB:          setAsNumericType,01 NumContents VarLengthString.
  2107. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2108. //VBAttribute: asAlphanumericType,
  2109. //VB:          "Returns or sets the display type for asAlphanumeric.",
  2110. //VB:          getAsAlphanumericType,01 AlphaContents VarLengthString.,
  2111. //VB:          setAsAlphanumericType,01 AlphaContents VarLengthString.
  2112. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2113. //VBAttribute: charType,
  2114. //VB:          "Returns the current type of character that this entry field accepts.",
  2115. //VB:          getCharType,01 CharType Integer VALUE 1.,
  2116. //VB:          setCharType,01 CharType Integer.
  2117. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2118. //VBAttribute: limit,
  2119. //VB:          "Returns the length of the longest text the entry field can hold.",
  2120. //VB:          getLimit,01 Limit Integer VALUE 255.,
  2121. //VB:          setLimit,01 Limit Integer.
  2122. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2123. //VBAttribute: decimalPlaces,
  2124. //VB:          "Returns the number of decimal places the entry field can have.",
  2125. //VB:          getDecimalPlaces,01 DecimalPlaces Integer VALUE 0.,
  2126. //VB:          setDecimalPlaces,01 DecimalPlaces Integer.
  2127. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2128. //VBAttribute: comparison,
  2129. //VB:          "Determines whether there is no comparison/comparison/range checking.",
  2130. //VB:          getComparison,01 Comparison Integer VALUE 1.,
  2131. //VB:          setComparison,01 Comparison Integer.
  2132. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2133. //VBAttribute: comparisonOperator,
  2134. //VB:          "Returns which comparison operator to use for checking.",
  2135. //VB:          getComparisonOperator,01 ComparisonOperator Integer VALUE 1.,
  2136. //VB:          setComparisonOperator,01 ComparisonOperator Integer.
  2137. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2138. //VBAttribute: comparisonValue,
  2139. //VB:          "Returns the string to be compared against.",
  2140. //VB:          getComparisonValue,01 ComparisonValue VarLengthString.,
  2141. //VB:          setComparisonValue,01 ComparisonValue VarLengthString.
  2142. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2143. //VBAttribute: comparisonMin,
  2144. //VB:          "Returns the range minimum.",
  2145. //VB:          getComparisonMin,01 ComparisonMin VarLengthString.,
  2146. //VB:          setComparisonMin,01 ComparisonMin VarLengthString.
  2147. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2148. //VBAttribute: comparisonMax,
  2149. //VB:          "Returns the range maximum.",
  2150. //VB:          getComparisonMax,01 ComparisonMax VarLengthString.,
  2151. //VB:          setComparisonMax,01 ComparisonMax VarLengthString.
  2152. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2153. //VBAttribute: alignment,
  2154. //VB:          "Returns or sets text or label in a part to left/right/center.",
  2155. //VB:          getAlignment,01 Align Alignment VALUE 1.,
  2156. //VB:          setAlignment,01 Align Alignment VALUE 1.
  2157. //VB:          ,,, VIEWABLE
  2158. //VBAttribute: insertMode,
  2159. //VB:          "Query or sets if the entry field portion of the part is in insert mode.",
  2160. //VB:          isInsertModeOn,01 InsertFlag Boolean.,
  2161. //VB:          setInsertMode,01 InsertFlag Boolean VALUE 0.
  2162. //VB:          ,insertModeId
  2163. //VBAction: enableInsertMode,
  2164. //VB:          "Enable insert mode for the entry field portion of the part."
  2165. //VBAttribute: masked,
  2166. //VB:          "Returns if the entry field is masked.",
  2167. //VB:          isMasked,01 MaskFlag Boolean VALUE 0.
  2168. //VBAttribute: scroll,
  2169. //VB:         "Query or sets if the user can scroll data in an entry field.",
  2170. //VB:          isScrollAllowed,01 Allowed Boolean VALUE 1.,
  2171. //VB:          setScroll,01 Allowed Boolean VALUE 0.
  2172. //VBAction: enableScroll,
  2173. //VB:          "Enable scrolling of data in the entry field portion of the part."
  2174. //VBAttribute: defaultStyle,
  2175. //VB:           "Default window style",
  2176. //VB:           defaultStyle,01 style CEntryField::Style.,
  2177. //VB:           setDefaultStyle,01 style CEntryField::Style.
  2178. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2179. //VBAttribute: style,
  2180. //VB:            "For settings",
  2181. //VB:            getStyle,01 style CEntryField::Style.
  2182. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2183. //VBPreferredFeatures: self, asAlphanumeric, asNumeric, contents, enableFocus, textLength
  2184. //VBEndPartInfo: CEntryField
  2185. //
  2186. //
  2187. //VBBeginPartInfo: CNumericEntryField, "COBOL Numeric Entry Field control"
  2188. //VBParent: CEntryField
  2189. //VBPartDataFile: 'vaccess.vcb'
  2190. //VBComposerInfo: visual, 9002, iwzbvr20, primitive, iwzbvi20
  2191. //VBVdeType: v
  2192. //VBConstraints: noEdit noAdd
  2193. //
  2194. //VBSettingsPages: VDENumericEntryFieldViewAttributesPage, VDEControlViewAttributesPage,
  2195. //VB:                   VDEEntryFieldStylesAttributesPage,
  2196. //VB:                   VDEEntryFieldValidationPage,
  2197. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  2198. //VB:                   AvlFontAttributesPage
  2199. //VBComposerTextSetting: contents
  2200. //VBFlagInfo: Style, defaultStyle(), CWindow, CDragControl, CEntryField
  2201. //VBGeneratorClass: CBLEntryFieldCodeGenerator
  2202. //
  2203. //VBAttribute: limit,
  2204. //VB:          "Returns the length of the longest text the entry field can hold.",
  2205. //VB:          getLimit,01 Limit Integer VALUE 18.,
  2206. //VB:          setLimit,01 Limit Integer.
  2207. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2208. //VBAttribute: integerPart,
  2209. //VB:          "Returns the number of integer places before the decimal.",
  2210. //VB:          getIntegerPart,01 IntegerPart Integer VALUE 18.,
  2211. //VB:          setIntegerPart,01 IntegerPart Integer.
  2212. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2213. //VBAttribute: numericValue,
  2214. //VB:          "Returns or sets the numeric packed value for an entry field portion of a part.",
  2215. //VB:          getNumericValue,01 NumFieldRet PackedNum.,
  2216. //VB:          setNumericValue,01 NumField PackedNum.
  2217. //VB:          ,ChangeId,, VIEWABLE INLINE
  2218. //VBAttribute: asNumeric,
  2219. //VB:          "The asAlphanumeric feature is not supported."
  2220. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2221. //VBAttribute: asAlphanumeric,
  2222. //VB:          "The asAlphanumeric feature is not supported."
  2223. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2224. //VBPreferredFeatures: self, contents, enableFocus, numericValue
  2225. //VBEndPartInfo: CNumericEntryField
  2226. //
  2227. //
  2228. //VBBeginPartInfo: CBaseComboBox, "COBOL Base Combo Box stuff"
  2229. //VBParent: CEntryField
  2230. //VBPartDataFile: 'vaccess.vcb'
  2231. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  2232. //VBConstraints: noBaseClass noEdit noShow noAdd
  2233. //
  2234. //VBFlagAttribute: VBTypeStyle, 1 0, simpleType, off, VIEWABLE
  2235. //VBFlagAttribute: VBTypeStyle, 2 0, dropDownType, off, VIEWABLE
  2236. //VBFlagAttribute: VBTypeStyle, 3 0, dropDownListType, on, VIEWABLE
  2237. //VBFlagAttribute: Style, 4 0, horizontalScroll, off, VIEWABLE
  2238. //
  2239. //VBEvent: enter,
  2240. //VB:          "Enter key is pressed on a part or is double-clicked.",
  2241. //VB:          EnterId
  2242. //VBEvent: selectEvent,
  2243. //VB:          "Part is selected or an item in a part is selected.",
  2244. //VB:          SelectEventId
  2245. //
  2246. //VBAction: insertItem,
  2247. //VB:          "Inserts an item in the list portion of a part.",
  2248. //VB:          01 ItemIndex Integer.
  2249. //VB:          01 Item VarLengthString.
  2250. //VBAttribute: itemSelectedFlag,
  2251. //VB:          "Returns a flag indicating if a specific item in the list portion of a part is selected.",
  2252. //VB:          isItemSelectedFlag,01 SelectedFlag Boolean.
  2253. //VBAction: selectOne,
  2254. //VB:          "Selects an item in the list portion of a part.",
  2255. //VB:          01 ItemIndex Integer.
  2256. //VBAttribute: sequence,
  2257. //VB:          "Returns or sets the order in which items are added to the list portion of a part.",
  2258. //VB:          getSequence,01 Seqcode SequenceCode.,
  2259. //VB:          setSequence,01 Seqcode SequenceCode VALUE 4.
  2260. //VBAction: addItemEnd,
  2261. //VB:          "Adds a new item to the end of the list.",
  2262. //VB:          01 Item VarLengthString.
  2263. //VBAction: removeOne,
  2264. //VB:          "Removes an item from a list.",
  2265. //VB:          01 ItemIndex Integer.
  2266. //VBAction: removeAll,
  2267. //VB:          "Removes all items from a list."
  2268. //VBAction: deSelectOne,
  2269. //VB:          "Deselects an item in the list portion of a part.",
  2270. //VB:          01 ItemIndex Integer.
  2271. //VBAction: deSelectAll,
  2272. //VB:          "Deselects all items in the list portion of a part."
  2273. //VBAction: setTopIndex,
  2274. //VB:          "Scrolls the list such that the specified item is scrolled to the top of the list.",
  2275. //VB:          01 ItemIndex Integer.
  2276. //VBAttribute: firstSelected,
  2277. //VB:          "Returns the index value of the first selected item in the list portion of a part.",
  2278. //VB:          getFirstSelected,01 ItemIndex Integer.
  2279. //VBAttribute: count,
  2280. //VB:          "Returns the number of items in the list portion of a part.",
  2281. //VB:          getCount,01 ItemCount Integer.
  2282. //VBAction: setIndex,
  2283. //VB:          "Establishes the index value of the list portion of a part.",
  2284. //VB:          01 ItemIndex Integer.
  2285. //VBAttribute: indicatedItem,
  2286. //VB:          "Replaces or returns an existing item in the list.",
  2287. //VB:          getIndicatedItem,01 Item VarLengthString.,
  2288. //VB:          setIndicatedItem,01 Item VarLengthString.
  2289. //VB:          ,,, VIEWABLE
  2290. //VBAttribute: listData,
  2291. //VB:          "Replaces or returns an array of elements to the listbox.",
  2292. //VB:          getListData,01 List StringArray.,
  2293. //VB:          setListData,01 List StringArray.
  2294. //VBAction: addListEnd,
  2295. //VB:          "Appends an array of elements in sequence to the end of the list.",
  2296. //VB:          01 List StringArray.
  2297. //VBAction: extractListData,
  2298. //VB:          "Extracts an array of elements from a list starting at a specific index position.",
  2299. //VB:          01 StartPosition Integer.
  2300. //VB:          01 TableSize Integer.,
  2301. //VB:          01 List StringArray.
  2302. //VBAction: insertListData,
  2303. //VB:          "Inserts an array of elements into a list starting after specific index position.",
  2304. //VB:          01 List StringArray.
  2305. //VB:          01 StartPosition Integer.
  2306. //VBAttribute: selectedList,
  2307. //VB:          "Extracts selected elements from a listbox.",
  2308. //VB:          getSelectedList,01 List StringArray.
  2309. //VBAttribute: defaultStyle,
  2310. //VB:           "Default window style",
  2311. //VB:           defaultStyle,01 style CBaseComboBox::Style.,
  2312. //VB:           setDefaultStyle,01 style CBaseComboBox::Style.
  2313. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2314. //VBAttribute: style,
  2315. //VB:            "For settings",
  2316. //VB:            getStyle,01 style CBaseComboBox::Style.
  2317. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2318. //VBAttribute: cblComboBoxType,
  2319. //VB:            "Settings attribute to support combo box type.",
  2320. //VB:            getCblComboBoxType,01 comboType CBaseComboBox::ControlType VALUE 2.,
  2321. //VB:            setCblComboBoxType,01 comboType CBaseComboBox::ControlType VALUE 2.
  2322. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2323. //VBEndPartInfo: CBaseComboBox
  2324. //
  2325. //
  2326. //VBBeginPartInfo: CComboBox, "COBOL ComboBox control"
  2327. //VBParent: CBaseComboBox
  2328. //VBPartDataFile: 'vaccess.vcb'
  2329. //VBComposerInfo: visual, 15011, iwzbvr20, 'AvlComboBoxView', iwzbvi20
  2330. //VBVdeType: v
  2331. //VBConstraints: noEdit noAdd
  2332. //
  2333. //VBSettingsPages: VDEComboBoxAttributesPage, VDEControlViewAttributesPage,
  2334. //VB:                   VDEComboBoxStylesAttributesPage,
  2335. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  2336. //VB:                   AvlFontAttributesPage
  2337. //VBComposerTextSetting: contents
  2338. //VBFlagInfo: Style, defaultStyle(), CWindow, CDragControl, CBaseComboBox
  2339. //VBGeneratorClass: CBLStringComboBoxCodeGenerator
  2340. //
  2341. // not used VBFlagAttribute: Gen, 14 0, dbcsData, off
  2342. //VBFlagAttribute: Gen, 3 0, dropDownListType, on
  2343. //VBFlagAttribute: Gen, 2 0, dropDownType, off
  2344. // not used VBFlagAttribute: Gen, 0 3, mixedData, off
  2345. // not used VBFlagAttribute: Gen, 13 0, sbcsData, off
  2346. //VBFlagAttribute: Gen, 1 0, simpleType , off
  2347. //
  2348. //VBAttribute: initialContents,
  2349. //VB:          "Settings attribute to define initial contents.",
  2350. //VB:          getInitialContents,01 InitialContents VarLengthString.,
  2351. //VB:          setInitialContents,01 InitialContents VarLengthString.
  2352. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2353. //VBAttribute: asNumeric,
  2354. //VB:          "The asNumeric feature is not supported."
  2355. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2356. //VBAttribute: asAlphanumeric,
  2357. //VB:          "The asAlphanumeric feature is not supported."
  2358. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2359. //VBAttribute: alignment,
  2360. //VB:          "The alignment feature is not supported."
  2361. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2362. //VBAttribute: insertMode,
  2363. //VB:          "The insertMode feature is not supported."
  2364. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2365. //VBAttribute: enableInsertMode,
  2366. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2367. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2368. //VBAttribute: masked,
  2369. //VB:          "The masked feature is not supported."
  2370. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2371. //VBAttribute: textEnd,
  2372. //VB:          "The textEnd feature is not supported."
  2373. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2374. //VBAttribute: textLength,
  2375. //VB:          "The textLength feature is not supported."
  2376. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2377. //VBAttribute: textSelected,
  2378. //VB:          "The textSelected feature is not supported."
  2379. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2380. //VBAttribute: textStart,
  2381. //VB:          "The textStart feature is not supported."
  2382. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2383. //VBAttribute: click,
  2384. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2385. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2386. //VBAttribute: dblClick,
  2387. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2388. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2389. //VBAttribute: gotFocus,
  2390. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2391. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2392. //VBAttribute: lostFocus,
  2393. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2394. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2395. //VBAttribute: mouseDown,
  2396. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2397. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2398. //VBAttribute: mouseUp,
  2399. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2400. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2401. //VBAttribute: defaultStyle,
  2402. //VB:           "Default window style",
  2403. //VB:           defaultStyle,01 style CComboBox::Style.,
  2404. //VB:           setDefaultStyle,01 style CComboBox::Style.
  2405. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2406. //VBAttribute: style,
  2407. //VB:            "For settings",
  2408. //VB:            getStyle,01 style CComboBox::Style.
  2409. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2410. //VBPreferredFeatures: self, addItemEnd, contents, firstSelected, removeOne, enableFocus, selectEvent, setIndex, indicatedItem
  2411. //VBEndPartInfo: CComboBox
  2412. //
  2413. //
  2414. //VBBeginPartInfo: CGroupBox, "COBOL GroupBox control"
  2415. //VBParent: CTextControl
  2416. //VBPartDataFile: 'vaccess.vcb'
  2417. //VBComposerInfo: visual, 306, iwzbvr20, primitive, iwzbvi20
  2418. //VBVdeType: v
  2419. //VBConstraints: noEdit noAdd
  2420. //VBSettingsPages: VDETextControlViewAttributesPage, VDEControl3ViewAttributesPage,
  2421. //VB:                   VDEGroupBoxStylesAttributesPage,
  2422. //VB:                   VDEForeColorAttributesPage, VDESizePositionAttributesPage,
  2423. //VB:                   AvlFontAttributesPage
  2424. //VBFlagInfo: Style, defaultStyle(), CWindow
  2425. //VBComposerTextSetting: label, UsePartName
  2426. //
  2427. //VBAttribute: backColor,
  2428. //VB:          "The backColor feature is not supported."
  2429. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2430. //VBAttribute: backMix,
  2431. //VB:          "The backMix feature is not supported."
  2432. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2433. //VBAttribute: focus,
  2434. //VB:          "The focus feature is not supported."
  2435. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2436. //VBAttribute: enableFocus,
  2437. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2438. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2439. //VBAttribute: menu,
  2440. //VB:          "The menu feature is not supported."
  2441. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2442. //VBAttribute: popUpMenu,
  2443. //VB:          "The menu feature is not supported."
  2444. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2445. //VBAttribute: defaultStyle,
  2446. //VB:           "Default window style",
  2447. //VB:           defaultStyle,01 style CGroupBox::Style.,
  2448. //VB:           setDefaultStyle,01 style CGroupBox::Style.
  2449. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2450. //VBAttribute: style,
  2451. //VB:            "For settings",
  2452. //VB:            getStyle,01 style CGroupBox::Style.
  2453. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2454. //VBPreferredFeatures: self, label
  2455. //VBEndPartInfo: CGroupBox
  2456. //
  2457. //
  2458. //VBBeginPartInfo: CImage, "COBOL Image Control"
  2459. //VBParent: CWindow
  2460. //VBPartDataFile: 'vaccess.vcb'
  2461. //VBComposerInfo: visual, 15007, iwzbvr20, primitive, iwzbvi20, outline
  2462. //VBVdeType: v
  2463. //VBConstraints: noEdit noAdd
  2464. //
  2465. //VBSettingsPages: VDEImageViewAttributesPage, VDEControlViewAttributesPage,
  2466. //VB:                   VDEIconControlStylesAttributesPage,
  2467. //VB:                   VDEBackColorAttributesPage, VDESizePositionAttributesPage
  2468. //VBFlagInfo: Style, defaultStyle()
  2469. //
  2470. //VBFlagAttribute: Style, 30 0, clipChildren, off, VIEWABLE
  2471. //VBFlagAttribute: Style, 29 0, clipSiblings, off, VIEWABLE
  2472. //VBFlagAttribute: Style, 28 0, clipToParent, off, VIEWABLE
  2473. //VBFlagAttribute: Style, 27 0, saveBits, off
  2474. //VBFlagAttribute: Style, 26 0, synchPaint, on
  2475. //VBFlagAttribute: Style, 32 0, visible, on
  2476. //
  2477. //VBEvent: mouseMove,
  2478. //VB:          "Mouse pointer is moved over part.",
  2479. //VB:          MouseMoveId,
  2480. //VB:          getMouseMove,01 MouseInfo MouseData.
  2481. //
  2482. //VBConstructor: CImage,
  2483. //VB:  01 id Integer.
  2484. //VB:  01 parent CWindow.
  2485. //VB:  01 owner CWindow.
  2486. //VB:  01 rect CRectangle.
  2487. //VB:  01 style Integer VALUE x"80000000".
  2488. //
  2489. //VBAttribute: scrollBars,
  2490. //VB:          "Settings attribute for both horizontal and vertical scroll bars.",
  2491. //VB:          getScrollBars,01 ScrollBars Boolean VALUE 1.,
  2492. //VB:          setScrollBars,01 ScrollBars Boolean VALUE 1.
  2493. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2494. //VBAttribute: fileName,
  2495. //VB:          "Returns or sets the file to be associated with the part.",
  2496. //VB:          getFileName,01 FileName VarLengthString.,
  2497. //VB:          setFileName,01 FileName VarLengthString.
  2498. //VBAttribute: magPanel,
  2499. //VB:          "Returns or sets if the image part has a magnification panel attached.",
  2500. //VB:          isMagPanelOn,01 MagPanelFlag Boolean VALUE 1.,
  2501. //VB:          setMagPanel,01 MagPanelFlag Boolean VALUE 0.
  2502. //VB:          ,,, VIEWABLE
  2503. //VBAction: enableMagPanel,
  2504. //VB:          "Enable magnification panel for the image part."
  2505. //VBAttribute: enabled,
  2506. //VB:          "Returns or sets if the part can respond to user interface events.",
  2507. //VB:          isEnabled,01 EnableFlag Boolean VALUE 1.,
  2508. //VB:          setEnable,01 EnableFlag Boolean VALUE 0.
  2509. //VB:          ,,, VIEWABLE
  2510. //VBAttribute: visible,
  2511. //VB:          "Queries or sets if the part is visible or not.",
  2512. //VB:          isVisible,01 VisibleFlag Boolean VALUE 1.,
  2513. //VB:          setVisible,01 VisibleFlag Boolean VALUE 0.
  2514. //VB:          ,,, VIEWABLE
  2515. //VBAttribute: positionEvent,
  2516. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2517. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2518. //VBAttribute: fontBold,
  2519. //VB:          "The fontBold feature is not supported."
  2520. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2521. //VBAttribute: enableFontBold,
  2522. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2523. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2524. //VBAttribute: fontItalics,
  2525. //VB:          "The fontItalics feature is not supported."
  2526. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2527. //VBAttribute: enableFontItalics,
  2528. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2529. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2530. //VBAttribute: fontName,
  2531. //VB:          "The fontName feature is not supported."
  2532. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2533. //VBAttribute: fontSize,
  2534. //VB:          "The fontSize feature is not supported."
  2535. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2536. //VBAttribute: fontStrikeout,
  2537. //VB:          "The fontStrikeout feature is not supported."
  2538. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2539. //VBAttribute: enableFontStrikeout,
  2540. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2541. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2542. //VBAttribute: fontUnderline,
  2543. //VB:          "The fontUnderline feature is not supported."
  2544. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2545. //VBAttribute: enableFontUnderline,
  2546. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2547. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2548. //VBAttribute: fontEvent,
  2549. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2550. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2551. //VBAttribute: foreColor,
  2552. //VB:          "The foreColor feature is not supported."
  2553. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2554. //VBAttribute: foreMix,
  2555. //VB:          "The foreMix feature is not supported."
  2556. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2557. //VBAttribute: focus,
  2558. //VB:          "The focus feature is not supported."
  2559. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2560. //VBAttribute: enableFocus,
  2561. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2562. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2563. //VBAttribute: menu,
  2564. //VB:          "The menu feature is not supported."
  2565. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2566. //VBAttribute: popUpMenu,
  2567. //VB:          "The menu feature is not supported."
  2568. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2569. //VBAttribute: defaultStyle,
  2570. //VB:           "Default window style",
  2571. //VB:           defaultStyle,01 style CImage::Style.,
  2572. //VB:           setDefaultStyle,01 style CImage::Style.
  2573. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2574. //VBAttribute: style,
  2575. //VB:            "For settings",
  2576. //VB:            getStyle,01 style CImage::Style.
  2577. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2578. //VBPreferredFeatures: self, fileName
  2579. //VBEndPartInfo: CImage
  2580. //
  2581. //
  2582. //VBBeginPartInfo: CListBox, "COBOL ListBox control"
  2583. //VBParent: CBaseListBox
  2584. //VBPartDataFile: 'vaccess.vcb'
  2585. //VBComposerInfo: visual, 15010, iwzbvr20, primitive, iwzbvi20
  2586. //VBVdeType: v
  2587. //VBConstraints: noEdit noAdd
  2588. //
  2589. //VBSettingsPages: VDEListBoxViewAttributesPage, VDEControlViewAttributesPage,
  2590. //VB:                   VDEListBoxStylesAttributesPage,
  2591. //VB:                   VDEForeColorAttributesPage, VDESizePositionAttributesPage,
  2592. //VB:                   AvlFontAttributesPage
  2593. //VBComposerTextSetting: text
  2594. //VBFlagInfo: Style, defaultStyle(), CWindow, CDragControl, CBaseListBox
  2595. //VBGeneratorClass: CBLStringListBoxCodeGenerator
  2596. //
  2597. //VBEvent: gotFocus,
  2598. //VB:          "Part has received input focus.",
  2599. //VB:          GotFocusId
  2600. //VBEvent: lostFocus,
  2601. //VB:          "Part has lost input focus.",
  2602. //VB:          LostFocusId
  2603. //
  2604. //VBAttribute: extSelect,
  2605. //VB:          "Returns or sets if the part allows extended selection.",
  2606. //VB:          isExtSelectOn,01 ExtSelectFlag Boolean VALUE 0.,
  2607. //VB:          setExtSelect,01 ExtSelectFlag Boolean VALUE 0.
  2608. //VBAction: enableExtSelect,
  2609. //VB:          "Enable extended selection for the part."
  2610. //VBAttribute: multiSelect,
  2611. //VB:          "Returns or sets if the part allows multiple selection.",
  2612. //VB:          isMultiSelectOn,01 MultiSelectFlag Boolean VALUE 0.,
  2613. //VB:          setMultiSelect,01 MultiSelectFlag Boolean VALUE 0.
  2614. //VBAction: enableMultiSelect,
  2615. //VB:          "Enable multiple selection for the part."
  2616. //VBAttribute: numberSelected,
  2617. //VB:          "Returns the number of items selected in the list portion of a part.",
  2618. //VB:          getNbrOfSel,01 NumberSelected Integer.
  2619. //VBAttribute: backColor,
  2620. //VB:          "The backColor feature is not supported."
  2621. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2622. //VBAttribute: backMix,
  2623. //VB:          "The backMix feature is not supported."
  2624. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2625. //VBAttribute: defaultStyle,
  2626. //VB:           "Default window style",
  2627. //VB:           defaultStyle,01 style CListBox::Style.,
  2628. //VB:           setDefaultStyle,01 style CListBox::Style.
  2629. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2630. //VBAttribute: style,
  2631. //VB:            "For settings",
  2632. //VB:            getStyle,01 style CListBox::Style.
  2633. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2634. //VBPreferredFeatures: self, addItemEnd, firstSelected, removeOne, enableFocus, selectEvent, setIndex, indicatedItem
  2635. //VBEndPartInfo: CListBox
  2636. //
  2637. //
  2638. //VBBeginPartInfo: CMediaPanel, "COBOL Media Panel control"
  2639. //VBParent: CMediaControl
  2640. //VBPartDataFile: 'vaccess.vcb'
  2641. //VBComposerInfo: visual, 10554, iwzbvr20, composer, iwzbvi20, outline
  2642. //VBVdeType: v
  2643. //VBConstraints: noEdit noAdd
  2644. //VBSettingsPages: VDEMediaPanelAttributesPage, VDEControlViewAttributesPage,
  2645. //VB:                   VDEMediaPanelStylesAttributesPage,
  2646. //VB:                   VDEBackColorAttributesPage, VDESizePositionAttributesPage
  2647. //VBFlagInfo: Style
  2648. //VBFlagInfo: Attribute
  2649. //
  2650. //VBConstructor: CMediaPanel,
  2651. //VB:  01 id Integer.
  2652. //VB:  01 parent CWindow*.
  2653. //VB:  01 owner CWindow*.
  2654. //VB:  01 rect CRectangle.
  2655. //VB:  01 style Integer VALUE x"00000255".
  2656. //
  2657. //VBFlagAttribute: Style, 32 0, visible, on
  2658. //VBFlagAttribute: Attribute, 4 0, playButton, on
  2659. //VBFlagAttribute: Attribute, 5 0, pauseButton, on
  2660. //VBFlagAttribute: Attribute, 3 0, stopButton, on
  2661. //VBFlagAttribute: Attribute, 6 0, recordButton, on
  2662. //VBFlagAttribute: Attribute, 1 0, previousTrackButton, on
  2663. //VBFlagAttribute: Attribute, 2 0, previousIndexButton, on
  2664. //VBFlagAttribute: Attribute, 8 0, nextTrackButton, on
  2665. //VBFlagAttribute: Attribute, 7 0, nextIndexButton, on
  2666. //
  2667. //VBEvent: change,
  2668. //VB:          "Contents of a part have changed.",
  2669. //VB:          ChangeId
  2670. //VBEvent: mouseMove,
  2671. //VB:          "Mouse pointer is moved over part.",
  2672. //VB:          MouseMoveId,
  2673. //VB:          getMouseMove,01 MouseInfo MouseData.
  2674. //VBEvent: popUp,
  2675. //VB:          "Right mouse button is pressed over part.",
  2676. //VB:          PopUpId,
  2677. //VB:          getPopUp,01 PopUpInfo PopUpData.
  2678. //VBEvent: press,
  2679. //VB:          "User clicks on the part with the mouse.",
  2680. //VB:          PressId
  2681. //
  2682. //VBAttribute: volumeControl,
  2683. //VB:          "Places a volume control slider on the media panel.",
  2684. //VB:          getVolumeControl,01 VolumeControl Boolean VALUE 1.,
  2685. //VB:          setVolumeControl,01 VolumeControl Boolean.
  2686. //VB:          ,,, NOCOBOLAPI NOCONNECT VIEWABLE
  2687. //VBAttribute: positionIndicator,
  2688. //VB:          "Places a position indicator slider on the media panel.",
  2689. //VB:          getPositionIndicator,01 PositionIndicator Boolean VALUE 1.,
  2690. //VB:          setPositionIndicator,01 PositionIndicator Boolean.
  2691. //VB:          ,,, NOCOBOLAPI NOCONNECT VIEWABLE
  2692. //VBAttribute: playButton,
  2693. //VB:          "Attribute - Places a play button on the media panel.",
  2694. //VB:          getPlayButton,01 playButton Boolean VALUE 1.,
  2695. //VB:          setPlayButton,01 playButton Boolean.
  2696. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2697. //VBAttribute: pauseButton,
  2698. //VB:          "Attribute - Places a pause button on the media panel.",
  2699. //VB:          getPauseButton,01 pauseButton Boolean VALUE 1.,
  2700. //VB:          setPauseButton,01 pauseButton Boolean.
  2701. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2702. //VBAttribute: stopButton,
  2703. //VB:          "Attribute - Places a stop button on the media panel.",
  2704. //VB:          getStopButton,01 stopButton Boolean VALUE 1.,
  2705. //VB:          setStopButton,01 stopButton Boolean.
  2706. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2707. //VBAttribute: recordButton,
  2708. //VB:          "Attribute - Places a record button on the media panel.",
  2709. //VB:          getRecordButton,01 recordButton Boolean VALUE 1.,
  2710. //VB:          setRecordButton,01 recordButton Boolean.
  2711. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2712. //VBAttribute: previousTrackButton,
  2713. //VB:          "Attribute - Places a previous track button on the media panel.",
  2714. //VB:          getPreviousTrackButton,01 previousTrackButton Boolean VALUE 1.,
  2715. //VB:          setPreviousTrackButton,01 previousTrackButton Boolean.
  2716. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2717. //VBAttribute: previousIndexButton,
  2718. //VB:          "Attribute - Places a previous index button on the media panel.",
  2719. //VB:          getPreviousIndexButton,01 previousIndexButton Boolean VALUE 1.,
  2720. //VB:          setPreviousIndexButton,01 previousIndexButton Boolean.
  2721. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2722. //VBAttribute: nextTrackButton,
  2723. //VB:          "Attribute - Places a next track button on the media panel.",
  2724. //VB:          getNextTrackButton,01 nextTrackButton Boolean VALUE 1.,
  2725. //VB:          setNextTrackButton,01 nextTrackButton Boolean.
  2726. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2727. //VBAttribute: nextIndexButton,
  2728. //VB:          "Attribute - Places a next index button on the media panel.",
  2729. //VB:          getNextIndexButton,01 nextIndexButton Boolean VALUE 1.,
  2730. //VB:          setNextIndexButton,01 nextIndexButton Boolean.
  2731. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2732. //VBAttribute: panelItem,
  2733. //VB:          "Returns a value indicating which button on a media panel was last changed.",
  2734. //VB:          getPanelItem,01 Button MediaButton.
  2735. //VBAction: setPanelMode,
  2736. //VB:          "Sets the operating mode for the media panel part.",
  2737. //VB:          01 PanelMode MediaMode.
  2738. //VBAttribute: visible,
  2739. //VB:          "Queries or sets if the part is visible or not.",
  2740. //VB:          isVisible,01 VisibleFlag Boolean VALUE 1.,
  2741. //VB:          setVisible,01 VisibleFlag Boolean VALUE 0.
  2742. //VB:          ,,, VIEWABLE
  2743. //VBAttribute: positionEvent,
  2744. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2745. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2746. //VBAttribute: fontBold,
  2747. //VB:          "The fontBold feature is not supported."
  2748. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2749. //VBAttribute: enableFontBold,
  2750. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2751. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2752. //VBAttribute: fontItalics,
  2753. //VB:          "The fontItalics feature is not supported."
  2754. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2755. //VBAttribute: enableFontItalics,
  2756. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2757. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2758. //VBAttribute: fontName,
  2759. //VB:          "The fontName feature is not supported."
  2760. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2761. //VBAttribute: fontSize,
  2762. //VB:          "The fontSize feature is not supported."
  2763. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2764. //VBAttribute: fontStrikeout,
  2765. //VB:          "The fontStrikeout feature is not supported."
  2766. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2767. //VBAttribute: enableFontStrikeout,
  2768. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2769. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2770. //VBAttribute: fontUnderline,
  2771. //VB:          "The fontUnderline feature is not supported."
  2772. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2773. //VBAttribute: enableFontUnderline,
  2774. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2775. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2776. //VBAttribute: fontEvent,
  2777. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  2778. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2779. //VBAttribute: foreColor,
  2780. //VB:          "The foreColor feature is not supported."
  2781. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2782. //VBAttribute: foreMix,
  2783. //VB:          "The foreMix feature is not supported."
  2784. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2785. //VBAttribute: focus,
  2786. //VB:          "The focus feature is not supported."
  2787. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2788. //VBAttribute: enableFocus,
  2789. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  2790. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2791. //VBAttribute: style,
  2792. //VB:            "For settings",
  2793. //VB:            getStyle,01 style CMediaPanel::Style.
  2794. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2795. //VBAttribute: attribute,
  2796. //VB:            "For settings",
  2797. //VB:            getAttribute,01 attribute CMediaPanel::Attribute.
  2798. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2799. //VBPreferredFeatures: self, volume, press
  2800. //VBEndPartInfo: CMediaPanel
  2801. //
  2802. //
  2803. //VBBeginPartInfo: CMultiLineEdit, "COBOL MultiLine Edit control"
  2804. //VBParent: CEntryControl
  2805. //VBPartDataFile: 'vaccess.vcb'
  2806. //VBComposerInfo: visual, 310, iwzbvr20, 'AvlMLEView', iwzbvi20
  2807. //VBVdeType: v
  2808. //VBConstraints: noEdit noAdd
  2809. //VBSettingsPages: VDEMultiLineEditViewAttributesPage, VDEControlViewAttributesPage,
  2810. //VB:                   VDEMultiLineEditStylesAttributesPage,
  2811. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  2812. //VB:                   AvlFontAttributesPage
  2813. //VBFlagInfo: Style, defaultStyle(), CWindow, CDragControl
  2814. //VBComposerTextSetting: contents
  2815. //
  2816. //VBFlagAttribute: Style, 2 0, border, on, VIEWABLE
  2817. //VBFlagAttribute: Style, 5 0, readOnly, off, VIEWABLE
  2818. //VBFlagAttribute: Style, 4 0, horizontalScroll, on, VIEWABLE
  2819. //VBFlagAttribute: Style, 3 0, verticalScroll, on, VIEWABLE
  2820. //VBFlagAttribute: Style, 6 0, ignoreTab, off, VIEWABLE
  2821. //VBFlagAttribute: Style, 1 0, wordWrap, on
  2822. //
  2823. //VBAttribute: limit,
  2824. //VB:          "Returns the length of the longest text the MLE can hold.",
  2825. //VB:          getLimit,01 Limit Integer VALUE 65535.,
  2826. //VB:          setLimit,01 Limit Integer.
  2827. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2828. //VBAction: addAtOffset,
  2829. //VB:          "Inserts the specified text into the MLE at an offset.",
  2830. //VB:          01 Offset Integer.
  2831. //VB:          01 NewText VarLengthString.
  2832. //VBAttribute: charOffset,
  2833. //VB:          "Returns or sets the current character offset value in an MLE.",
  2834. //VB:          getCharOffset,01 Offset Integer.,
  2835. //VB:          setCharOffset,01 Offset Integer.
  2836. //VBAttribute: contents,
  2837. //VB:          "Returns or sets the contents for an entry field portions of a part.",
  2838. //VB:          getContents,01 Contents VarLengthString.,
  2839. //VB:          setContents,01 Contents VarLengthString.
  2840. //VB:          ,ChangeId,, VIEWABLE NOCONNECT
  2841. //VBAttribute: multiLineContents,
  2842. //VB:          "Returns or sets the contents for an MLE part.",
  2843. //VB:          getMultiLineContents,01 mleContents VarLengthStringMLE.,
  2844. //VB:          setMultiLineContents,01 mleContents VarLengthStringMLE.
  2845. //VB:          ,ChangeId,, VIEWABLE
  2846. //VBAction: insertLine,
  2847. //VB:          "Inserts the specified string in the MLE at the current LineNumber value.",
  2848. //VB:          01 LineNumber Integer.
  2849. //VB:          01 NewLine VarLengthString.
  2850. //VBAction: addLineEnd,
  2851. //VB:          "Adds a new line after the last line in an MLE.",
  2852. //VB:          01 NewLine VarLengthString.
  2853. //VBAttribute: lineNumber,
  2854. //VB:          "Returns or sets at which line the insertLine API will insert a new line in an MLE.",
  2855. //VB:          getLineNumber,01 LineNumber Integer.,
  2856. //VB:          setLineNumber,01 LineNumber Integer.
  2857. //VBAttribute: nbrOfLines,
  2858. //VB:          "Returns the number of lines in an MLE.",
  2859. //VB:          getNbrOfLines,01 NumberOfLines Integer.
  2860. //VBAction: insertText,
  2861. //VB:          "Inserts the specified text at the current cursor position of an MLE.",
  2862. //VB:          01 NewText VarLengthString.
  2863. //VBAttribute: wordWrap,
  2864. //VB:          "Returns or sets if text entered in an MLE should wrap on a word boundary.",
  2865. //VB:          isWordWrapOn,01 WordWrapFlag Boolean VALUE 1.,
  2866. //VB:          setWordWrap,01 WordWrapFlag Boolean VALUE 0.
  2867. //VB:          ,,, VIEWABLE
  2868. //VBAction: enableWordWrap,
  2869. //VB:          "Enable word wrap in an MLE."
  2870. //VBAttribute: defaultStyle,
  2871. //VB:           "Default window style",
  2872. //VB:           defaultStyle,01 style CMultiLineEdit::Style.,
  2873. //VB:           setDefaultStyle,01 style CMultiLineEdit::Style.
  2874. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2875. //VBAttribute: style,
  2876. //VB:            "For settings",
  2877. //VB:            getStyle,01 style CMultiLineEdit::Style.
  2878. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2879. //VBPreferredFeatures: self, addAtOffset, addLineEnd, MLEContents, enableFocus, textLength
  2880. //VBEndPartInfo: CMultiLineEdit
  2881. //
  2882. //
  2883. //VBBeginPartInfo: CNotebook, "COBOL Notebook control"
  2884. //VBParent: CWindow
  2885. //VBPartDataFile: 'vaccess.vcb'
  2886. //VBComposerInfo: visual, 15037, iwzbvr20, 'AvlNoteBookView', iwzbvi20, outline
  2887. //VBVdeType: v
  2888. //VBConstraints: noEdit noAdd
  2889. //
  2890. //VBSettingsPages: VDENoteBookAttributesPage, VDEControlViewAttributesPage,
  2891. //VB:                   VDENoteBookStylesAttributesPage,
  2892. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  2893. //VB:                   AvlFontAttributesPage
  2894. //VBFlagInfo: Style, defaultStyle(), CWindow
  2895. //
  2896. //VBFlagAttribute: Style, 17 0, group, off
  2897. //VBFlagAttribute: Style, 18 0, tabStop, on
  2898. //
  2899. // do not know value VBFlagAttribute: Gen, 0 0, pmCompatible, on
  2900. //VBFlagAttribute: Gen, 2 0, backPagesBottomLeft, off
  2901. //VBFlagAttribute: Gen, 1 0, backPagesBottomRight, on
  2902. //VBFlagAttribute: Gen, 4 0, backPagesTopLeft, off
  2903. //VBFlagAttribute: Gen, 3 0, backPagesTopRight, off
  2904. //VBFlagAttribute: Gen, 8 0, majorTabsBottom, off
  2905. //VBFlagAttribute: Gen, 6 0, majorTabsLeft, off
  2906. //VBFlagAttribute: Gen, 5 0, majorTabsRight, on
  2907. //VBFlagAttribute: Gen, 7 0, majorTabsTop, off
  2908. // original name VBFlagAttribute: Gen, 10 0, polygonTabs, off
  2909. // original name VBFlagAttribute: Gen, 9 0, roundedTabs, off
  2910. // original name VBFlagAttribute: Gen, 0 1, squareTabs, on
  2911. // original name VBFlagAttribute: Gen, 0 2, solidBinding, on
  2912. // original name VBFlagAttribute: Gen, 11 0, spiralBinding, off
  2913. //VBFlagAttribute: Gen, 10 0, Polygon, off
  2914. //VBFlagAttribute: Gen, 9 0, Rounded, off
  2915. //VBFlagAttribute: Gen, 0 1, Squared, on
  2916. //VBFlagAttribute: Gen, 0 2, Solid, on
  2917. //VBFlagAttribute: Gen, 11 0, Spiral, off
  2918. //VBFlagAttribute: Gen, 14 0, statusTextCenter, off
  2919. //VBFlagAttribute: Gen, 0 3, statusTextLeft, on
  2920. //VBFlagAttribute: Gen, 13 0, statusTextRight, off
  2921. //VBFlagAttribute: Gen, 16 0, tabTextCenter, off
  2922. //VBFlagAttribute: Gen, 0 4, tabTextLeft, on
  2923. //VBFlagAttribute: Gen, 15 0, tabTextRight, off
  2924. //
  2925. //VBAttribute: alignment,
  2926. //VB:          "Returns or sets text or label in a part to left/right/center.",
  2927. //VB:          getAlignment,01 Align Alignment VALUE 1.,
  2928. //VB:          setAlignment,01 Align Alignment VALUE 1.
  2929. //VB:          ,,, VIEWABLE
  2930. //VBAttribute: binding,
  2931. //VB:          "Returns or sets the binding of the notebook.",
  2932. //VB:          getBinding,01 Bind Binding VALUE 2.,
  2933. //VB:          setBinding,01 Bind Binding VALUE 2.
  2934. //VB:          ,,, VIEWABLE
  2935. //VBAttribute: bindingSetting,
  2936. //VB:          "Returns or sets the binding of the notebook.",
  2937. //VB:          getBindingSetting,01 Bind CNotebook::Binding VALUE 1.,
  2938. //VB:          setBindingSetting,01 Bind CNotebook::Binding VALUE 1.
  2939. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2940. //VBAttribute: count,
  2941. //VB:          "Returns the number of items in the list portion of a part.",
  2942. //VB:          getCount,01 ItemCount Integer.
  2943. //VBAttribute: pageNumber,
  2944. //VB:          "Returns or sets the current page number in the notebook.",
  2945. //VB:          getPageNumber,01 PageNumber Integer.,
  2946. //VB:          setPageNumber,01 PageNumber Integer.
  2947. //VB:          ,PageSelectId,, VIEWABLE
  2948. //VBAttribute: tabShape,
  2949. //VB:          "Returns or sets the shape of the tabs in the notebook.",
  2950. //VB:          getTabShape,01 Tab TabShape VALUE 1.,
  2951. //VB:          setTabShape,01 Tab TabShape VALUE 1.
  2952. //VB:          ,,, VIEWABLE
  2953. //VBAttribute: tabShapeSetting,
  2954. //VB:          "Returns or sets the shape of the tabs in the notebook.",
  2955. //VB:          getTabShapeSetting,01 Tab CNotebook::TabShape VALUE 0.,
  2956. //VB:          setTabShapeSetting,01 Tab CNotebook::TabShape VALUE 0.
  2957. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2958. //VBAttribute: tabTextAlignment,
  2959. //VB:          "Returns or sets tab text alignment.",
  2960. //VB:          getTabTextAlignment,01 TabAlign CNotebook::TabAlign VALUE 0.,
  2961. //VB:          setTabTextAlignment,01 TabAlign CNotebook::TabAlign VALUE 0.
  2962. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2963. //VBAttribute: statusTextAlignment,
  2964. //VB:          "Returns or sets status text alignment.",
  2965. //VB:          getStatusTextAlignment,01 StatusAlign CNotebook::StatusAlign VALUE 0.,
  2966. //VB:          setStatusTextAlignment,01 StatusAlign CNotebook::StatusAlign VALUE 0.
  2967. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2968. //VBAttribute: orientation,
  2969. //VB:          "Returns or sets the orientation in terms of backpages and major tabs.",
  2970. //VB:          getOrientation,01 Orientation CNotebook::Orientation VALUE 0.,
  2971. //VB:          setOrientation,01 Orientation CNotebook::Orientation VALUE 0.
  2972. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  2973. //VBAttribute: statusTemplate,
  2974. //VB:          "Returns or sets the status text template.",
  2975. //VB:          getStatusTemplate,01 StatusTemplate VarLengthString.,
  2976. //VB:          setStatusTemplate,01 StatusTemplate VarLengthString.
  2977. //VB:          ,,, NOCONNECT NOCOBOLAPI
  2978. //VBAttribute: menu,
  2979. //VB:          "The menu feature is not supported."
  2980. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2981. //VBAttribute: popUpMenu,
  2982. //VB:          "The menu feature is not supported."
  2983. //VB:          ,,,,,,, NOSETTING NOCONNECT
  2984. //VBAttribute: defaultStyle,
  2985. //VB:           "Default window style",
  2986. //VB:           defaultStyle,01 style CNotebook::Style.,
  2987. //VB:           setDefaultStyle,01 style CNotebook::Style.
  2988. //VB:            ,,,NOCONNECT NOCOBOLAPI
  2989. //VBAttribute: style,
  2990. //VB:            "For settings",
  2991. //VB:            getStyle,01 style CNotebook::Style.
  2992. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  2993. //VBPreferredFeatures: self, count, pageNumber
  2994. //VBEndPartInfo: CNotebook
  2995. //
  2996. //
  2997. //VBBeginPartInfo: CNotebookPage, "COBOL Notebook Page control"
  2998. //VBParent: CVisualPart
  2999. //VBPartDataFile: 'vaccess.vcb'
  3000. //VBComposerInfo: nonvisual, 204, iwzbvr20, 'AvlNoteBookPageSettingsView', '', outline
  3001. //VBVdeType: v
  3002. //VBConstraints: noEdit noAdd
  3003. //
  3004. //VBConstructor: CNotebookPage,
  3005. //VB:  01 attribute Integer VALUE x"00000141".
  3006. //VB:  01 pageWindow CWindow*.
  3007. //
  3008. //VBSettingsPages: VDENoteBookPageSettingsAttributesPage,
  3009. //VB:                   VDENoteBookPageSettingsAttributesAttributesPage
  3010. //VBGeneratorClass: CBLNotebookPageCodeGenerator
  3011. //VBFlagInfo: Attribute
  3012. //
  3013. //VBFlagAttribute: Attribute, 9 0, autoPageSize, on
  3014. //VBFlagAttribute: Attribute, 7 0, majorTab, on, VIEWABLE, minorTab
  3015. //VBFlagAttribute: Attribute, 8 0, minorTab, off, VIEWABLE, majorTab
  3016. //VBFlagAttribute: Attribute, 1 0, statusTextOn, on, VIEWABLE
  3017. //
  3018. //VBEvent: pageSelect,
  3019. //VB:          "Return page number selected.",
  3020. //VB:          PageSelectId,
  3021. //VB:          getPageSelect,01 PageInfo Integer.
  3022. //
  3023. //VBAction: setInfoLabel,
  3024. //VB:          "Sets the information label of a notebook page.",
  3025. //VB:          01 InfoLabel VarLengthString.
  3026. //VBAction: setTabLabel,
  3027. //VB:          "Sets the label that appears on a notebook page tab.",
  3028. //VB:          01 TabLabel VarLengthString.
  3029. //VBAttribute: tabText,
  3030. //VB:          "Returns or sets the tab text.",
  3031. //VB:          getTabText,01 TabText VarLengthString.,
  3032. //VB:          setTabText,01 TabText VarLengthString.
  3033. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3034. //VBAttribute: statusText,
  3035. //VB:          "Returns or sets the status text.",
  3036. //VB:          getStatusText,01 StatusText VarLengthString.,
  3037. //VB:          setStatusText,01 StatusText VarLengthString.
  3038. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3039. //VBAttribute: checkTemplate,
  3040. //VB:          "Settings attribute whether the status template is used or not.",
  3041. //VB:          getCheckTemplate,01 CheckTemplate Boolean VALUE 1.,
  3042. //VB:          setCheckTemplate,01 CheckTemplate Boolean.
  3043. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3044. //VBAttribute: menu,
  3045. //VB:          "The menu feature is not supported."
  3046. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3047. //VBAttribute: popUpMenu,
  3048. //VB:          "The menu feature is not supported."
  3049. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3050. //VBAttribute: attribute,
  3051. //VB:            "For settings",
  3052. //VB:            getAttribute,01 atttribute CNotebook::PageSettings::Attribute.
  3053. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3054. //VBPreferredFeatures: self, pageSelect
  3055. //VBEndPartInfo: CNotebookPage
  3056. //
  3057. //
  3058. //VBBeginPartInfo: COutlineBox, "COBOL OutLine Box control"
  3059. //VBParent: CWindow
  3060. //VBPartDataFile: 'vaccess.vcb'
  3061. //VBComposerInfo: visual, 15003, iwzbvr20, primitive, iwzbvi20
  3062. //VBVdeType: v
  3063. //VBConstraints: noEdit noAdd
  3064. //
  3065. //VBSettingsPages: VDEPartnameAttributesPage,
  3066. //VB:                   VDEOutlineBoxStylesAttributesPage,
  3067. //VB:                   VDEForeColorAttributesPage, VDESizePositionAttributesPage
  3068. //VBFlagInfo: Style, defaultStyle(), CWindow
  3069. //
  3070. //VBFlagAttribute: Style, 0 1, backgroundFrame, off, VIEWABLE, foregroundFrame halftoneFrame
  3071. //VBFlagAttribute: Style, 0 2, foregroundFrame, on, VIEWABLE, backgroundFrame halftoneFrame
  3072. //VBFlagAttribute: Style, 0 3, halftoneFrame, off, VIEWABLE, backgroundFrame foregroundFrame
  3073. //
  3074. //VBAttribute: backColor,
  3075. //VB:          "The backColor feature is not supported."
  3076. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3077. //VBAttribute: backMix,
  3078. //VB:          "The backMix feature is not supported."
  3079. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3080. //VBAttribute: fontBold,
  3081. //VB:          "The fontBold feature is not supported."
  3082. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3083. //VBAttribute: enableFontBold,
  3084. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3085. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3086. //VBAttribute: fontItalics,
  3087. //VB:          "The fontItalics feature is not supported."
  3088. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3089. //VBAttribute: enableFontItalics,
  3090. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3091. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3092. //VBAttribute: fontName,
  3093. //VB:          "The fontName feature is not supported."
  3094. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3095. //VBAttribute: fontSize,
  3096. //VB:          "The fontSize feature is not supported."
  3097. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3098. //VBAttribute: fontStrikeout,
  3099. //VB:          "The fontStrikeout feature is not supported."
  3100. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3101. //VBAttribute: enableFontStrikeout,
  3102. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3103. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3104. //VBAttribute: fontUnderline,
  3105. //VB:          "The fontUnderline feature is not supported."
  3106. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3107. //VBAttribute: enableFontUnderline,
  3108. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3109. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3110. //VBAttribute: fontEvent,
  3111. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  3112. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3113. //VBAttribute: enabled,
  3114. //VB:          "The enabled feature is not supported."
  3115. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3116. //VBAttribute: enable,
  3117. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3118. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3119. //VBAttribute: disable,
  3120. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3121. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3122. //VBAttribute: focus,
  3123. //VB:          "The focus feature is not supported."
  3124. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3125. //VBAttribute: enableFocus,
  3126. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3127. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3128. //VBAttribute: menu,
  3129. //VB:          "The menu feature is not supported."
  3130. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3131. //VBAttribute: popUpMenu,
  3132. //VB:          "The menu feature is not supported."
  3133. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3134. //VBAttribute: defaultStyle,
  3135. //VB:           "Default window style",
  3136. //VB:           defaultStyle,01 style COutlineBox::Style.,
  3137. //VB:           setDefaultStyle,01 style COutlineBox::Style.
  3138. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3139. //VBAttribute: style,
  3140. //VB:            "For settings",
  3141. //VB:            getStyle,01 style COutlineBox::Style.
  3142. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3143. //VBPreferredFeatures: self
  3144. //VBEndPartInfo: COutlineBox
  3145. //
  3146. //
  3147. //VBBeginPartInfo: CPushButton, "COBOL PushButton control"
  3148. //VBParent: CButtonControl
  3149. //VBPartDataFile: 'vaccess.vcb'
  3150. //VBComposerInfo: visual, 315, iwzbvr20, primitive, iwzbvi20
  3151. //VBVdeType: v
  3152. //VBConstraints: noEdit noAdd
  3153. //
  3154. //VBSettingsPages: VDEPushButtonViewAttributesPage, VDEControlViewAttributesPage,
  3155. //VB:                   VDEPushButtonStylesAttributesPage,
  3156. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  3157. //VB:                   AvlFontAttributesPage
  3158. //VBFlagInfo: Style, defaultStyle(), CWindow, CButtonControl
  3159. //VBComposerTextSetting: label, UsePartName
  3160. //
  3161. //VBGeneratorClass: CBLPushButtonCodeGenerator
  3162. //
  3163. //VBFlagAttribute: Style, 13 0, noBorder, off, VIEWABLE
  3164. //VBFlagAttribute: Style, 11 0, defaultButton, off
  3165. //
  3166. //VBFlagAttribute: Gen, 9 0, help, off
  3167. // not used VBFlagAttribute: Gen, 10 0, systemCommand, off
  3168. //
  3169. //VBEvent: press,
  3170. //VB:          "User clicks on the part with the mouse.",
  3171. //VB:          PressId
  3172. //
  3173. //VBAttribute: commandKey,
  3174. //VB:          "Returns the current Command Key that this pushbutton will accept.",
  3175. //VB:          getCommandKey,01 CommandKey CommandKeyList VALUE 1.,
  3176. //VB:          setCommandKey,01 CommandKey CommandKeyList.
  3177. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3178. //VBAttribute: pressEventLogic,
  3179. //VB:          "Returns or sets the event logic to use for pushbutton.",
  3180. //VB:          getPressEventLogic,01 EventRun CPushButton::EventLogic VALUE 1.,
  3181. //VB:          setPressEventLogic,01 EventRun CPushButton::EventLogic VALUE 1.
  3182. //VB:          ,,, NOCONNECT NOCOBOLAPI 
  3183. //VBAttribute: border,
  3184. //VB:          "Returns or sets if the part has a border.",
  3185. //VB:          isBorderOn,01 BorderFlag Boolean VALUE 1.,
  3186. //VB:          setBorder,01 BorderFlag Boolean VALUE 0.
  3187. //VB:          ,,, VIEWABLE
  3188. //VBAction: enableBorder,
  3189. //VB:          "Enable border for part."
  3190. //VBAttribute: helpEnabled,
  3191. //VB:          "Returns or sets if help is enabled for the specified part.",
  3192. //VB:          isHelpEnabled,01 HelpFlag Boolean VALUE 0.,
  3193. //VB:          setHelp,01 HelpFlag Boolean VALUE 0.
  3194. //VBAction: enableHelp,
  3195. //VB:          "Enable help for the specified part."
  3196. //VBAttribute: validation,
  3197. //VB:          "Returns or sets if pressing the button will cause field validation to occur for those parts that have field validation settings.",
  3198. //VB:          isValidationEnabled,01 ValidationFlag Boolean VALUE 0.,
  3199. //VB:          setValidation,01 ValidationFlag Boolean VALUE 0.
  3200. //VBAction: enableValidation,
  3201. //VB:          "Enable entry field validation."
  3202. //VBAttribute: defaultStyle,
  3203. //VB:           "Default window style",
  3204. //VB:           defaultStyle,01 style CPushButton::Style.,
  3205. //VB:           setDefaultStyle,01 style CPushButton::Style.
  3206. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3207. //VBAttribute: style,
  3208. //VB:            "For settings",
  3209. //VB:            getStyle,01 style CPushButton::Style.
  3210. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3211. //VBPreferredFeatures: self, label, disable, enable, enabled, enableFocus, press
  3212. //VBEndPartInfo: CPushButton
  3213. //
  3214. //
  3215. //VBBeginPartInfo: CGraphicPushButton, "COBOL Graphic Push Button control"
  3216. //VBParent: CPushButton
  3217. //VBPartDataFile: 'vaccess.vcb'
  3218. //VBComposerInfo: visual, 15028, iwzbvr20, primitive, iwzbvi20
  3219. //VBVdeType: v
  3220. //VBConstraints: noEdit noAdd
  3221. //VBSettingsPages: VDEGraphicPushButtonAttributesPage, VDEControlViewAttributesPage,
  3222. //VB:                   VDEGraphicPushButtonStylesAttributesPage,
  3223. //VB:                   VDESizePositionAttributesPage
  3224. //VBFlagInfo: Style, defaultStyle(), CWindow, CButtonControl, CPushButton
  3225. //
  3226. //VBGeneratorClass: CBLPushButtonCodeGenerator
  3227. //
  3228. //VBFlagAttribute: Style, 8 0, sizeToGraphic, off
  3229. //
  3230. //VBConstructor: CGraphicPushButton,
  3231. //VB:  01 id Integer.
  3232. //VB:  01 parent CWindow.
  3233. //VB:  01 owner CWindow.
  3234. //VB:  01 resourceId CBitmapHandle.
  3235. //VB:  01 rect CRectangle.
  3236. //VB:  01 style Integer VALUE x"80000000".
  3237. //
  3238. //VBAttribute: resourceId,
  3239. //VB:          "Settings attribute to support bitmap attribute.",
  3240. //VB:          getResourceId,01 ResourceId CResourceId.,
  3241. //VB:          setGraphic,01 ResourceId CResourceId.
  3242. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3243. //
  3244. //VBAttribute: fileName,
  3245. //VB:          "Returns or sets the file to be associated with the part.",
  3246. //VB:          getFileName,01 FileName VarLengthString.,
  3247. //VB:          setFileName,01 FileName VarLengthString.
  3248. //VBAttribute: backColor,
  3249. //VB:          "The backColor feature is not supported."
  3250. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3251. //VBAttribute: backMix,
  3252. //VB:          "The backMix feature is not supported."
  3253. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3254. //VBAttribute: fontBold,
  3255. //VB:          "The fontBold feature is not supported."
  3256. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3257. //VBAttribute: enableFontBold,
  3258. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3259. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3260. //VBAttribute: fontItalics,
  3261. //VB:          "The fontItalics feature is not supported."
  3262. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3263. //VBAttribute: enableFontItalics,
  3264. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3265. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3266. //VBAttribute: fontName,
  3267. //VB:          "The fontName feature is not supported."
  3268. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3269. //VBAttribute: fontSize,
  3270. //VB:          "The fontSize feature is not supported."
  3271. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3272. //VBAttribute: fontStrikeout,
  3273. //VB:          "The fontStrikeout feature is not supported."
  3274. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3275. //VBAttribute: enableFontStrikeout,
  3276. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3277. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3278. //VBAttribute: fontUnderline,
  3279. //VB:          "The fontUnderline feature is not supported."
  3280. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3281. //VBAttribute: enableFontUnderline,
  3282. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3283. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3284. //VBAttribute: fontEvent,
  3285. //VB:          "This Event is not supported.  Need to use VBAttribue to disable connection"
  3286. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3287. //VBAttribute: foreColor,
  3288. //VB:          "The foreColor feature is not supported."
  3289. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3290. //VBAttribute: foreMix,
  3291. //VB:          "The foreMix feature is not supported."
  3292. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3293. //VBAttribute: label,
  3294. //VB:          "The label feature is not supported."
  3295. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3296. //VBAttribute: defaultStyle,
  3297. //VB:           "Default window style",
  3298. //VB:           defaultStyle,01 style CGraphicPushButton::Style.,
  3299. //VB:           setDefaultStyle,01 style CGraphicPushButton::Style.
  3300. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3301. //VBAttribute: style,
  3302. //VB:            "For settings",
  3303. //VB:            getStyle,01 style CGraphicPushButton::Style.
  3304. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3305. //VBPreferredFeatures: self, fileName, disable, enable, enabled, enableFocus, press
  3306. //VBEndPartInfo: CGraphicPushButton
  3307. //
  3308. //
  3309. //VBBeginPartInfo: CRadioButton, "COBOL Radio Button control"
  3310. //VBParent: CSettingButton
  3311. //VBPartDataFile: 'vaccess.vcb'
  3312. //VBComposerInfo: visual, 15035, iwzbvr20, primitive, iwzbvi20
  3313. //VBVdeType: v
  3314. //VBConstraints: noEdit noAdd
  3315. //VBSettingsPages: VDERadioButtonAttributesPage, VDEControlViewAttributesPage,
  3316. //VB:                   VDERadioButtonStylesAttributesPage,
  3317. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  3318. //VB:                   AvlFontAttributesPage
  3319. //VBFlagInfo: Style, defaultStyle(), CWindow, CButtonControl
  3320. //VBComposerTextSetting: label, UsePartName
  3321. //
  3322. //VBFlagAttribute: Style, 14 0, noCursorSelect, on, VIEWABLE
  3323. //VBFlagAttribute: Style, 0 5, autoSelect, on
  3324. //
  3325. //VBEvent: enter,
  3326. //VB:          "Enter key is pressed on a part or is double-clicked.",
  3327. //VB:          EnterId
  3328. //
  3329. //VBAttribute: defaultStyle,
  3330. //VB:           "Default window style",
  3331. //VB:           defaultStyle,01 style CRadioButton::Style.,
  3332. //VB:           setDefaultStyle,01 style CRadioButton::Style.
  3333. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3334. //VBAttribute: style,
  3335. //VB:            "For settings",
  3336. //VB:            getStyle,01 style CRadioButton::Style.
  3337. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3338. //VBPreferredFeatures: self, label, checked, enableCheck, disable, enable, enabled, enableFocus, selectEvent
  3339. //VBEndPartInfo: CRadioButton
  3340. //
  3341. //
  3342. //VBBeginPartInfo: CSlider, "COBOL Slider control"
  3343. //VBParent: CRangeControl
  3344. //VBPartDataFile: 'vaccess.vcb'
  3345. //VBComposerInfo: visual, 318, iwzbvr20, primitive, iwzbvi20
  3346. //VBVdeType: v
  3347. //VBConstraints: noEdit noAdd
  3348. //VBSettingsPages: VDEProgressIndicatorViewAttributesPage,
  3349. //VB:                   VDEControlViewAttributesPage, VDESliderStylesAttributesPage,
  3350. //VB:                   VDEGenericColorAttributesPage,
  3351. //VB:                   VDESizePositionAttributesPage, AvlFontAttributesPage
  3352. //VBFlagInfo: Style, defaultStyle(), CWindow, CRangeControl
  3353. //
  3354. //VBFlagAttribute: Style, 2 0, alignBottom, off, VIEWABLE, alignCentered alignTop
  3355. //VBFlagAttribute: Style, 0 2, alignCentered, on, VIEWABLE, alignBottom alignTop
  3356. //VBFlagAttribute: Style, 3 0, alignTop, off, VIEWABLE, alignBottom alignCentered
  3357. //VBFlagAttribute: Style, 6 0, buttonsTop, off, VIEWABLE, buttonsBottom
  3358. //VBFlagAttribute: Style, 5 0, buttonsBottom, on, VIEWABLE, buttonsTop
  3359. //VBFlagAttribute: Style, 0 1, horizontal, on, VIEWABLE, vertical
  3360. //VBFlagAttribute: Style, 1 0, vertical, off, VIEWABLE, horizontal
  3361. //VBFlagAttribute: Style, 0 4, primaryScale1, on, VIEWABLE, primaryScale2
  3362. //VBFlagAttribute: Style, 11 0, primaryScale2, off, VIEWABLE, primaryScale1
  3363. //VBFlagAttribute: Style, 4 0, snapToTickMark, off, VIEWABLE
  3364. //VBFlagAttribute: Style, 9 0, ribbonStrip, off, VIEWABLE
  3365. // not used VBFlagAttribute: Style, 7 0, handleDrawItem, off, VIEWABLE
  3366. //
  3367. //VBFlagAttribute: Gen, 0 3, homeBottom, on
  3368. //VBFlagAttribute: Gen, 10 0, homeTop, off
  3369. //
  3370. //VBConstructor: CSlider,
  3371. //VB:  01 id Integer.
  3372. //VB:  01 parent CWindow.
  3373. //VB:  01 owner CWindow.
  3374. //VB:  01 rect CRectangle.
  3375. //VB:  01 style Integer VALUE x"80000010".
  3376. //
  3377. //VBAttribute: initialContents,
  3378. //VB:          "Settings attribute to define initial contents.",
  3379. //VB:          getInitialContents,01 InitialContents VarLengthString.,
  3380. //VB:          setInitialContents,01 InitialContents VarLengthString.
  3381. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3382. //VBAttribute: numberOfTicks,
  3383. //VB:          "Returns the number of ticks for the specified scale.",
  3384. //VB:          getNumberOfTicks,01 NumberOfTicks Integer VALUE 50.,
  3385. //VB:          setNumberOfTicks,01 NumberOfTicks Integer VALUE 50.
  3386. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3387. //VBAttribute: tickSpacing,
  3388. //VB:          "Returns the number of pixels between ticks for the specified scale.",
  3389. //VB:          getTickSpacing,01 TickSpacing Integer VALUE 4.,
  3390. //VB:          setTickSpacing,01 TickSpacing Integer VALUE 4.
  3391. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3392. //VBAttribute: maxValue,
  3393. //VB:          "Returns the initial max value for slider.",
  3394. //VB:          getMaxValue,01 MaxValue Integer VALUE 10.,
  3395. //VB:          setMaxValue,01 MaxValue Integer VALUE 10.
  3396. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3397. //VBAttribute: minValue,
  3398. //VB:          "Returns the initial min value for slider.",
  3399. //VB:          getMinValue,01 MinValue Integer VALUE 0.,
  3400. //VB:          setMinValue,01 MinValue Integer VALUE 0.
  3401. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3402. //VBAttribute: labelTick,
  3403. //VB:          "Returns or sets a string to a tick mark on the slider part.",
  3404. //VB:          getLabelTick,01 TickLabel VarLengthString.,
  3405. //VB:          setLabelTick,01 TickLabel VarLengthString.
  3406. //VB:          ,,, VIEWABLE
  3407. //VBAttribute: tickNumber,
  3408. //VB:          "Returns or sets at which slider tick the next TickLabel will be placed.",
  3409. //VB:          getTickNumber,01 TickNumber Integer.,
  3410. //VB:          setTickNumber,01 TickNumber Integer.
  3411. //VBAttribute: defaultStyle,
  3412. //VB:           "Default window style",
  3413. //VB:           defaultStyle,01 style CSlider::Style.,
  3414. //VB:           setDefaultStyle,01 style CSlider::Style.
  3415. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3416. //VBAttribute: style,
  3417. //VB:            "For settings",
  3418. //VB:            getStyle,01 style CSlider::Style.
  3419. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3420. //VBAttribute: alignment,
  3421. //VB:          "Returns or sets slider to left/right/center.",
  3422. //VB:          getAlignment,01 Align CSlider::Alignment VALUE 2.,
  3423. //VB:          setAlignment,01 Align CSlider::Alignment VALUE 2.
  3424. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3425. //VBAttribute: homePosition,
  3426. //VB:          "Returns or sets slider arm to bottom/left or top/right.",
  3427. //VB:          getHomePosition,01 HomePosition CSlider::HomePosition VALUE 1.,
  3428. //VB:          setHomePosition,01 HomePosition CSlider::HomePosition VALUE 1.
  3429. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3430. //VBAttribute: orientation,
  3431. //VB:          "Returns or sets slider orientation to horizontal or vertical.",
  3432. //VB:          getOrientation,01 Orientation CSlider::Orientation VALUE 1.,
  3433. //VB:          setOrientation,01 Orientation CSlider::Orientation VALUE 1.
  3434. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3435. //VBPreferredFeatures: self, disable, enable, enabled, enableFocus, value
  3436. //VBEndPartInfo: CSlider
  3437. //
  3438. //
  3439. //VBBeginPartInfo: CNumericSpinButton, "COBOL SpinButton control with numeric contents"
  3440. //VBParent: CBaseSpinButton
  3441. //VBGeneratorClass: CBLNumericSpinButtonCodeGenerator
  3442. //VBPartDataFile: 'vaccess.vcb'
  3443. //VBComposerInfo: visual, 15004, iwzbvr20, 'AvlNumericSpinButtonView', iwzbvi20
  3444. //VBVdeType: v
  3445. //VBConstraints: noEdit noAdd
  3446. //VBSettingsPages: VDENumericSpinButtonAttributesPage, VDEControlViewAttributesPage,
  3447. //VB:                   VDENumericSpinButtonStylesAttributesPage,
  3448. //VB:                   VDEForeColorAttributesPage, VDESizePositionAttributesPage,
  3449. //VB:                   AvlFontAttributesPage
  3450. //VBFlagInfo: Style, defaultStyle(), CWindow, CRangeControl, CBaseSpinButton
  3451. //
  3452. //VBFlagAttribute: Style, 8 0, padWithZeros, off, VIEWABLE
  3453. //
  3454. //VBAttribute: maxValue,
  3455. //VB:          "Returns the initial max value for slider.",
  3456. //VB:          getMaxValue,01 MaxValue Integer VALUE 1.,
  3457. //VB:          setMaxValue,01 MaxValue Integer VALUE 1.
  3458. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3459. //VBAttribute: minValue,
  3460. //VB:          "Returns the initial min value for slider.",
  3461. //VB:          getMinValue,01 MinValue Integer VALUE 0.,
  3462. //VB:          setMinValue,01 MinValue Integer VALUE 0.
  3463. //VB:          ,,, NOCONNECT NOCOBOLAPI VIEWABLE
  3464. //VBAttribute: defaultStyle,
  3465. //VB:           "Default window style",
  3466. //VB:           defaultStyle,01 style CNumericSpinButton::Style.,
  3467. //VB:           setDefaultStyle,01 style CNumericSpinButton::Style.
  3468. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3469. //VBAttribute: style,
  3470. //VB:            "For settings",
  3471. //VB:            getStyle,01 style CNumericSpinButton::Style.
  3472. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3473. //VBPreferredFeatures: self, disable, enable, enabled, enableFocus, value
  3474. //VBEndPartInfo: CNumericSpinButton
  3475. //
  3476. //
  3477. //VBBeginPartInfo: CTextSpinButton, "COBOL Spin Button control with text contents"
  3478. //VBParent: CBaseSpinButton
  3479. //VBGeneratorClass: CBLTextSpinButtonCodeGenerator
  3480. //VBPartDataFile: 'vaccess.vcb'
  3481. //VBComposerInfo: visual, 15005, iwzbvr20, 'AvlTextSpinButtonView', iwzbvi20
  3482. //VBVdeType: v
  3483. //VBConstraints: noEdit noAdd
  3484. //VBSettingsPages: VDEBaseSpinButtonAttributesPage, VDEControlViewAttributesPage,
  3485. //VB:                   VDETextSpinButtonStylesAttributesPage,
  3486. //VB:                   VDEForeColorAttributesPage, VDESizePositionAttributesPage,
  3487. //VB:                   AvlFontAttributesPage
  3488. //VBFlagInfo: Style, defaultStyle(), CWindow, CRangeControl, CBaseSpinButton
  3489. //
  3490. //VBAction: addItemEnd,
  3491. //VB:          "Adds a new item to the end of the list.",
  3492. //VB:          01 Item VarLengthString.
  3493. //VBAction: removeAll,
  3494. //VB:          "Removes all items from the spin button."
  3495. //VBAttribute: contents,
  3496. //VB:          "Returns or sets the contents for an entry field portions of a part.",
  3497. //VB:          getContents,01 Contents VarLengthString.,
  3498. //VB:          setContents,01 Contents VarLengthString.
  3499. //VB:          ,ChangeId,, VIEWABLE
  3500. //VBAttribute: maximum,
  3501. //VB:          "The maximum feature is not supported."
  3502. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3503. //VBAttribute: minimum,
  3504. //VB:          "The minimum feature is not supported."
  3505. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3506. //VBAttribute: value,
  3507. //VB:          "The value feature is not supported."
  3508. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3509. //VBAttribute: defaultStyle,
  3510. //VB:           "Default window style",
  3511. //VB:           defaultStyle,01 style CTextSpinButton::Style.,
  3512. //VB:           setDefaultStyle,01 style CTextSpinButton::Style.
  3513. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3514. //VBAttribute: style,
  3515. //VB:            "For settings",
  3516. //VB:            getStyle,01 style CTextSpinButton::Style.
  3517. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3518. //VBPreferredFeatures: self, addItemEnd, contents, disable, enable, enabled, enableFocus
  3519. //VBEndPartInfo: CTextSpinButton
  3520. //
  3521. //
  3522. //VBBeginPartInfo: CStaticText, "COBOL Text Static Text control"
  3523. //VBParent: CDragControl
  3524. //VBPartDataFile: 'vaccess.vcb'
  3525. //VBComposerInfo: visual, 307, iwzbvr20, primitive, iwzbvi20
  3526. //VBVdeType: v
  3527. //VBConstraints: noEdit noAdd
  3528. //VBSettingsPages: VDEStaticTextViewAttributesPage,
  3529. //VB:                   VDEStaticTextStylesAttributesPage, VDEDisplayTypePage,
  3530. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  3531. //VB:                   AvlFontAttributesPage
  3532. //VBComposerTextSetting: label, UsePartName
  3533. //VBFlagInfo: Style, defaultStyle(), CWindow
  3534. //
  3535. //VBFlagAttribute: Style, 14 0, mnemonic, off, VIEWABLE
  3536. //VBFlagAttribute: Style, 16 0, fillBackground, on
  3537. //VBFlagAttribute: Style, 13 0, halftone, off
  3538. //VBFlagAttribute: Style, 0 4, strikeout, off, VIEWABLE
  3539. //VBFlagAttribute: Style, 0 3, underscore, off, VIEWABLE
  3540. //
  3541. //VBFlagAttribute: Gen, 12 0, bottom, off
  3542. //VBFlagAttribute: Gen, 9 0, center, off
  3543. //VBFlagAttribute: Gen, 0 1, left , on
  3544. //VBFlagAttribute: Gen, 10 0, right, off
  3545. //VBFlagAttribute: Gen, 0 2, top, on
  3546. //VBFlagAttribute: Gen, 11 0, vertCenter, off
  3547. //VBFlagAttribute: Gen, 15 0, wordBreak, off
  3548. //
  3549. //VBEvent: click,
  3550. //VB:          "User presses and releases mouse button.",
  3551. //VB:          ClickId,
  3552. //VB:          getClick,01 MouseInfo MouseData.
  3553. //VBEvent: dblClick,
  3554. //VB:          "User presses and releases mouse button twice quickly.",
  3555. //VB:          DblClickId,
  3556. //VB:          getDblClick,01 MouseInfo MouseData.
  3557. //VBEvent: mouseDown,
  3558. //VB:          "User presses the mouse button.",
  3559. //VB:          MouseDownId,
  3560. //VB:          getMouseDown,01 MouseInfo MouseData.
  3561. //VBEvent: mouseUp,
  3562. //VB:          "User releases the mouse button.",
  3563. //VB:          MouseUpId,
  3564. //VB:          getMouseUp,01 MouseInfo MouseData.
  3565. //VBEvent: popUp,
  3566. //VB:          "Right mouse button is pressed over part.",
  3567. //VB:          PopUpId,
  3568. //VB:          getPopUp,01 PopUpInfo PopUpData.
  3569. //
  3570. //VBAttribute: asNumeric,
  3571. //VB:          "Returns or sets the text string (asNumeric) that is associated with a part.",
  3572. //VB:          getAsNumeric,01 FloatContents Float.,
  3573. //VB:          setLabel,01 NumContents VarLengthString.
  3574. //VB:          ,textId,, VIEWABLE INLINE
  3575. //VBAttribute: asAlphanumeric,
  3576. //VB:          "Returns or sets the text string (asAlphanumeric) that is associated with a part.",
  3577. //VB:          getLabel,01 AlphaContents VarLengthString.,
  3578. //VB:          setLabel,01 AlphaContents VarLengthString.
  3579. //VB:          ,textId,, VIEWABLE INLINE
  3580. //VBAttribute: asNumericType,
  3581. //VB:          "Returns or sets the display type for asNumeric.",
  3582. //VB:          getAsNumericType,01 NumContents VarLengthString.,
  3583. //VB:          setAsNumericType,01 NumContents VarLengthString.
  3584. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3585. //VBAttribute: asAlphanumericType,
  3586. //VB:          "Returns or sets the display type for asAlphanumeric.",
  3587. //VB:          getAsAlphanumericType,01 AlphaContents VarLengthString.,
  3588. //VB:          setAsAlphanumericType,01 AlphaContents VarLengthString.
  3589. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3590. //VBAttribute: charType,
  3591. //VB:          "Returns the current type of character that this static text accepts.",
  3592. //VB:          getCharType,01 CharType Integer VALUE 1.,
  3593. //VB:          setCharType,01 CharType Integer.
  3594. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3595. //VBAttribute: limit,
  3596. //VB:          "Returns the length of the longest text the entry field can hold.",
  3597. //VB:          getLimit,01 Limit Integer VALUE 255.,
  3598. //VB:          setLimit,01 Limit Integer.
  3599. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3600. //VBAttribute: decimalPlaces,
  3601. //VB:          "Returns the number of decimal places the entry field can have.",
  3602. //VB:          getDecimalPlaces,01 DecimalPlaces Integer VALUE 0.,
  3603. //VB:          setDecimalPlaces,01 DecimalPlaces Integer.
  3604. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3605. //VBAttribute: alignment,
  3606. //VB:          "Returns or sets text or label in a part to left/right/center.",
  3607. //VB:          getAlignment,01 Align Alignment VALUE 1.,
  3608. //VB:          setAlignment,01 Align Alignment VALUE 1.
  3609. //VB:          ,,, VIEWABLE
  3610. //VBAttribute: alignmentSettings,
  3611. //VB:          "Returns or sets text or label in a part to left/right/center.",
  3612. //VB:          getAlignmentSettings,01 Align CStaticText::Alignment VALUE 0.,
  3613. //VB:          setAlignmentSettings,01 Align CStaticText::Alignment VALUE 0.
  3614. //VB:          ,,, VIEWABLE NOCONNECT NOCOBOLAPI
  3615. //VBAttribute: enabled,
  3616. //VB:          "The enabled feature is not supported."
  3617. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3618. //VBAttribute: enable,
  3619. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3620. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3621. //VBAttribute: disable,
  3622. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3623. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3624. //VBAttribute: focus,
  3625. //VB:          "The focus feature is not supported."
  3626. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3627. //VBAttribute: enableFocus,
  3628. //VB:          "This Action is not supported.  Need to use VBAttribue to disable connection"
  3629. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3630. //VBAttribute: defaultStyle,
  3631. //VB:          "Returns the default style.",
  3632. //VB:          defaultStyle,01 defaultStyle CStaticText::Style.,
  3633. //VB:          setDefaultStyle,01 defaultStyle CStaticText::Style&.
  3634. //VB:          ,,,NOCONNECT NOCOBOLAPI
  3635. //VBAttribute: style,
  3636. //VB:            "For settings",
  3637. //VB:            getStyle,01 style CStaticText::Style.
  3638. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3639. //VBPreferredFeatures: self, asAlphanumeric, asNumeric, label
  3640. //VBEndPartInfo: CStaticText
  3641. //
  3642. //
  3643. //VBBeginPartInfo: CNumericStaticText, "COBOL Numeric Static Text control"
  3644. //VBParent: CStaticText
  3645. //VBPartDataFile: 'vaccess.vcb'
  3646. //VBComposerInfo: visual, 9001, iwzbvr20, primitive, iwzbvi20
  3647. //VBVdeType: v
  3648. //VBConstraints: noEdit noAdd
  3649. //VBSettingsPages: VDENumericStaticTextViewAttributesPage,
  3650. //VB:                   VDEStaticTextStylesAttributesPage,
  3651. //VB:                   VDEGenericColorAttributesPage, VDESizePositionAttributesPage,
  3652. //VB:                   AvlFontAttributesPage
  3653. //VBComposerTextSetting: label, UsePartName
  3654. //VBFlagInfo: Style, defaultStyle(), CWindow, CStaticText
  3655. //
  3656. //VBAttribute: limit,
  3657. //VB:          "Returns the length of the longest text the entry field can hold.",
  3658. //VB:          getLimit,01 Limit Integer VALUE 18.,
  3659. //VB:          setLimit,01 Limit Integer.
  3660. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3661. //VBAttribute: integerPart,
  3662. //VB:          "Returns the number of integer places before the decimal.",
  3663. //VB:          getIntegerPart,01 IntegerPart Integer VALUE 18.,
  3664. //VB:          setIntegerPart,01 IntegerPart Integer.
  3665. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3666. //VBAttribute: numericValue,
  3667. //VB:          "Returns or sets the numeric packed value for an entry field portion of a part.",
  3668. //VB:          getNumericValue,01 NumFieldRet PackedNum.,
  3669. //VB:          setNumericValue,01 NumField PackedNum.
  3670. //VB:          ,ChangeId,, VIEWABLE INLINE
  3671. //VBAttribute: asNumeric,
  3672. //VB:          "The asAlphanumeric feature is not supported."
  3673. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3674. //VBAttribute: asAlphanumeric,
  3675. //VB:          "The asAlphanumeric feature is not supported."
  3676. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3677. //VBPreferredFeatures: self, label, numericValue
  3678. //VBEndPartInfo: CNumericStaticText
  3679. //
  3680. //
  3681. //VBBeginPartInfo: CTimer, "COBOL Timer control"
  3682. //VBParent: CVisualPart
  3683. //VBPartDataFile: 'vaccess.vcb'
  3684. //VBComposerInfo: nonvisual, 9004, iwzbvr20
  3685. //VBVdeType: v
  3686. //VBSettingsPages: VDETimerAttributesPage
  3687. //VBConstraints: noEdit noAdd
  3688. //
  3689. //VBEvent: tick,
  3690. //VB:          "Timer interval value has elapsed.",
  3691. //VB:          TickId
  3692. //
  3693. //VBAttribute: interval,
  3694. //VB:          "Returns or sets the interval value expressed in milliseconds for a timer part.",
  3695. //VB:          getInterval,01 Interval Integer VALUE 100.,
  3696. //VB:          setInterval,01 Interval Integer.
  3697. //VBAction: setMultiplier,
  3698. //VB:          "Sets the number of timer interval values that must elapse before the timer causes a Tick event.",
  3699. //VB:          01 NumberOfIntervals Integer.
  3700. //VBAction: setTimerMode,
  3701. //VB:          "Sets the current operating mode for a timer part.",
  3702. //VB:          01 TimerValue TimerMode.
  3703. //VBAttribute: timerTicks,
  3704. //VB:          "Returns or sets the current tick value of a timer.",
  3705. //VB:          getTimerTicks,01 NumberOfTicks Integer.,
  3706. //VB:          setTimerTicks,01 NumberOfTicks Integer.
  3707. //VBAttribute: multiplierSettings,
  3708. //VB:          "Returns or sets the number of timer intervals.",
  3709. //VB:          getMultiplierSettings,01 Multiplier Integer VALUE 1.,
  3710. //VB:          setMultiplierSettings,01 Multiplier Integer.
  3711. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3712. //VBAttribute: menu,
  3713. //VB:          "The menu feature is not supported."
  3714. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3715. //VBAttribute: popUpMenu,
  3716. //VB:          "The menu feature is not supported."
  3717. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3718. //VBPreferredFeatures: self, interval, tick, setTimerMode
  3719. //VBEndPartInfo: CTimer
  3720. //
  3721. //
  3722. //VBBeginPartInfo: SOMObject, "COBOL base class"
  3723. //VBPartDataFile: 'vaccess.vcb'
  3724. //VBComposerInfo: class, 204, iwzbvr20, abstract
  3725. //VBVdeType: v
  3726. //VBConstraints: noEdit noAdd
  3727. //VBEndPartInfo: SOMObject
  3728. //
  3729. //VBBeginPartInfo: CStandardNotifier, "COBOL base class for nonvisual parts"
  3730. //VBParent: SOMObject
  3731. //VBPartDataFile: 'vaccess.vcb'
  3732. //VBComposerInfo: nonvisual, 204, iwzbvr20
  3733. //VBVdeType: v
  3734. //VBConstraints: noEdit noAdd
  3735. //VBEndPartInfo: CStandardNotifier
  3736. //
  3737. //VBBeginPartInfo: CNotificationEvent, "COBOL event notification class"
  3738. //VBParent: SOMObject
  3739. //VBPartDataFile: 'vaccess.vcb'
  3740. //VBComposerInfo: nonvisual, 204, iwzbvr20
  3741. //VBVdeType: v
  3742. //VBConstraints: noBaseClass noEdit noShow noAdd
  3743. //
  3744. //VBAction: initializeNotificationEvent,
  3745. //VB:          "Initialize event",
  3746. //VB:          01 id pointer.
  3747. //VB:          01 originator CNotifier.
  3748. //VBAttribute: NotificationId,
  3749. //VB:          "Event id",
  3750. //VB:          getNotificationId,01 id Pointer.
  3751. //VBAttribute: Notifier,
  3752. //VB:          "Originator of event",
  3753. //VB:          getNotifier,01 notifier CNotifier.
  3754. //VBEndPartInfo:  CNotificationEvent
  3755. //
  3756. //
  3757. //VBBeginPartInfo: CSubMenu, "COBOL SubMenu control"
  3758. //VBParent: CVisualPart
  3759. //VBPartDataFile: 'vaccess.vcb'
  3760. //VBComposerInfo: visual, 202, iwzbvr20, primitive, iwzbvi20
  3761. //VBVdeType: v
  3762. //VBConstraints: noBaseClass noEdit noShow noAdd
  3763. //
  3764. //VBConstructor: CSubMenu,
  3765. //VB:  01 submenuHandle CWindowHandle.
  3766. //
  3767. //VBPreferredFeatures: self
  3768. //VBEndPartInfo: CSubMenu
  3769. //
  3770. //
  3771. //VBBeginPartInfo: CMenuBar, "COBOL MenuBar control"
  3772. //VBParent: CWindow
  3773. //VBPartDataFile: 'vaccess.vcb'
  3774. //VBComposerInfo: visual, 309, iwzbvr20, abstract, iwzbvi20
  3775. //VBVdeType: v
  3776. //VBFlagInfo: Style, defaultStyle(), CWindow
  3777. //VBGeneratorClass: CBLMenuBarCodeGenerator
  3778. //VBConstraints: noBaseClass noEdit noShow noAdd
  3779. //
  3780. //VBFlagAttribute: Gen, 0 1, empty, on
  3781. // not used VBFlagAttribute: Gen, 0 2, wrapper, off
  3782. //
  3783. //VBConstructor: CMenuBar,
  3784. //VB:  01 id Integer.
  3785. //VB:  01 owner CFrameWindow.
  3786. //
  3787. //VBAttribute: defaultStyle,
  3788. //VB:           "Default window style",
  3789. //VB:           defaultStyle,01 style CMenuBar::Style.,
  3790. //VB:           setDefaultStyle,01 style CMenuBar::Style.
  3791. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3792. //VBAttribute: style,
  3793. //VB:            "For settings",
  3794. //VB:            getStyle,01 style CMenuBar::Style.
  3795. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3796. //VBPreferredFeatures: self
  3797. //VBEndPartInfo: CMenuBar
  3798. //
  3799. //
  3800. //VBBeginPartInfo: CPopUpMenu, "COBOL PopUp Menu control"
  3801. //VBParent: CVisualPart
  3802. //VBPartDataFile: 'vaccess.vcb'
  3803. //VBComposerInfo: visual, 202, iwzbvr20, abstract, iwzbvi20
  3804. //VBVdeType: v
  3805. //VBGeneratorClass: CBLPopupMenuCodeGenerator
  3806. //VBConstraints: noBaseClass noEdit noShow noAdd
  3807. //
  3808. //VBConstructor: CPopUpMenu,
  3809. //VB:  01 owner CWindow.
  3810. //VB:  01 id Integer.
  3811. //VB:  01 style Integer VALUE x"00000000".
  3812. //
  3813. //VBAttribute: visible,
  3814. //VB:          "Queries or sets if the part is visible or not.",
  3815. //VB:          isVisible,01 VisibleFlag Boolean VALUE 0.,
  3816. //VB:          setVisible,01 VisibleFlag Boolean VALUE 0.
  3817. //VB:          ,,, VIEWABLE
  3818. //VBAction: show,
  3819. //VB:          "Make the object visible."
  3820. //VBAction: hide,
  3821. //VB:          "Make the object invisible."
  3822. //VBPreferredFeatures: self, show
  3823. //VBEndPartInfo: CPopUpMenu
  3824. //
  3825. //
  3826. //VBBeginPartInfo: CMenu, "COBOL Menu control"
  3827. //VBParent: CVisualPart
  3828. //VBPartDataFile: 'vaccess.vcb'
  3829. //VBComposerInfo: visual, 15016, iwzbvr20, 'AvlMenu', iwzbvi20
  3830. //VBVdeType: v
  3831. //VBConstraints: noDefCtor noEdit noAdd
  3832. //VBSettingsPages: VDEPartnameAttributesPage,
  3833. //VB:                   VDEMenuStylesAttributesPage, VDEGenericColorAttributesPage,
  3834. //VB:                   AvlFontAttributesPage
  3835. //VBFlagInfo: Style, defaultStyle()
  3836. //
  3837. //VBFlagAttribute: Style, 3 0, verticalFlip, off, VIEWABLE
  3838. //
  3839. //VBFlagAttribute: Style, 30 0, clipChildren, off, VIEWABLE
  3840. //VBFlagAttribute: Style, 29 0, clipSiblings, off, VIEWABLE
  3841. //VBFlagAttribute: Style, 28 0, clipToParent, off, VIEWABLE
  3842. //VBFlagAttribute: Style, 27 0, saveBits, off
  3843. //VBFlagAttribute: Style, 26 0, synchPaint, off
  3844. //VBFlagAttribute: Style, 32 0, visible, on
  3845. //
  3846. //VBFlagAttribute: Gen, 0 1, empty, on
  3847. // not used VBFlagAttribute: Gen, 0 2, wrapper, off
  3848. //
  3849. //VBGeneratorClass: CBLMenuCodeGenerator
  3850. //
  3851. //VBAttribute: defaultStyle,
  3852. //VB:          "Returns the default style.",
  3853. //VB:          defaultStyle,01 defaultStyle Style.,
  3854. //VB:          setDefaultStyle,01 defaultStyle Style&.,,,
  3855. //VB:          NOCONNECT NOSETTING NOCOBOLAPI
  3856. //VBAttribute: style,
  3857. //VB:            "For settings",
  3858. //VB:            getStyle,01 style CMenu::Style.
  3859. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3860. //VBAttribute: visible,
  3861. //VB:          "Queries or sets if the part is visible or not.",
  3862. //VB:          isVisible,01 VisibleFlag Boolean VALUE 0.,
  3863. //VB:          setVisible,01 VisibleFlag Boolean VALUE 0.
  3864. //VB:          ,,, VIEWABLE
  3865. //VBAction: show,
  3866. //VB:          "Make the object visible."
  3867. //VBAction: hide,
  3868. //VB:          "Make the object invisible."
  3869. //VBAttribute: menu,
  3870. //VB:          "The menu feature is not supported."
  3871. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3872. //VBAttribute: popUpMenu,
  3873. //VB:          "The menu feature is not supported."
  3874. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3875. //VBPreferredFeatures: self, show, this
  3876. //VBEndPartInfo: CMenu
  3877. //
  3878. //
  3879. //VBBeginPartInfo: CMenuCascade, "COBOL Cascade Menu Item"
  3880. //VBParent: CVisualPart
  3881. //VBPartDataFile: 'vaccess.vcb'
  3882. //VBComposerInfo: visual, 15018, iwzbvr20, 'AvlMenuItemCascade', iwzbvi20
  3883. //VBVdeType: v
  3884. //VBConstraints: noEdit noAdd
  3885. //VBGeneratorClass: CBLMenuCascadeCodeGenerator
  3886. //VBSettingsPages: VDEMenuItemAttributesPage, VDEControlViewAttributesPage,
  3887. //VB:                   VDEMenuItemStylesAttributesPage
  3888. //VBFlagInfo: Style
  3889. //VBFlagInfo: Attribute
  3890. //
  3891. //VBFlagAttribute: Style, 10 0, buttonSeparator, off, VIEWABLE, split splitWithSeparator
  3892. //VBFlagAttribute: Style, 11 0, split, off, VIEWABLE, buttonSeparator splitWithSeparator
  3893. //VBFlagAttribute: Style, 12 0, splitWithSeparator, off, VIEWABLE, buttonSeparator split
  3894. //VBFlagAttribute: Style, 9 0, unavailable, off, VIEWABLE
  3895. //
  3896. // not used VBFlagAttribute: Gen, 4 0, drawItem, off
  3897. //VBFlagAttribute: Gen, 3 0, separator, off
  3898. // not used VBFlagAttribute: Gen, 7 0, postSystemCommand, off
  3899. // not used VBFlagAttribute: Gen, 8 0, postHelp, off
  3900. //
  3901. //VBFlagAttribute: Attribute, 14 0, checkedAtt, off
  3902. //VBFlagAttribute: Attribute, 15 0, disabledAtt, off
  3903. //VBFlagAttribute: Attribute, 13 0, framedAtt, off
  3904. //VBFlagAttribute: Attribute, 16 0, highlightedAtt, off
  3905. //VBFlagAttribute: Attribute, 6 0, noDismissAtt, off
  3906. //
  3907. //VBEvent: menuSelect,
  3908. //VB:          "Menu item has been selected.",
  3909. //VB:          MenuSelectId
  3910. //
  3911. //VBAttribute: commandKey,
  3912. //VB:          "Returns the current Command Key that this pushbutton will accept.",
  3913. //VB:          getCommandKey,01 CommandKey CommandKeyList VALUE 1.,
  3914. //VB:          setCommandKey,01 CommandKey CommandKeyList.
  3915. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3916. //VBAttribute: checkedAtt,
  3917. //VB:          "Attribute - Places a check mark to the left of the menu item.",
  3918. //VB:          getCheckedAtt,01 checkedAtt Boolean VALUE 0.,
  3919. //VB:          setCheckedAtt,01 checkedAtt Boolean.
  3920. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3921. //VBAttribute: disabledAtt,
  3922. //VB:          "Attribute - Makes the menu item unselectable.",
  3923. //VB:          getDisabledAtt,01 disabledAtt Boolean VALUE 0.,
  3924. //VB:          setDisabledAtt,01 disabledAtt Boolean.
  3925. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3926. //VBAttribute: framedAtt,
  3927. //VB:          "Attribute - Places a frame around the menu item.",
  3928. //VB:          getFramedAtt,01 framedAtt Boolean VALUE 0.,
  3929. //VB:          setFramedAtt,01 framedAtt Boolean.
  3930. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3931. //VBAttribute: highlightedAtt,
  3932. //VB:          "Attribute - Highlights the the menu item.",
  3933. //VB:          getHighlightedAtt,01 highlightedAtt Boolean VALUE 0.,
  3934. //VB:          setHighlightedAtt,01 highlightedAtt Boolean.
  3935. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3936. //VBAttribute: noDismissAtt,
  3937. //VB:          "Attribute - Keeps the menu item visible after selection.",
  3938. //VB:          getNoDismissAtt,01 noDismissAtt Boolean VALUE 0.,
  3939. //VB:          setNoDismissAtt,01 noDismissAtt Boolean.
  3940. //VB:          ,,, NOCONNECT NOCOBOLAPI
  3941. //VBAttribute: checked,
  3942. //VB:          "Returns or sets if the part is checked.",
  3943. //VB:          isChecked,01 CheckedFlag Boolean VALUE 0.,
  3944. //VB:          setCheck,01 CheckedFlag Boolean VALUE 0.
  3945. //VB:          ,,, VIEWABLE
  3946. //VBAction: enableCheck,
  3947. //VB:          "Enable check state of an object."
  3948. //VBAttribute: label,
  3949. //VB:          "Returns or sets the text string that is associated with a part.",
  3950. //VB:          getLabel,01 Contents VarLengthString.,
  3951. //VB:          setLabel,01 Contents VarLengthString.
  3952. //VB:          ,,, VIEWABLE
  3953. //VBAttribute: enabled,
  3954. //VB:          "Returns or sets if the part can respond to user interface events.",
  3955. //VB:          isEnabled,01 EnableFlag Boolean VALUE 1.,
  3956. //VB:          setEnable,01 EnableFlag Boolean VALUE 0.
  3957. //VB:          ,,, VIEWABLE
  3958. //VBAction: enable,
  3959. //VB:          "Enable the object to respond to user interface events."
  3960. //VBAction: disable,
  3961. //VB:          "Disable the object from responding to user interface events."
  3962. //VBAttribute: popUpMenu,
  3963. //VB:          "The menu feature is not supported."
  3964. //VB:          ,,,,,,, NOSETTING NOCONNECT
  3965. //VBAttribute: defaultStyle,
  3966. //VB:           "Default window style",
  3967. //VB:           defaultStyle,01 style CMenuItem::Style.,
  3968. //VB:           setDefaultStyle,01 style CMenuItem::Style.
  3969. //VB:            ,,,NOCONNECT NOCOBOLAPI
  3970. //VBAttribute: style,
  3971. //VB:            "For settings",
  3972. //VB:            getStyle,01 style CMenuItem::Style.
  3973. //VB:            ,,,,,NOCONNECT NOCOBOLAPI
  3974. //VBAttribute: text,
  3975. //VB:            "For composition editor",
  3976. //VB:            getText,01 text VarLengthString.,
  3977. //VB:            setText,01 text varLengthString.,
  3978. //VB:            ,,NOCONNECT NOCOBOLAPI
  3979. //VBPreferredFeatures: self, checked, label, menu, menuSelect
  3980. //VBEndPartInfo: CMenuCascade
  3981. //
  3982. //
  3983. //VBBeginPartInfo: CMenuItem, "COBOL MenuItem control"
  3984. //VBParent: CMenuCascade
  3985. //VBPartDataFile: 'vaccess.vcb'
  3986. //VBComposerInfo: visual, 15017, iwzbvr20, 'AvlMenuItem', iwzbvi20
  3987. //VBVdeType: v
  3988. //VBConstraints: noEdit noAdd
  3989. //VBSettingsPages: VDEMenuItemAttributesPage, VDEControlViewAttributesPage,
  3990. //VB:                   VDEMenuItemStylesAttributesPage
  3991. //VBFlagInfo: Style
  3992. //VBFlagInfo: Attribute
  3993. //
  3994. //VBFlagAttribute: Style, 10 0, buttonSeparator, off, VIEWABLE, split splitWithSeparator
  3995. //VBFlagAttribute: Style, 11 0, split, off, VIEWABLE, buttonSeparator splitWithSeparator
  3996. //VBFlagAttribute: Style, 12 0, splitWithSeparator, off, VIEWABLE, buttonSeparator split
  3997. //VBFlagAttribute: Style, 9 0, unavailable, off, VIEWABLE
  3998. //
  3999. // not used VBFlagAttribute: Gen, 4 0, drawItem, off
  4000. //VBFlagAttribute: Gen, 3 0, separator, off
  4001. // not used VBFlagAttribute: Gen, 7 0, postSystemCommand, off
  4002. // not used VBFlagAttribute: Gen, 8 0, postHelp, off
  4003. //
  4004. //VBFlagAttribute: Attribute, 14 0, checkedAtt, off
  4005. //VBFlagAttribute: Attribute, 15 0, disabledAtt, off
  4006. //VBFlagAttribute: Attribute, 13 0, framedAtt, off
  4007. //VBFlagAttribute: Attribute, 16 0, highlightedAtt, off
  4008. //VBFlagAttribute: Attribute, 6 0, noDismissAtt, off
  4009. //
  4010. //VBGeneratorClass: CBLMenuItemCodeGenerator
  4011. //
  4012. //VBConstructor: CMenuItem,
  4013. //VB:  01 id Integer.
  4014. //VB:  01 style Integer VALUE x"00000000".
  4015. //VB:  01 attribute Integer VALUE x"00000000".
  4016. //
  4017. //VBAttribute: menu,
  4018. //VB:          "The menu feature is not supported."
  4019. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4020. //VBPreferredFeatures: self, checked, label, menuSelect
  4021. //VBEndPartInfo: CMenuItem
  4022. //
  4023. //
  4024. //VBBeginPartInfo: CMenuSeparator, "COBOL Separator Menu Item"
  4025. //VBParent: CMenuCascade
  4026. //VBPartDataFile: 'vaccess.vcb'
  4027. //VBComposerInfo: visual, 15019, iwzbvr20, 'AvlMenuSeparator', iwzbvi20
  4028. //VBVdeType: v
  4029. //VBConstraints: noDefCtor noEdit noAdd
  4030. //VBGeneratorClass: CBLMenuSeparatorCodeGenerator
  4031. //VBSettingsPages: VDEPartnameAttributesPage
  4032. //VBFlagInfo: Style
  4033. //
  4034. //VBFlagAttribute: Gen, 3 0, separator, on
  4035. //
  4036. //VBAttribute: menuSelect,
  4037. //VB:          "The menuSelect feature is not supported."
  4038. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4039. //VBAttribute: checked,
  4040. //VB:          "The checked feature is not supported."
  4041. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4042. //VBAttribute: enableCheck,
  4043. //VB:          "The enableCheck feature is not supported."
  4044. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4045. //VBAttribute: label,
  4046. //VB:          "The label feature is not supported."
  4047. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4048. //VBAttribute: enabled,
  4049. //VB:          "The enabled feature is not supported."
  4050. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4051. //VBAttribute: enable,
  4052. //VB:          "The enable feature is not supported."
  4053. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4054. //VBAttribute: disable,
  4055. //VB:          "The disable feature is not supported."
  4056. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4057. //VBAttribute: menu,
  4058. //VB:          "The menu feature is not supported."
  4059. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4060. //VBAttribute: text,
  4061. //VB:          "This feature is not supported."
  4062. //VB:           ,,,,,,, NOSETTING NOCONNECT
  4063. //VBPreferredFeatures: self
  4064. //VBEndPartInfo: CMenuSeparator
  4065. //
  4066. //
  4067. //VBBeginPartInfo: CHelpWindow, "COBOL window for online help"
  4068. //VBParent: CVisualPart
  4069. //VBPartDataFile: 'vaccess.vcb'
  4070. //VBComposerInfo: nonvisual, 15033, iwzbvr20
  4071. //VBVdeType: v
  4072. //VBConstraints: noEdit noAdd
  4073. //
  4074. //VBSettingsPages: VDEHelpWindow1AttributesPage
  4075. //VBGeneratorClass: CBLHelpWindowCodeGenerator
  4076. //VBAttribute: partName,
  4077. //VB:          "Returns the name of the part.",
  4078. //VB:          getPartName,01 PartName VarLengthString.
  4079. //VB:          ,,,,, NOCONNECT
  4080. //VBAttribute: libraries,
  4081. //VB:          "Adds a library or list of libraries to those already used by the Information Presentation...get is bogus",
  4082. //VB:          getLibraries,01 Library VarLengthString.,
  4083. //VB:          addLibraries,01 Library VarLengthString.
  4084. //VB:          ,,, NOCONNECT
  4085. //VBAttribute: helpWindow,
  4086. //VB:          "Sets the help window part name to be converted to the helpId...get is bogus",
  4087. //VB:          getHelpWindow,01 HelpWindow VarLengthString.,
  4088. //VB:          setHelpWindow,01 HelpWindow VarLengthString.
  4089. //VB:          ,,, NOCONNECT
  4090. //VBAttribute: helpId,
  4091. //VB:          "Sets the Help Id...The getHelpId is bogus so we can hide connection...get is bogus",
  4092. //VB:          getHelpId,01 HelpId Integer.,
  4093. //VB:          setHelpId,01 HelpId Integer.
  4094. //VB:          ,,, NOCONNECT
  4095. //VBAttribute: associatedWindow,
  4096. //VB:          "Associates an application frame window with the help window...get is bogus.",
  4097. //VB:          getAssociatedWindow,01 AssocWindow CFrameWindow.,
  4098. //VB:          setAssociatedWindow,01 AssocWindow CFrameWindow.
  4099. //VB:          ,,, NOCONNECT
  4100. //VBAttribute: title,
  4101. //VB:          "Returns or sets the title bar text for the help window...get is bogus",
  4102. //VB:          getTitle,01 Title VarLengthString.,
  4103. //VB:          setTitle,01 Title VarLengthString.
  4104. //VB:          ,,, NOCONNECT
  4105. //VBAttribute: ipfCompatible,
  4106. //VB:          "Returns or sets if the HELP should be IPF compatible.",
  4107. //VB:          getIpfCompatible,01 IpfComp Boolean VALUE 1.,
  4108. //VB:          setIpfCompatible,01 IpfComp Boolean.
  4109. //VB:          ,,, NOCONNECT
  4110. //VBAttribute: showPanelIds,
  4111. //VB:          "Returns or sets if the HELP should add the identifier for a help panel to its title bar text.",
  4112. //VB:          getShowPanelIds,01 ShowPanelId Boolean VALUE 0.,
  4113. //VB:          setShowPanelIds,01 ShowPanelId Boolean.
  4114. //VB:          ,,, NOCONNECT
  4115. //VBAttribute: menu,
  4116. //VB:          "The menu feature is not supported."
  4117. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4118. //VBAttribute: popUpMenu,
  4119. //VB:          "The menu feature is not supported."
  4120. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4121. //VBAttribute: parentName,
  4122. //VB:          "This feature is not supported."
  4123. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4124. //VBAttribute: partType,
  4125. //VB:          "This feature is not supported."
  4126. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4127. //VBAttribute: userData,
  4128. //VB:          "This feature is not supported."
  4129. //VB:          ,,,,,,, NOSETTING NOCONNECT
  4130. //VBPreferredFeatures: self
  4131. //VBEndPartInfo: CHelpWindow
  4132. //
  4133. //
  4134. //VBBeginPartInfo: R1Runtime
  4135. //VBPartDataFile: 'vaccess.vcb'
  4136. //VBConstraints: noBaseClass noEdit noShow noAdd
  4137. //VBComposerInfo: nonvisual
  4138. //VBAttribute: R1-PopUp,,
  4139. //VB:          getPopUp,01 R1-PopUp PopUpData.,
  4140. //VB:          setPopUp,01 R1-PopUp PopUpData.
  4141. //VBAttribute: R1-Complete,,
  4142. //VB:          getComplete,01 R1-Complete Boolean.,
  4143. //VB:          setComplete,01 R1-Complete Boolean.
  4144. //VBAttribute: R1-Drop,,
  4145. //VB:          getDrop,01 R1-Drop VarLengthString.,
  4146. //VB:          setDrop,01 R1-Drop VarLengthString.
  4147. //VBAttribute: R1-KeyPress,,
  4148. //VB:          getKeyPress,01 R1-KeyPress KeyPress.,
  4149. //VB:          setKeyPress,01 R1-KeyPress KeyPress.
  4150. //VBAttribute: R1-Click,,
  4151. //VB:          getClick,01 R1-Click MouseData.,
  4152. //VB:          setClick,01 R1-Click MouseData.
  4153. //VBAttribute: R1-DblClick,,
  4154. //VB:          getDblClick,01 R1-DblClick MouseData.,
  4155. //VB:          setDblClick,01 R1-DblClick MouseData.
  4156. //VBAttribute: R1-MouseDown,,
  4157. //VB:          getMouseDown,01 R1-MouseDown MouseData.,
  4158. //VB:          setMouseDown,01 R1-MouseDown MouseData.
  4159. //VBAttribute: R1-MouseMove,,
  4160. //VB:          getMouseMove,01 R1-MouseMove MouseData.,
  4161. //VB:          setMouseMove,01 R1-MouseMove MouseData.
  4162. //VBAttribute: R1-MouseUp,,
  4163. //VB:          getMouseUp,01 R1-MouseUp MouseData.,
  4164. //VB:          setMouseUp,01 R1-MouseUp MouseData.
  4165. //VBAttribute: R1-Resize,,
  4166. //VB:          getResize,01 R1-Resize Resize.,
  4167. //VB:          setResize,01 R1-Resize Resize.
  4168. //VBAttribute: R1-PageSelect,,
  4169. //VB:          getPageSelect,01 R1-PageSelect Integer.,
  4170. //VB:          setPageSelect,01 R1-PageSelect Integer.
  4171. //VBAttribute: R1-VKeyPress,,
  4172. //VB:          getVKeyPress,01 R1-VKeyPress VKeyPress.,
  4173. //VB:          setVKeyPress,01 R1-VKeyPress VKeyPress.
  4174. //VBAttribute: R1-Execute,,
  4175. //VB:          getExecuteAck,01 R1-Execute Execute.,
  4176. //VB:          setExecuteAck,01 R1-Execute Execute.
  4177. //VBAttribute: R1-Poke,,
  4178. //VB:          getPokeAck,01 R1-Poke Poke.,
  4179. //VB:          setPokeAck,01 R1-Poke Poke.
  4180. //VBAttribute: R1-Data,,
  4181. //VB:          getData,01 R1-Data Data.,
  4182. //VB:          setData,01 R1-Data Data.
  4183. //VBPreferredFeatures: self
  4184. //VBEndPartInfo: R1Runtime
  4185. //
  4186. //
  4187. //VBBeginPartInfo: CFactory, "COBOL VB Factory Events"
  4188. //VBParent: CStandardNotifier
  4189. //VBPartDataFile: 'vaccess.vcb'
  4190. //VBComposerInfo: nonvisual, 313, iwzbvr20, abstract, ''
  4191. //VBVdeType: v
  4192. //VBConstraints: noBaseClass noEdit noShow noAdd
  4193. //    rdm defer:   noDefCtor
  4194. //
  4195. //VBEvent: newEvent, "New object has been created",
  4196. //VB:      newObjectId,
  4197. //VB:      getNewObject,01 newObject VBNewType.
  4198. //
  4199. //VBAction: new, "Create a new object",
  4200. //VB:      ,01 newObject VBNewType.
  4201. //VBPreferredFeatures: new, newEvent
  4202. //VBEndPartInfo: CFactory
  4203. //
  4204. //
  4205. //VBBeginPartInfo: CFactoryEvent, "COBOL VB Factory"
  4206. //VBParent: CEvent
  4207. //VBPartDataFile: 'vaccess.vcb'
  4208. //VBComposerInfo: nonvisual, 313, iwzbvr20, abstract, ''
  4209. //VBVdeType: v
  4210. //VBConstraints: noBaseClass noEdit noShow noAdd noDefCtor
  4211. //VBEndPartInfo: CFactoryEvent
  4212. //
  4213. //
  4214. //VBBeginPartInfo: CVariablePart, "COBOL wrapper for part"
  4215. //VBParent: CStandardNotifier
  4216. //VBConstraints: noBaseClass noEdit noShow noAdd noDefCtor
  4217. //VBPartDataFile: 'vaccess.vcb'
  4218. //VBComposerInfo: nonvisual, 204, iwzbvr20, abstract
  4219. //VBVdeType: v
  4220. //VBEndPartInfo: CVariablePart
  4221. //
  4222. //
  4223. //VBBeginPartInfo: CVariableClass, "COBOL wrapper for data instance"
  4224. //VBParent: CStandardNotifier
  4225. //VBConstraints: noBaseClass noEdit noShow noAdd noDefCtor
  4226. //VBPartDataFile: 'vaccess.vcb'
  4227. //VBComposerInfo: nonvisual, 204, iwzbvr20, abstract
  4228. //VBVdeType: v
  4229. //VBGeneratorClass: AvlVariablePartCodeGenerator
  4230. //
  4231. //VBAttribute: this, "Get the variable",
  4232. //VB:          getAnObject,01 anObject Element.,
  4233. //VB:          setAnObject,01 anObject Element.,
  4234. //VB:          anObjectId
  4235. //VBAction: somFree, "Delete the target object.",
  4236. //VBPreferredFeatures: this
  4237. //VBEndPartInfo: CVariableClass
  4238. //
  4239. //
  4240. //VBBeginPartInfo: CVariablePartPointer, "Not used in COBOL"
  4241. //VBConstraints: noBaseClass noEdit noShow noAdd noDefCtor
  4242. //VBPartDataFile: 'vaccess.vcb'
  4243. //VBComposerInfo: nonvisual
  4244. //VBVdeType: v
  4245. //VBGeneratorClass: AvlVariablePartCodeGenerator
  4246. //VBAttribute: this, "Get the variable",
  4247. //VB:          getAnObject,01 anObject Element.,
  4248. //VB:          setAnObject,01 anObject Element.,
  4249. //VB:          anObjectId
  4250. //VBAction: somFree, "Delete the target object.",
  4251. //VBPreferredFeatures: this
  4252. //VBEndPartInfo: CVariablePartPointer
  4253. //
  4254. //VBBeginPartInfo: CVariableClassPointer, "Not used in COBOL"
  4255. //VBConstraints: noBaseClass noEdit noShow noAdd noDefCtor
  4256. //VBPartDataFile: 'vaccess.vcb'
  4257. //VBComposerInfo: nonvisual
  4258. //VBVdeType: v
  4259. //VBAttribute: this, "Get the variable",
  4260. //VB:          getAnObject,01 anObject Element.,
  4261. //VB:          setAnObject,01 anObject Element.,
  4262. //VB:          anObjectId
  4263. //VBEndPartInfo: CVariableClassPointer
  4264. //
  4265. //
  4266. //VBBeginPartInfo: CMessageBox, "COBOL message dialog window"
  4267. //VBParent: IVBase
  4268. //VBPartDataFile: 'vaccess.vcb'
  4269. //VBComposerInfo: class, 10529, iwzbvr20
  4270. //VBVdeType: v
  4271. //VBConstraints: noEdit noAdd
  4272. //
  4273. //VBSettingsPages: VDEMessageBoxAttributesPage
  4274. //VBGeneratorClass: CBLOwnerCodeGenerator
  4275. //
  4276. //VBConstructor: CMessageBox,
  4277. //VB:  01 owner CWindow*.
  4278. //
  4279. //VBAttribute: msgOwner,
  4280. //VB:          "Setting attribute to support owner.",
  4281. //VB:          getMsgOwner,01 MsgOwner CFrameWindow.,
  4282. //VB:          setMsgOwner,01 MsgOwner CFrameWindow.
  4283. //VB:          ,,, NOCONNECT
  4284. //VBAttribute: msgTitle,
  4285. //VB:          "Setting attribute to support title.",
  4286. //VB:          getMsgTitle,01 MsgTitle VarLengthString.,
  4287. //VB:          setMsgTitle,01 MsgTitle VarLengthString.
  4288. //VB:          ,,, NOCONNECT NOCOBOLAPI
  4289. //VBAction: setMessageTitle,
  4290. //VB:          "Set the message box title.",
  4291. //VB:          01 MessageTitle VarLengthString.
  4292. //VBAction: showMessage,
  4293. //VB:          "Display a message box.",
  4294. //VB:          01 MsgText VarLengthString.
  4295. //VB:          01 MsgSeverityIcon CMessageBox::SevIcon VALUE 2.
  4296. //VB:          01 MsgButtons CMessageBox::Buttons VALUE 1.
  4297. //VB:          01 MsgDefaultButton CMessageBox::DefaultButton VALUE 1.
  4298. //VB:          01 MsgModality CMessageBox::Modality VALUE 1.
  4299. //VB:          01 MsgMoveable Boolean VALUE 0.
  4300. //VB:          01 MsgHelpId Integer VALUE 0.,
  4301. //VB:          01 MsgResponse MsgButtonReturned.
  4302. //
  4303. //VBPreferredFeatures: setMessageTitle, showMessage
  4304. //VBEndPartInfo: CMessageBox
  4305. //VBBeginEnumeration: CMessageBox::SevIcon,"Message box severity icon",
  4306. //VB: 01  SevIcon      PIC 9(9) COMP-5.
  4307. //VB:      88  SevIcon-None             VALUE 1.
  4308. //VB:      88  SevIcon-Information      VALUE 2.
  4309. //VB:      88  SevIcon-Query            VALUE 3.
  4310. //VB:      88  SevIcon-Warning          VALUE 4.
  4311. //VB:      88  SevIcon-Error            VALUE 5.
  4312. //VBPartDataFile: 'vaccess.vcb'
  4313. //VBEndEnumeration: CMessageBox::SevIcon
  4314. //
  4315. //VBBeginEnumeration: CMessageBox::Buttons,"Message box buttons",
  4316. //VB: 01  Buttons      PIC 9(9) COMP-5.
  4317. //VB:      88  Buttons-Ok               VALUE 1.
  4318. //VB:      88  Buttons-OkCancel         VALUE 2.
  4319. //VB:      88  Buttons-Cancel           VALUE 3.
  4320. //VB:      88  Buttons-Enter            VALUE 4.
  4321. //VB:      88  Buttons-EnterCancel      VALUE 5.
  4322. //VB:      88  Buttons-RetryCancel      VALUE 6.
  4323. //VB:      88  Buttons-AbortRetryIgnore VALUE 7.
  4324. //VB:      88  Buttons-YesNo            VALUE 8.
  4325. //VB:      88  Buttons-YesNoCancel      VALUE 9.
  4326. //VBPartDataFile: 'vaccess.vcb'
  4327. //VBEndEnumeration: CMessageBox::Buttons
  4328. //
  4329. //VBBeginEnumeration: CMessageBox::DefaultButton,"Message box default button",
  4330. //VB: 01  DefaultButton      PIC 9(9) COMP-5.
  4331. //VB:      88  DefaultButton-Button1      VALUE 1.
  4332. //VB:      88  DefaultButton-Button2      VALUE 2.
  4333. //VB:      88  DefaultButton-Button3      VALUE 3.
  4334. //VBPartDataFile: 'vaccess.vcb'
  4335. //VBEndEnumeration: CMessageBox::DefaultButton
  4336. //
  4337. //VBBeginEnumeration: CMessageBox::Modality,"Message box modality",
  4338. //VB: 01  Modality      PIC 9(9) COMP-5.
  4339. //VB:      88  Modality-Application       VALUE 1.
  4340. //VB:      88  Modality-System            VALUE 2.
  4341. //VBPartDataFile: 'vaccess.vcb'
  4342. //VBEndEnumeration: CMessageBox::Modality
  4343. //
  4344.