Change Footer colors (xBrowse)
Posted: Thu Jan 26, 2023 10:06 amIs there any example of an interactive color change in Footer (xBrowse) ?
Did you already make a looking for "footer color"?
Regards
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Change Footer colors (xBrowse)
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42716
Page 1 of 1
Posted: Thu Jan 26, 2023 10:06 amRe: Change Footer colors (xBrowse)
Posted: Thu Jan 26, 2023 4:00 pmRe: Change Footer colors (xBrowse)
Posted: Sat Jan 28, 2023 4:39 amHi,
- Code: Select all Expand view
oCol:bClrFooter := {|| {IF(oBrw:oCol(9):nTotal > 0, CLR_RED, CLR_BLACK), } }
Re: Change Footer colors (xBrowse)
Posted: Sat Jan 28, 2023 10:21 amThank 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
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
Re: Change Footer colors (xBrowse)
Posted: Sat Jan 28, 2023 12:44 pmreturn color pair { nClrText, nClrBack } when your bClrFooter is evaluated.
Re: Change Footer colors (xBrowse)
Posted: Sun Jan 29, 2023 8:54 amSorry, I got it! Is the update method not enough aCols[cl]:RefreshFooter() ?
Re: Change Footer colors (xBrowse)
Posted: Mon Jan 30, 2023 12:51 pmHi,
this code...
this code...
- Code: Select all Expand view
oCol:bClrFooter := {|| {IF(oBrw:oCol(9):nTotal > 0, CLR_RED, CLR_BLACK), CLR_YELLOW} }
Re: Change Footer colors (xBrowse)
Posted: Mon Jan 30, 2023 2:08 pmhi Friends
- Code: Select all Expand view
oCol:bClrFooter := {|| {CLR_GREEN, CLR_BLUE} } // CLR_BLUE not working.........
Re: Change Footer colors (xBrowse)
Posted: Mon Jan 30, 2023 6:08 pm- Code: Select all Expand view
- #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
Re: Change Footer colors (xBrowse)
Posted: Tue Jan 31, 2023 3:43 pmHi Mr. Rao,
Which application do you use to create gif files.
Thanks.
Which application do you use to create gif files.
Thanks.
Re: Change Footer colors (xBrowse)
Posted: Wed Feb 01, 2023 7:13 amScreenToGif