70140e5aed
* contrib/hbct/tests/ctwtest.prg
* contrib/hbcups/tests/test.prg
* contrib/hbfbird/tests/stress.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/doc/en/aredit.txt
* contrib/hbnf/menu1.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbpgsql/tests/async.prg
* contrib/hbpgsql/tests/cache.prg
* contrib/hbpgsql/tests/stress.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbtip/tests/tiptest.prg
* contrib/xhb/tests/compress.prg
* doc/en/sayget.txt
* src/rtl/profiler.prg
* tests/ac_test.prg
* tests/boxtst2.prg
* tests/fortest.prg
* tests/menutest.prg
* tests/mt/mttest11.prg
* tests/parseini.prg
* tests/speedold.prg
* tests/tstchbx.prg
* tests/usrrdd/exarr.prg
* tests/videotst.prg
* tests/vidtest.prg
* formatting
! deleted SetMode()s
* CLEAR SCREEN -> CLS
* other minor cleanups
86 lines
1.9 KiB
Plaintext
86 lines
1.9 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
// Copyright 2000 Alejandro de Garate <alex_degarate@hotmail.com>
|
||
|
||
// Test SETMODE() for Harbour
|
||
|
||
#define HB_NOT_SUPPORTED "Video mode not supported on this system.."
|
||
#define HB_VROW 1
|
||
#define HB_VCOL 2
|
||
#define HB_PROMPT 3
|
||
|
||
PROCEDURE Main()
|
||
|
||
LOCAL nMode := 1, nRow, lSuccess
|
||
LOCAL aVModes := { ;
|
||
{ 12, 40, " 12 x 40 " }, ;
|
||
{ 25, 40, " 25 x 40 " }, ;
|
||
{ 28, 40, " 28 x 40 " }, ;
|
||
{ 50, 40, " 50 x 40 " }, ;
|
||
{ 12, 80, " 12 x 80 " }, ;
|
||
{ 25, 80, " 25 x 80 " }, ;
|
||
{ 28, 80, " 28 x 80 " }, ;
|
||
{ 43, 80, " 43 x 80 " }, ;
|
||
{ 50, 80, " 50 x 80 " }, ;
|
||
{ 60, 80, " 60 x 80 " } }
|
||
|
||
DO WHILE nMode != 0
|
||
|
||
CLS
|
||
@ 0, 0 SAY "Select the video mode you want to test.."
|
||
|
||
FOR nRow := 1 TO 5
|
||
@ 2 + nRow, 10 PROMPT aVModes[ nRow ][ HB_PROMPT ]
|
||
NEXT
|
||
|
||
FOR nRow := 6 TO 10
|
||
@ 2 + nRow - 5, 25 PROMPT aVModes[ nRow ][ HB_PROMPT ]
|
||
NEXT
|
||
MENU TO nMode
|
||
|
||
IF nMode > 0
|
||
lSuccess := SetMode( aVModes[ nMode ][ HB_VROW ], aVModes[ nMode ][ HB_VCOL ] )
|
||
|
||
IF lSuccess == .T.
|
||
TESTBOX( aVModes[ nMode ][ HB_PROMPT ] )
|
||
ELSE
|
||
@ MaxRow(), 0 SAY HB_NOT_SUPPORTED
|
||
Inkey( 0 )
|
||
ENDIF
|
||
ENDIF
|
||
|
||
ENDDO
|
||
|
||
QUIT
|
||
|
||
RETURN
|
||
|
||
//*************************
|
||
|
||
PROCEDURE TESTBOX( cMode )
|
||
|
||
//***************************************************************************
|
||
// Simple testing screen..
|
||
//***************************************************************************
|
||
LOCAL nRow
|
||
|
||
CLS
|
||
@ 0, 0 TO MaxRow(), MaxCol() DOUBLE
|
||
@ 0, 3 SAY cMode
|
||
@ MaxRow(), 3 SAY " Press a key "
|
||
|
||
@ 8, 0 SAY Replicate( " ", 20 )
|
||
@ 9, 0 SAY Replicate( "0123456789", 20 )
|
||
|
||
FOR nRow := 0 TO MaxRow()
|
||
@ nRow, 18 SAY Str( nRow, 2 )
|
||
NEXT
|
||
|
||
@ 4, 2 SAY "MaxRow() = " + Str( MaxRow(), 3 )
|
||
@ 5, 2 SAY "MaxCol() = " + Str( MaxCol(), 3 )
|
||
Inkey( 0 )
|
||
|
||
RETURN
|