FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowse GroupHeader color
Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM

xBrowse GroupHeader color

Posted: Thu Aug 27, 2015 01:33 PM
To All

Is it possible to just change the GroupHeader color to make it a different color from the standard Header's ? .. grey perhaps ?
Code (fw): Select all Collapse
// project plan ---------------------------

              REDEFINE xBROWSE oLbx3  ;
              ARRAY aPlan             ;
              HEADERS "Budget"+CRLF+"Item",         ;
                      "Origional"+CRLF+"Budget",    ;
                      "Budget"+CRLF+"Revision",     ;
                      "Current"+CRLF+"Budget",      ;
                      "Origional"+CRLF+"Contract",  ;
                      "Contract"+CRLF+"Revisions",  ;
                      "Current"+CRLF+"Committed",   ;
                      "Pending"+CRLF+"Proposals",   ;
                      "Potential"+CRLF+"Exposures", ;
                      "Potential"+CRLF+"Costs",     ;
                      "Potential"+CRLF+"Project Costs", "hidden" ;
              COLSIZES 135,75,75,75,75,75,75,75,75,75,75 ; // 11
              PICTURE "","@)999,999,999.99",;
                         "@)999,999,999.99",;
                         "@)999,999,999.99",;
                         "@)999,999,999.99",;
                         "@)999,999,999.99",;
                         "@)999,999,999.99" ;
              ID 174 of oCust     ;
              AUTOCOLS CELL LINES FOOTERS

              oLbx3:SetGroupHeader( 'Before Construction', 2, 4 )  // <-- change color for all three ?
              oLbx3:SetGroupHeader( 'During Construction', 5, 7 )
              oLbx3:SetGroupHeader( 'Un-Forseen Costs', 8, 11 )

              oLbx3:lHScroll := .t.  // turn on horiz scroll bar
              oLbx3:hidden:Hide()    // hide last column used for row color

              oLbx3:nStretchCol  := 1
              oCol           := oLbx3:aCols[ 1 ]
              oCol:bFooter   := { || Ltrim( Str( oLbx3:KeyNo() ) ) + " / " + LTrim( Str( oLbx3:KeyCount() ) ) }

              // maketotals

              oLbx3:nFooterTypes    := AGGR_SUM
              For i = 1 to LEN( oLbx3:aCols )
                  oLbx3:aCols[ i ]:bSumCondition := { || !( IfNil( oLbx3:Hidden:Value(), "" ) $ [24] ) }
              Next

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: xBrowse GroupHeader color

Posted: Thu Sep 03, 2015 02:55 PM

Firstly, bClrHeader also does not take effect as long as oBrw:l2007 is true.
As of now we have not implemented specifying separate color for group header. It uses the same color of the first column.
It is, however, possible to specify a separate font for each group header.

Regards



G. N. Rao.

Hyderabad, India

Continue the discussion