xbrowser header

[wartiaga]

Hi,

I have a xbrowse with a empty array.

When i put some elements in array and I do oBrw:SetArray(VetDup) my headers change to A, B, C , D, E.

What I do wrong?

Thanks!

[Silvio.Falconi]

Code: Select all  Expand view

function TestMain()

   local oWnd, oBar, oBrw

   DEFINE WINDOW oWnd TITLE "Arrays"

@ 0,0 XBROWSE oBrw OF oWnd               ;
      COLUMNS 1, 2, 3, 4                    ;
      HEADERS "a","b","tc","d"   ;
      COLSIZES 100, 100, 100, 100           ;
      ARRAY {} LINES FASTEDIT CELL


WITH OBJECT oBrw
        :CreateFromCode()
   END

 oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd

return nil

or easy

Code: Select all  Expand view

LOCAL aFiles   := {}

@ 30, 10 XBROWSE  oLbx OF oDlg ;
      SIZE 185,100 PIXEL


    oLbx:SetArray(aFiles)

   oLbx:aCols[1]:cHeader  := i18n("Archivio")
   oLbx:aCols[1]:nWidth   := 110

   oLbx:aCols[2]:cHeader  := i18n("Dimensione")
   oLbx:aCols[2]:nWidth   := 100

  WITH OBJECT  oLbx
                   :CreateFromCode()
                  END
 

here run good

[wartiaga]

Code: Select all  Expand view

function TestMain()

   local oWnd, oBar, oBrw

   DEFINE WINDOW oWnd TITLE "Arrays"

@ 0,0 XBROWSE oBrw OF oWnd               ;
      COLUMNS 1, 2, 3, 4                    ;
      HEADERS "a","b","tc","d"   ;
      COLSIZES 100, 100, 100, 100           ;
      ARRAY {} LINES FASTEDIT CELL


WITH OBJECT oBrw
        :CreateFromCode()
   END

 oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd

return nil

or easy

Code: Select all  Expand view

LOCAL aFiles   := {}

@ 30, 10 XBROWSE  oLbx OF oDlg ;
      SIZE 185,100 PIXEL


    oLbx:SetArray(aFiles)

   oLbx:aCols[1]:cHeader  := i18n("Archivio")
   oLbx:aCols[1]:nWidth   := 110

   oLbx:aCols[2]:cHeader  := i18n("Dimensione")
   oLbx:aCols[2]:nWidth   := 100

  WITH OBJECT  oLbx
                   :CreateFromCode()
                  END
 

here run good

I will try, thank you!