Change Footer colors (xBrowse)

[Natter]

Is there any example of an interactive color change in Footer (xBrowse) ?

[FranciscoA]

Did you already make a looking for "footer color"?
Regards

[Willi Quintana]

Hi,

Code: Select all  Expand view  RUN

                         oCol:bClrFooter    := {|| {IF(oBrw:oCol(9):nTotal > 0, CLR_RED, CLR_BLACK), }  }

 

[Natter]

Thank you for your help !
Of course, I immediately tried the construction of
aCols[cl]:bClrFooter:={||{RGB(...), RGB(...)}}
aCols[cl]:RefreshFooter()
But at the same time, only the font color changes, and the background color does not change

[nageswaragunupudi]

return color pair { nClrText, nClrBack } when your bClrFooter is evaluated.

[Natter]

Sorry, I got it! Is the update method not enough aCols[cl]:RefreshFooter() ?

[Willi Quintana]

Hi,
this code...

Code: Select all  Expand view  RUN

    oCol:bClrFooter    := {|| {IF(oBrw:oCol(9):nTotal > 0, CLR_RED, CLR_BLACK), CLR_YELLOW}  }
 

[Willi Quintana]

hi Friends

Code: Select all  Expand view  RUN

   oCol:bClrFooter    := {|| {CLR_GREEN, CLR_BLUE}  }                    //  CLR_BLUE not working.........
 

[nageswaragunupudi]

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData FASTEDIT SETUP BrwSetup( oBrw )

return nil

static function BrwSetup( oBrw )

   SetGetColorFocus()
   oBrw:lFooter := .t.
   oBrw:l2007   := .f.
   WITH OBJECT oBrw:aCols[ 2 ]
      :nFooterType   := AGGR_SUM
      :bClrFooter    := { || If( oBrw:oCol( 2 ):nTotal < 0, { CLR_WHITE, CLR_HRED }, { CLR_BLACK, CLR_HGREEN } ) }
   END
   oBrw:MakeTotals()

return nil
 

[Horizon]

Hi Mr. Rao,

Which application do you use to create gif files.

Thanks.

[nageswaragunupudi]

ScreenToGif