home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
vdl020d.zip
/
VACTWIN.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
5KB
|
273 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix Win/User Interface "Actions Window" Unit (VACTWIN)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ────────────────────────────────────────────────────────
lpg 03/15/93 Added Source Documentation
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
jrt 12/07/92 Sync with beta 0.11 release
jrt 11/21/92 Sync with beta 0.08
jrt 09/01/92 First logged revision.
════════════════════════════════════════════════════════════════════════════
}
{-
[TEXT]
This unit displays a window of action buttons on the screen and lets
the user use the buttons as "actions" that can be performed on a
programs objects.
-}
Unit VActWin;
Uses
VTypes,
VGen,
VIn,
VWinlow,
VWinhigh;
{────────────────────────────────────────────────────────────────────────────}
Const
awp_left = 1;
awp_right = 2;
awp_top = 3;
awp_bottom = 4;
Type
PActWin = ^TActWin;
TActWin = RECORD
Name : ST80;
Flags : WORD;
X1,y1,x2,y2 : INTEGER;
BFore : BYTE;
BBack : BYTE;
BAFore : BYTE;
BABack : BYTE;
BStartX : BYTE;
BStartY : BYTE;
BXSpacing : BYTE;
BYSpacing : BYTE;
NumButtons : BYTE;
B : Array[1..10] of TButton;
BKeys : Array[1..10] of WORD;
Next : PActWin;
END;
{────────────────────────────────────────────────────────────────────────────}
Procedure WActWinPushNew( Flags : WORD;
Position : BYTE;
WBFore : BYTE;
WBBack : BYTE;
WIFore : BYTE;
WIBack : BYTE;
BFore : BYTE;
BBack : BYTE;
BAFore : BYTE;
BABack : BYTE;
BSpacing : BYTE;
Name : ST80 );
Procedure WActWinAddButton( BText : ST80;
Ch0 : CHAR;
Ch1 : CHAR );
Procedure WActWinShow;
Procedure WActWinRenew;
Procedure WActWinPopDispose;
{────────────────────────────────────────────────────────────────────────────}
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinInDriver( IDP : PInDriverPacket );
[PARAMETERS]
IDP ?
[RETURNS]
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinPushNew( Flags : WORD;
Position : BYTE;
WBFore : BYTE;
WBBack : BYTE;
WIFore : BYTE;
WIBack : BYTE;
BFore : BYTE;
BBack : BYTE;
BAFore : BYTE;
BABack : BYTE;
BSpacing : BYTE;
Name : ST80 );
[PARAMETERS]
Flags ?
Position ?
WBFore ?
WBBack ?
WIFore ?
WIBack ?
BFore ?
BBack ?
BAFore ?
BABack ?
BSpacing ?
Name ?
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinAddButton( BText : ST80;
Ch0 : CHAR;
Ch1 : CHAR );
[PARAMETERS]
BText ?
Ch0 ?
Ch1 ?
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinShow;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinRenew;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure WActWinPopDispose;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]