Change Footer colors (xBrowse)

Change Footer colors (xBrowse)

Postby Natter » Thu Jan 26, 2023 10:06 am

Is there any example of an interactive color change in Footer (xBrowse) ?
Natter
 
Posts: 1203
Joined: Mon May 14, 2007 9:49 am

Re: Change Footer colors (xBrowse)

Postby FranciscoA » Thu Jan 26, 2023 4:00 pm

Did you already make a looking for "footer color"?
Regards
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Change Footer colors (xBrowse)

Postby Willi Quintana » Sat Jan 28, 2023 4:39 am

Hi,
Code: Select all  Expand view

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

 
User avatar
Willi Quintana
 
Posts: 1019
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Re: Change Footer colors (xBrowse)

Postby Natter » Sat Jan 28, 2023 10:21 am

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 :(
Natter
 
Posts: 1203
Joined: Mon May 14, 2007 9:49 am

Re: Change Footer colors (xBrowse)

Postby nageswaragunupudi » Sat Jan 28, 2023 12:44 pm

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Change Footer colors (xBrowse)

Postby Natter » Sun Jan 29, 2023 8:54 am

Sorry, I got it! Is the update method not enough aCols[cl]:RefreshFooter() ?
Natter
 
Posts: 1203
Joined: Mon May 14, 2007 9:49 am

Re: Change Footer colors (xBrowse)

Postby Willi Quintana » Mon Jan 30, 2023 12:51 pm

Hi,
this code...

Code: Select all  Expand view

    oCol:bClrFooter    := {|| {IF(oBrw:oCol(9):nTotal > 0, CLR_RED, CLR_BLACK), CLR_YELLOW}  }
 
User avatar
Willi Quintana
 
Posts: 1019
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Re: Change Footer colors (xBrowse)

Postby Willi Quintana » Mon Jan 30, 2023 2:08 pm

hi Friends

Code: Select all  Expand view

   oCol:bClrFooter    := {|| {CLR_GREEN, CLR_BLUE}  }                    //  CLR_BLUE not working.........
 
User avatar
Willi Quintana
 
Posts: 1019
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Re: Change Footer colors (xBrowse)

Postby nageswaragunupudi » 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
 


Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Change Footer colors (xBrowse)

Postby Horizon » Tue Jan 31, 2023 3:43 pm

Hi Mr. Rao,

Which application do you use to create gif files.

Thanks.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: Change Footer colors (xBrowse)

Postby nageswaragunupudi » Wed Feb 01, 2023 7:13 am

ScreenToGif
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 63 guests