xbrowse - footers

[nageswaragunupudi]

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

Code: Select all

//    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

// cText  := ::cFooter // existing code
cText := If( ::bFooter == nil, ::cFooter, Eval( ::bFooter ) ) // new code
...
...
// if !Empty( cText )  // old code
   if cText != nil        // new code