home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / clipper / sg202.arj / FUNCS.CH next >
Encoding:
Text File  |  1991-08-18  |  1.0 KB  |  30 lines
  1. #define Panel( lHelp )     cDefCol := SETCOLOR( 'w+/n' );;
  2.             __BOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓' );;
  3.             DEVPOS( MAXROW(), 0 );;
  4.          IF( lHelp == .T., DEVOUT( PADL( 'F10 - SAVE, ESC Abort', 80 ) ),;
  5.             Nil ); SETCOLOR( cDefCol )
  6.  
  7.  
  8. #define BoxShad( nTR, nTC, nBR, nBC, cClrs );
  9.             cDefCol:=SETCOLOR( cClrs );;
  10.             RESTSCREEN( nTR+1,nTC+2,nBR+1,nBC+2,;
  11.             TRANSFORM( SAVESCREEN( nTR+1,nTC+2,nBR+1,nBC+2 ),;
  12.             REPLICATE( 'X', ( nBR-nTR+1 ) * ( nBC-nTC+1 ) ) ) );;
  13.             __BoxD( nTR, nTC, nBR, nBC );;
  14.             __ATClear( nTR+1, nTC+1, nBR-1, nBC-1 );;
  15.             SETCOLOR( cDefCol )
  16.  
  17. #define SaveFullScreen()    cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
  18.  
  19. #define RestFullScreen()    RESTSCREEN( 0, 0, 24, 79, cFullScreen )
  20.  
  21. #define WaitKey( lCont );
  22.         INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
  23.         DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
  24.         INKEY( 60 )
  25.  
  26. #define Range( xVar, xExpr1, xExpr2 );
  27.         ( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
  28.         xVar <= MAX( xExpr1, xExpr2 ) )
  29.  
  30. #define Beep()    Tone(300,3)