3ed9fa0f45
* *
% remove brandings and homepage from copyright header. Pass 2 - semi-auto.
* project homepage and name is described in README, amongst others
; this should make the diff between 3.4 and 3.2 easier to manage
116 lines
3.3 KiB
Plaintext
116 lines
3.3 KiB
Plaintext
/*
|
|
* Clipper Tool III like window system test program
|
|
* Donated to the public domain on 2006-02-11 by Przemyslaw Czerpak
|
|
*/
|
|
|
|
#ifdef __HARBOUR__
|
|
#require "hbct"
|
|
#endif
|
|
|
|
#include "inkey.ch"
|
|
#include "setcurs.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aWin := Array( 9 ), y, x, i, k, lFlag := .F., lBoard := .T.
|
|
|
|
SetBlink( .F. )
|
|
WBoard( 5, 5, 20, 75 )
|
|
WMode( .T., .T., .T., .T. )
|
|
WSetShadow( 7 )
|
|
SetClearA( 10 * 16 + 14 )
|
|
SetClearB( 35 )
|
|
DispBox( 0, 0, MaxRow(), MaxCol(), Replicate( "#", 9 ), NToColor( 10 * 16 + 14 ) )
|
|
SetPos( 0, 0 )
|
|
? "GT driver: " + hb_gtVersion()
|
|
? hb_gtVersion( 1 )
|
|
?
|
|
? "ESC - quit "
|
|
? "0 - select window 0 (base screen) "
|
|
? "1-9 select window 1-9 "
|
|
? "C - close window "
|
|
? "Q - clear screen "
|
|
? "P - print text at window 0 "
|
|
? "B - board switch "
|
|
? "INS - cursor shape "
|
|
? "DEL - hide cursor "
|
|
? "arrows - window move "
|
|
|
|
SetClearB( 61 )
|
|
FOR i := 1 TO Len( aWin )
|
|
y := i + 2
|
|
x := i * 4 + 10
|
|
SetColor( NToColor( i * 16 + 15 ) + ",W+/B*" )
|
|
WSetShadow( i % 8 )
|
|
aWin[ i ] := WOpen( y, x, y + 10, x + 20 )
|
|
WBox()
|
|
|
|
@ -1, 0 SAY "TITLE " + hb_ntos( aWin[ i ] )
|
|
? hb_ntos( Row() ) + ":" + hb_ntos( Col() ), "/", hb_ntos( MaxRow() ) + ":" + hb_ntos( MaxCol() ), ""
|
|
? hb_ntos( WRow() ) + ":" + hb_ntos( WCol() ), "/", hb_ntos( MaxRow( .T. ) ) + ":" + hb_ntos( MaxCol( .T. ) ), ""
|
|
? hb_ntos( WFRow() ) + ":" + hb_ntos( WFCol() ), "/", ;
|
|
hb_ntos( WFLastRow() ) + ":" + hb_ntos( WFLastCol() ), ""
|
|
? hb_ntos( WFRow( .T. ) ) + ":" + hb_ntos( WFCol( .T. ) ), "/", ;
|
|
hb_ntos( WFLastRow( .T. ) ) + ":" + hb_ntos( WFLastCol( .T. ) ), ""
|
|
? "window:", hb_ntos( aWin[ i ] ), ""
|
|
SetCursor( Int( i % 5 ) )
|
|
|
|
NEXT
|
|
|
|
dspcord()
|
|
WHILE .T.
|
|
k := Inkey( 0, INKEY_ALL )
|
|
IF k == K_ESC
|
|
EXIT
|
|
ELSEIF k >= hb_keyCode( "1" ) .AND. k <= hb_keyCode( "9" )
|
|
WSelect( aWin[ k - hb_keyCode( "0" ) ] )
|
|
ELSEIF k == hb_keyCode( "0" )
|
|
WSelect( 0 )
|
|
ELSEIF k == hb_keyCode( "C" ) .OR. k == hb_keyCode( "c" )
|
|
WClose()
|
|
ELSEIF k == hb_keyCode( "Q" ) .OR. k == hb_keyCode( "q" )
|
|
CLS
|
|
ELSEIF k == hb_keyCode( "B" ) .OR. k == hb_keyCode( "b" )
|
|
IF lBoard
|
|
WBoard( 0, 0, MaxRow( .T. ) - 1, MaxCol( .T. ) )
|
|
ELSE
|
|
WBoard( 5, 5, 20, 75 )
|
|
ENDIF
|
|
lBoard := ! lBoard
|
|
ELSEIF k == hb_keyCode( "P" ) .OR. k == hb_keyCode( "P" )
|
|
y := WFRow()
|
|
x := WFCol()
|
|
i := WSelect()
|
|
WSelect( 0 )
|
|
@ y, x SAY "THIS IS WINDOW 0 OUTPUT"
|
|
WSelect( i )
|
|
ELSEIF k == K_INS
|
|
lFlag := ! lFlag
|
|
SetCursor( iif( lFlag, 3, 1 ) )
|
|
ELSEIF k == K_DEL
|
|
SetCursor( SC_NONE )
|
|
ELSEIF k == K_LEFT
|
|
WMove( WRow(), WCol() - 1 )
|
|
ELSEIF k == K_RIGHT
|
|
WMove( WRow(), WCol() + 1 )
|
|
ELSEIF k == K_UP
|
|
WMove( WRow() - 1, WCol() )
|
|
ELSEIF k == K_DOWN
|
|
WMove( WRow() + 1, WCol() )
|
|
ENDIF
|
|
dspcord()
|
|
ENDDO
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE dspcord()
|
|
|
|
LOCAL mr := MRow(), mc := MCol(), r := WRow(), c := WCol(), w := WSelect()
|
|
|
|
WSelect( 0 )
|
|
@ MaxRow(), 0 SAY PadR( "WPOS(" + hb_ntos( r ) + "," + hb_ntos( c ) + ")" + ;
|
|
iif( MPresent(), "MPOS(" + hb_ntos( mr ) + "," + hb_ntos( mc ) + ")", "" ), MaxCol() + 1 )
|
|
WSelect( w )
|
|
|
|
RETURN
|