topic-37825

Board index FiveWin for Harbour/xHarbour xbrowser header

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

xbrowser header
Posted: Mon Sep 30, 2019 09:03 PM

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

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowser header
Posted: Wed Oct 02, 2019 09:44 AM

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

Re: xbrowser header
Posted: Wed Oct 02, 2019 11:50 PM

Silvio.Falconi wrote:

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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!

FiveTech Support Forums

Continue the discussion