New FWH 13.06

[Antonio Linares]

viewtopic.php?f=16&t=26751#p148086

[Mulyadi]

Mr Antonio...

Version 13.06 same as 13.05
xBrowse array with clausul AutoSort
Result: header colour is change.

xBrowse array without clausul AutoSort.
Result: header colour is normal like we define the colour.

Thx...

[Antonio Linares]

Mulyadi,

Did you already report this problem previously ? thanks

[nageswaragunupudi]

Tested with the following code:

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"

function Main()

   local oDlg, oBrw, aData

   USE CUSTOMER NEW ALIAS CUST SHARED
   aData    := FW_DbfToArray()
   CLOSE CUST

   DEFINE DIALOG oDlg SIZE 600,200 PIXEL TITLE FWVERSION
   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE aData AUTOCOLS ;
      CELL LINES NOBORDER  AUTOSORT

   WITH OBJECT oBrw
      :l2007         := .f.
      :bClrHeader    := { || { CLR_HRED, CLR_YELLOW } }
      :nRecSelColor  := nRGB( 231, 242, 255 )
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Result:



If you are not getting this result, please let me see your code.

[Mulyadi]

Thanks Mr Nages.

with your sample code its work fine.
but in my code, the xBrowse structure not like that.

my code like this:

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"

function Main

  local oDlg, oBrw
  local aData    := MakeArray()

  DEFINE DIALOG oDlg SIZE 600,200 PIXEL TITLE FWVERSION

   @ 0,0 XBROWSE oBrw ;
         COLUMNS 5, 4, 2, 7, 9, 10 ;
         HEADERS "State", "City", "Last", "HireDate", "Age", "Salary" ;
         OF oDlg ARRAY aData ;
         AUTOSORT FOOTERS FASTEDIT LINES CELL

   WITH OBJECT oBrw

      *
      *  edit value in other column
      *

      WITH OBJECT oBrw:Salary
          :nFooterType      := AGGR_TOTAL
      END

      :bClrHeader       := {|| { CLR_WHITE, CLR_BLUE }}
      :MakeTotals()
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

static function MakeArray()
  local aData
  USE CUSTOMER NEW ALIAS CUST SHARED
  aData := FW_DbfToArray()
  CLOSE CUST

return aData
 

Can you give me a description for the different..( me: ARRAY, you: DATASOURCE ) ...?

Thanks