I included inside the new xbrowse-tools a Multiheader-test.
It works like the normal Head-defines.
It is possible now, to do the same tests like for a normal Header with : Gradients, Fonts ....
Because the defined Header-Height is splitted, I think it is useful to see the result.
I'm not sure, how the Columns are connected to the Superheader. I used the testfile from FWH testhead.prg.
There is a value 4 on 3. position in Set 1, I don't understand ( from testhead.prg )
Also it seems, the end-value 3 means the same like 0 ???.
I created 4 predefined style-sets.
The user can change the 8 Get-fields, to show different situations.
using 8 Columns
- Code: Select all Expand view
REDEFINE BUTTONBMP oBtn13 ID 682 OF oFld:aDialogs[2] ;
ACTION ( SUPER1 := 2, ;
SUPER2 := 1, ;
SUPER3 := 4, ;
SUPER4 := 1, ;
SUPER5 := 1, ;
SUPER6 := 1, ;
SUPER7 := 3, ;
SUPER8 := 0, oFld:aDialogs[2]:Update(), TESTHEADER() ) ;
BITMAP "Notes" PROMPT "Set 1" TEXTRIGHT
oBtn13:cToolTip = { "Testing" + CRLF + ;
"Multi-Header","Multi-Header", 1, CLR_BLACK, 14089979 }
- Code: Select all Expand view
REDEFINE BUTTONBMP oBtn14 ID 683 OF oFld:aDialogs[2] ;
ACTION ( SUPER1 := 0, ;
SUPER2 := 2, ;
SUPER3 := 1, ;
SUPER4 := 1, ;
SUPER5 := 3, ;
SUPER6 := 2, ;
SUPER7 := 3, ;
SUPER8 := 0, oFld:aDialogs[2]:Update(), TESTHEADER() ) ;
BITMAP "Notes" PROMPT "Set 2" TEXTRIGHT
oBtn14:cToolTip = { "Testing" + CRLF + ;
"Multi-Header","Multi-Header", 1, CLR_BLACK, 14089979 }
- Code: Select all Expand view
REDEFINE BUTTONBMP oBtn15 ID 684 OF oFld:aDialogs[2] ;
ACTION ( SUPER1 := 0, ;
SUPER2 := 0, ;
SUPER3 := 2, ;
SUPER4 := 1, ;
SUPER5 := 3, ;
SUPER6 := 2, ;
SUPER7 := 1, ;
SUPER8 := 3, oFld:aDialogs[2]:Update(), TESTHEADER() ) ;
BITMAP "Notes" PROMPT "Set 3" TEXTRIGHT
oBtn15:cToolTip = { "Testing" + CRLF + ;
"Multi-Header","Multi-Header", 1, CLR_BLACK, 14089979 }
- Code: Select all Expand view
REDEFINE BUTTONBMP oBtn16 ID 685 OF oFld:aDialogs[2] ;
ACTION ( SUPER1 := 2, ;
SUPER2 := 1, ;
SUPER3 := 1, ;
SUPER4 := 1, ;
SUPER5 := 1, ;
SUPER6 := 3, ;
SUPER7 := 2, ;
SUPER8 := 3, oFld:aDialogs[2]:Update(), TESTHEADER() ) ;
BITMAP "Notes" PROMPT "Set 4" TEXTRIGHT
oBtn16:cToolTip = { "Testing" + CRLF + ;
"Multi-Header","Multi-Header", 1, CLR_BLACK, 14089979 }
Test with any text and column-width
Regards
Uwe
