home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VACTWIN.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  5.2 KB  |  273 lines
  1. {
  2.  ════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix Win/User Interface "Actions Window" Unit (VACTWIN)
  5.  Copyright 1991,92,93 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8.  ────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  ────────  ────────  ────────────────────────────────────────────────────────
  14.  
  15.  lpg       03/15/93  Added Source Documentation
  16.  
  17.  mep       02/11/93  Cleaned up code for beta release
  18.  
  19.  jrt       02/08/93  Sync with beta 0.12 release
  20.  
  21.  jrt       12/07/92  Sync with beta 0.11 release
  22.  
  23.  jrt       11/21/92  Sync with beta 0.08
  24.  
  25.  jrt       09/01/92  First logged revision.
  26.  
  27.  ════════════════════════════════════════════════════════════════════════════
  28. }
  29.  
  30. {-
  31.  
  32. [TEXT]
  33.  
  34.   This unit displays a window of action buttons on the screen and lets
  35. the user use the buttons as "actions" that can be performed on a
  36. programs objects.
  37.  
  38. -}
  39.  
  40. Unit VActWin;
  41.  
  42.  
  43. Uses
  44.  
  45.   VTypes,
  46.   VGen,
  47.   VIn,
  48.   VWinlow,
  49.   VWinhigh;
  50.  
  51. {────────────────────────────────────────────────────────────────────────────}
  52.  
  53. Const
  54.  
  55.   awp_left      = 1;
  56.   awp_right     = 2;
  57.   awp_top       = 3;
  58.   awp_bottom    = 4;
  59.  
  60. Type
  61.  
  62.   PActWin = ^TActWin;
  63.  
  64.   TActWin = RECORD
  65.  
  66.     Name           : ST80;
  67.     Flags          : WORD;
  68.  
  69.     X1,y1,x2,y2    : INTEGER;
  70.  
  71.     BFore          : BYTE;
  72.     BBack          : BYTE;
  73.     BAFore         : BYTE;
  74.     BABack         : BYTE;
  75.  
  76.     BStartX        : BYTE;
  77.     BStartY        : BYTE;
  78.     BXSpacing      : BYTE;
  79.     BYSpacing      : BYTE;
  80.  
  81.     NumButtons     : BYTE;
  82.  
  83.     B              : Array[1..10] of TButton;
  84.     BKeys          : Array[1..10] of WORD;
  85.  
  86.     Next : PActWin;
  87.  
  88.   END;
  89.  
  90. {────────────────────────────────────────────────────────────────────────────}
  91.  
  92. Procedure WActWinPushNew(         Flags          : WORD;
  93.                                   Position       : BYTE;
  94.                                   WBFore         : BYTE;
  95.                                   WBBack         : BYTE;
  96.                                   WIFore         : BYTE;
  97.                                   WIBack         : BYTE;
  98.                                   BFore          : BYTE;
  99.                                   BBack          : BYTE;
  100.                                   BAFore         : BYTE;
  101.                                   BABack         : BYTE;
  102.                                   BSpacing       : BYTE;
  103.                                   Name           : ST80        );
  104.  
  105. Procedure WActWinAddButton(       BText          : ST80;
  106.                                   Ch0            : CHAR;
  107.                                   Ch1            : CHAR         );
  108.  
  109. Procedure WActWinShow;
  110.  
  111. Procedure WActWinRenew;
  112.  
  113. Procedure WActWinPopDispose;
  114.  
  115. {────────────────────────────────────────────────────────────────────────────}
  116.  
  117.  
  118. ──────────────────────────────────────────────────────────────────────────────
  119.  
  120.  
  121. [FUNCTION]
  122.  
  123. Procedure WActWinInDriver(        IDP            : PInDriverPacket );
  124.  
  125. [PARAMETERS]
  126.  
  127. IDP         ?
  128.  
  129. [RETURNS]
  130.  
  131. [DESCRIPTION]
  132.  
  133. [SEE-ALSO]
  134.  
  135. [EXAMPLE]
  136.  
  137.  
  138. ──────────────────────────────────────────────────────────────────────────────
  139.  
  140.  
  141. [FUNCTION]
  142.  
  143. Procedure WActWinPushNew(         Flags          : WORD;
  144.                                   Position       : BYTE;
  145.                                   WBFore         : BYTE;
  146.                                   WBBack         : BYTE;
  147.                                   WIFore         : BYTE;
  148.                                   WIBack         : BYTE;
  149.                                   BFore          : BYTE;
  150.                                   BBack          : BYTE;
  151.                                   BAFore         : BYTE;
  152.                                   BABack         : BYTE;
  153.                                   BSpacing       : BYTE;
  154.                                   Name           : ST80        );
  155.  
  156. [PARAMETERS]
  157.  
  158. Flags       ?
  159. Position    ?
  160. WBFore      ?
  161. WBBack      ?
  162. WIFore      ?
  163. WIBack      ?
  164. BFore       ?
  165. BBack       ?
  166. BAFore      ?
  167. BABack      ?
  168. BSpacing    ?
  169. Name        ?
  170.  
  171. [RETURNS]
  172.  
  173. (None)
  174.  
  175. [DESCRIPTION]
  176.  
  177. [SEE-ALSO]
  178.  
  179. [EXAMPLE]
  180.  
  181.  
  182. ──────────────────────────────────────────────────────────────────────────────
  183.  
  184.  
  185. [FUNCTION]
  186.  
  187. Procedure WActWinAddButton(       BText          : ST80;
  188.                                   Ch0            : CHAR;
  189.                                   Ch1            : CHAR         );
  190.  
  191. [PARAMETERS]
  192.  
  193. BText       ?
  194. Ch0         ?
  195. Ch1         ?
  196.  
  197. [RETURNS]
  198.  
  199. (None)
  200.  
  201. [DESCRIPTION]
  202.  
  203. [SEE-ALSO]
  204.  
  205. [EXAMPLE]
  206.  
  207.  
  208. ──────────────────────────────────────────────────────────────────────────────
  209.  
  210.  
  211. [FUNCTION]
  212.  
  213. Procedure WActWinShow;
  214.  
  215. [PARAMETERS]
  216.  
  217. (None)
  218.  
  219. [RETURNS]
  220.  
  221. (None)
  222.  
  223. [DESCRIPTION]
  224.  
  225. [SEE-ALSO]
  226.  
  227. [EXAMPLE]
  228.  
  229.  
  230. ──────────────────────────────────────────────────────────────────────────────
  231.  
  232.  
  233. [FUNCTION]
  234.  
  235. Procedure WActWinRenew;
  236.  
  237. [PARAMETERS]
  238.  
  239. (None)
  240.  
  241. [RETURNS]
  242.  
  243. (None)
  244.  
  245. [DESCRIPTION]
  246.  
  247. [SEE-ALSO]
  248.  
  249. [EXAMPLE]
  250.  
  251.  
  252. ──────────────────────────────────────────────────────────────────────────────
  253.  
  254.  
  255. [FUNCTION]
  256.  
  257. Procedure WActWinPopDispose;
  258.  
  259. [PARAMETERS]
  260.  
  261. (None)
  262.  
  263. [RETURNS]
  264.  
  265. (None)
  266.  
  267. [DESCRIPTION]
  268.  
  269. [SEE-ALSO]
  270.  
  271. [EXAMPLE]
  272.  
  273.