xbrowse - footers
Posted: Mon Dec 31, 2007 1:52 am
Footers do not appear, as expected, if we write
oBrw:lFooter := .t.
oBrw:aCols[n]:bFooter := {|| "footertext" }
unless we specify cFooter, that too not empty, atleast for one column.
To make bFooters work, without having to specify non empty cfooter to atleast one column, following changes are to be made. The changes are also necessary to allocate correct width for bfooters
column object's FooterHeight method
column object's FooterWidth method
oBrw:lFooter := .t.
oBrw:aCols[n]:bFooter := {|| "footertext" }
unless we specify cFooter, that too not empty, atleast for one column.
To make bFooters work, without having to specify non empty cfooter to atleast one column, following changes are to be made. The changes are also necessary to allocate correct width for bfooters
column object's FooterHeight method
Code: Select all
// if !Empty( ::cFooter ) .and. ::oFooterFont != nil // existing code
if ( iif( ::bFooter == nil, ::cFooter, Eval( ::bFooter ) ) ) != nil .and. ::oFooterFont != nil // new code
Code: Select all
// cText := ::cFooter // existing code
cText := If( ::bFooter == nil, ::cFooter, Eval( ::bFooter ) ) // new code
...
...
// if !Empty( cText ) // old code
if cText != nil // new code