fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See changelog 2001-08-11 08:30 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-08-11 11:24:06 +00:00
parent 94f7732093
commit e77ab95e61
2 changed files with 23 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-08-11 08:40 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
*tests/testbrw.prg
* updated to show the use of pictures with tbrowse
2001-08-10 13:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/dbdelim.prg

32
harbour/tests/testbrw.prg
View File

@@ -9,7 +9,10 @@
function Main()
local oBrowse := TBrowseNew( 5, 5, 16, 30 )
local aTest := { "This", "is", "a", "browse", "on", "an", "array", "test", "with", "a", "long", "data" }
local aTest0 := { "This", "is", "a", "browse", "on", "an", "array", "test", "with", "a", "long", "data" }
local aTest1 := { 1, 2, 3, 4, 5, 6, 7, 8, 10000, -1000, 54, 456342 }
local aTest2 := { date(), date()+4, date()+56, date()+14, date()+5, date()+6, date()+7, date()+8, date()+10000, date()-1000, date()-54, date()+456342 }
local aTest3 := { .t., .f., .t., .t., .f., .f., .t., .f., .t., .t., .f., .f. }
local n := 1
local nKey
local lEnd := .f.
@@ -23,21 +26,25 @@ function Main()
oBrowse:HeadSep = "ÑÍ"
oBrowse:FootSep = "ÏÍ"
oBrowse:GoTopBlock = { || n := 1 }
oBrowse:GoBottomBlock = { || n := Len( aTest ) }
oBrowse:GoBottomBlock = { || n := Len( aTest0 ) }
oBrowse:SkipBlock = { | nSkip, nPos | nPos := n,;
n := If( nSkip > 0, Min( Len( aTest ), n + nSkip ),;
n := If( nSkip > 0, Min( Len( aTest0 ), n + nSkip ),;
Max( 1, n + nSkip )), n - nPos }
oBrowse:AddColumn( TBColumnNew( "First", { || n } ) )
oBrowse:AddColumn( TBColumnNew( "Second", { || aTest[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Third", { || aTest[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Forth", { || aTest[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Fifth", { || n } ) )
oBrowse:GetColumn(1):Footing = 'First'
oBrowse:GetColumn(2):Footing = 'Second'
oBrowse:GetColumn(3):Footing = 'Third'
oBrowse:GetColumn(4):Footing = 'Forth'
oBrowse:GetColumn(5):Footing = 'Fifth'
oBrowse:AddColumn( TBColumnNew( "Second", { || aTest0[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Third", { || aTest1[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Forth", { || aTest2[ n ] } ) )
oBrowse:AddColumn( TBColumnNew( "Fifth", { || aTest3[ n ] } ) )
oBrowse:GetColumn(1):Footing = 'Number'
oBrowse:GetColumn(2):Footing = 'Strins'
oBrowse:GetColumn(2):Picture := '@!'
oBrowse:GetColumn(3):Footing = 'Number'
oBrowse:GetColumn(3):Picture := '999,999.99'
oBrowse:GetColumn(4):Footing = 'Dates'
oBrowse:GetColumn(5):Footing = 'Logical'
// needed since I've changed some columns _after_ I've added them to TBrowse object
oBrowse:Configure()
@@ -62,7 +69,6 @@ enddo
While !lEnd
oBrowse:ForceStable()
nKey = InKey( 0 )
do case