675cbcb5d6
* contrib/hbgt/doc/en/hbgt.txt
* doc/en/gtslang.txt
* extras/gfspell/spell.prg
* tests/mousetst.prg
* tests/testdbf.prg
* tests/testrdd2.prg
* contrib/hbmisc/numtxthu.prg
* contrib/hbqt/tests/wvtqt.prg
* contrib/hbxbp/tests/wvtqt.prg
* include/hbapigt.h
* tests/db_brows.prg
* tests/gtchars.prg
* tests/tb1.prg
* tests/testbrw.prg
* tests/wcecon.prg
! fixing high 8-bit chars (using various methods)
(finished)
; NOTE: Some sources have been converted to UTF-8,
so from now on make sure to use an UTF-8 enabled
editor and use only UTF-8 chars when typing
non-ASCII (7-bit) characters.
143 lines
3.7 KiB
Plaintext
143 lines
3.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* demonstration/test code for TBrowse class
|
|
*
|
|
* Copyright 2009 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
/* UTF-8 */
|
|
|
|
#include "inkey.ch"
|
|
#include "button.ch"
|
|
#include "setcurs.ch"
|
|
#include "box.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
STATIC s_nCount := 0
|
|
STATIC s_nPos := 1
|
|
STATIC s_nSize := 100
|
|
|
|
LOCAL nTop, nLeft, nBottom, nRight
|
|
LOCAL cColor
|
|
LOCAL oBrw, oCol1, oCol2, oCol3, oCol4
|
|
LOCAL nKey, nCol
|
|
|
|
nTop := 2
|
|
nLeft := 10
|
|
nBottom := 20
|
|
nRight := 70
|
|
cColor := "W+/R,G+/BR,RG+/B,BG+/G,N/GR,GR+/BG,B/GR*"
|
|
|
|
SET DATE ANSI
|
|
SET CENTURY ON
|
|
|
|
// enable mouse events in CL53/Harbour
|
|
#ifdef _SET_EVENTMASK
|
|
SET( _SET_EVENTMASK, INKEY_ALL )
|
|
MSetCursor( .T. )
|
|
#endif
|
|
|
|
|
|
CLS
|
|
DispBox( nTop, nLeft, nBottom, nRight, B_DOUBLE_SINGLE, cColor )
|
|
oBrw := TBRowseNew( nTop + 1, nLeft + 1, nBottom - 1, nRight - 1 )
|
|
DispOutAt( nTop + 3, nLeft, hb_UTF8ToStr( "├" ), cColor )
|
|
DispOutAt( nTop + 3, nRight, hb_UTF8ToStr( "┤" ), cColor )
|
|
DispOutAt( nBottom - 2, nLeft, hb_UTF8ToStr( "├" ), cColor )
|
|
DispOutAt( nBottom - 2, nRight, hb_UTF8ToStr( "┤" ), cColor )
|
|
|
|
oBrw:colorSpec( cColor )
|
|
oBrw:headSep := hb_UTF8ToStr( "┐ ┌─" )
|
|
oBrw:footSep := hb_UTF8ToStr( "┘ └─" )
|
|
oBrw:colSep := hb_UTF8ToStr( "│ │" )
|
|
|
|
oBrw:SkipBlock := {| n | hb_idleSleep( 0.2 ), ;
|
|
n := iif( n < 0, Max( n, 1 - s_nPos ), ;
|
|
Min( s_nSize - s_nPos, n ) ), ;
|
|
s_nPos += n, n }
|
|
oBrw:GoTopBlock := {|| s_nPos := 1 }
|
|
oBrw:GoBottomBlock := {|| s_nPos := s_nSize }
|
|
|
|
oCol1 := TBColumnNew( "COL;1;", {|| s_nPos } )
|
|
oCol1:defColor := { 2, 1, 3, 4 }
|
|
oCol1:footing := "position"
|
|
oCol1:colorBlock := {| val | { val % 5 + 1, val % 3 + 2 } }
|
|
|
|
oCol2 := TBColumnNew( "COL;2", {|| s_nCount ++ } )
|
|
oCol2:defColor := { 3, 4, 5, 6 }
|
|
oCol2:footing := "counter"
|
|
oCol2:headSep := hb_UTF8ToStr( "┐ ┌─┤HIDE├─" )
|
|
|
|
oCol3 := TBColumnNew( "COL 3", {|| s_nPos % 3 == 0 } )
|
|
oCol3:defColor := { 5, 6, 2, 3 }
|
|
oCol3:footing := "logical"
|
|
oCol3:picture := "@YR [Y]" // Clipper wrongly calculate the size here
|
|
oCol3:headSep := hb_UTF8ToStr( "╖ ╓─┤HIDE├─" )
|
|
oCol3:footSep := hb_UTF8ToStr( "╜ ╙─" )
|
|
oCol3:colSep := hb_UTF8ToStr( "║ ║" )
|
|
|
|
oCol4 := TBColumnNew( " SHOW; ALL", {|| Date() - s_nPos } )
|
|
oCol4:defColor := { 6, 3, 4, 2 }
|
|
oCol4:footing := "date"
|
|
|
|
oBrw:addColumn( oCol1 )
|
|
oBrw:addColumn( oCol2 )
|
|
oBrw:addColumn( oCol3 )
|
|
oBrw:addColumn( oCol4 )
|
|
|
|
// start at bottom
|
|
oBrw:goBottom()
|
|
|
|
WHILE .T.
|
|
WHILE !oBrw:stabilize() .AND. NextKey() == 0
|
|
ENDDO
|
|
nKey := Inkey( 0 )
|
|
IF nKey == K_ESC
|
|
EXIT
|
|
ELSEIF nKey == K_INS
|
|
oBrw:colorRect( { oBrw:rowPos, 1, oBrw:rowPos, 4 }, { 7, 6 } )
|
|
ELSEIF nKey == K_DEL
|
|
oBrw:refreshCurrent()
|
|
ELSEIF nKey >= Asc( "0" ) .AND. nKey <= Asc( "3" )
|
|
oBrw:freeze := nKey - Asc( "0" )
|
|
ELSEIF nKey == K_LBUTTONDOWN .AND. ;
|
|
oBrw:HitTest( MRow(), MCol() ) == HTHEADSEP .AND. ;
|
|
( ( nCol := oBrw:mColPos ) == 2 .OR. nCol == 3 )
|
|
IF nCol == 2
|
|
oCol2:width := 0
|
|
ELSE
|
|
oCol3:width := 0
|
|
ENDIF
|
|
oBrw:configure()
|
|
ELSEIF nKey == K_LBUTTONDOWN .AND. ;
|
|
oBrw:HitTest( MRow(), MCol() ) == HTHEADING .AND. ;
|
|
oBrw:mColPos == 4
|
|
oCol2:width := 10
|
|
oCol3:width := 7
|
|
oBrw:configure()
|
|
ELSE
|
|
oBrw:applyKey( nKey )
|
|
ENDIF
|
|
ENDDO
|
|
|
|
RETURN
|
|
|
|
#ifndef __HARBOUR__
|
|
|
|
PROCEDURE hb_idleSleep( n )
|
|
|
|
n += Seconds()
|
|
WHILE Seconds() < n
|
|
ENDDO
|
|
|
|
RETURN
|
|
|
|
#endif
|