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 Expand view RUN
// if !Empty( ::cFooter ) .and. ::oFooterFont != nil // existing code
if ( iif( ::bFooter == nil, ::cFooter, Eval( ::bFooter ) ) ) != nil .and. ::oFooterFont != nil // new code
column object's FooterWidth method
- Code: Select all Expand view RUN
// cText := ::cFooter // existing code
cText := If( ::bFooter == nil, ::cFooter, Eval( ::bFooter ) ) // new code
...
...
// if !Empty( cText ) // old code
if cText != nil // new code
