FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New FWH 13.06
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

New FWH 13.06

Posted: Mon Jul 08, 2013 06:54 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 85
Joined: Mon Apr 18, 2011 02:32 AM

Re: New FWH 13.06

Posted: Tue Jul 09, 2013 04:24 AM

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...

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 13.06

Posted: Tue Jul 09, 2013 09:44 AM

Mulyadi,

Did you already report this problem previously ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 13.06

Posted: Tue Jul 09, 2013 03:44 PM
Tested with the following code:
Code (fw): Select all Collapse
#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.
Regards



G. N. Rao.

Hyderabad, India
Posts: 85
Joined: Mon Apr 18, 2011 02:32 AM

Re: New FWH 13.06

Posted: Wed Jul 10, 2013 01:23 AM
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 (fw): Select all Collapse
#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

Continue the discussion