home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
CLIPPER
/
SG202
/
FUNCS.CH
next >
Wrap
Text File
|
1991-08-18
|
1KB
|
30 lines
#define Panel( lHelp ) cDefCol := SETCOLOR( 'w+/n' );;
__BOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓' );;
DEVPOS( MAXROW(), 0 );;
IF( lHelp == .T., DEVOUT( PADL( 'F10 - SAVE, ESC Abort', 80 ) ),;
Nil ); SETCOLOR( cDefCol )
#define BoxShad( nTR, nTC, nBR, nBC, cClrs );
cDefCol:=SETCOLOR( cClrs );;
RESTSCREEN( nTR+1,nTC+2,nBR+1,nBC+2,;
TRANSFORM( SAVESCREEN( nTR+1,nTC+2,nBR+1,nBC+2 ),;
REPLICATE( 'X', ( nBR-nTR+1 ) * ( nBC-nTC+1 ) ) ) );;
__BoxD( nTR, nTC, nBR, nBC );;
__ATClear( nTR+1, nTC+1, nBR-1, nBC-1 );;
SETCOLOR( cDefCol )
#define SaveFullScreen() cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
#define RestFullScreen() RESTSCREEN( 0, 0, 24, 79, cFullScreen )
#define WaitKey( lCont );
INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
INKEY( 60 )
#define Range( xVar, xExpr1, xExpr2 );
( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
xVar <= MAX( xExpr1, xExpr2 ) )
#define Beep() Tone(300,3)