topic-27518

Board index FiveWin para Harbour/xHarbour xbrowse array vacio

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

xbrowse array vacio
Posted: Wed Oct 23, 2013 03:11 PM

Hola foro,

El problema es que tengo un xbrowse desde recursos con un array vacio y no funciona, si le agrego un registro si funciona.
Entiendo que no tiene registros y por lo tanto no tiene columnas, pero como solucionarlo]?

Code (fw): Select all Collapse

aLealtad := {}

DEFINE DIALOG oDlg RESOURCE "DIALOGO_L"

                  xBrw := TXBrowse():New( oDlg )

                xBrw:SetArray( ::aLealtad, .F.  )

                xBrw:nMarqueeStyle      := MARQSTYLE_HIGHLROW
                xBrw:nColDividerStyle   := LINESTYLE_LIGHTGRAY
                xBrw:nRowDividerStyle   := LINESTYLE_LIGHTGRAY
                xBrw:nStretchCol        := STRETCHCOL_LAST
                xBrw:lFooter            := .T.
                xBrw:lUpdate            := .T.
                xBrw:nHeaderHeight      := 30
                xBrw:nRowHeight         := 24
                xBrw:lAllowColHiding    := .F.
                xBrw:lAllowRowSizing    := .F.
                xBrw:lAllowColSwapping  := .F.

               xBrw:aCols[1]:nWidth        := 50
               xBrw:aCols[1]:cHeader       := "Folio"
               xBrw:aCols[1]:nDataStrAlign := AL_RIGHT
               xBrw:aCols[1]:nHeadStrAlign := AL_CENTER

              xBrw:aCols[2]:nWidth        := 250
              xBrw:aCols[2]:cHeader       := "Nombre"
              xBrw:aCols[2]:nDataStrAlign := AL_LEFT
              xBrw:aCols[2]:nHeadStrAlign := AL_CENTER

              xBrw:aCols[3]:nWidth        := 60
              xBrw:aCols[3]:cHeader       := "Puntos"
              xBrw:aCols[3]:nFooterType   := AGGR_SUM
              xBrw:aCols[3]:nFootStrAlign := AL_RIGHT
              xBrw:aCols[3]:nDataStrAlign := AL_RIGHT
              xBrw:aCols[3]:cEditPicture  := '999,999'

             xBrw:MakeTotals()

            AEval( xBrw:aCols, { |o| o:lAllowSizing := .f. } )

           xBrw:CreateFromResource(300)

  ACTIVATE DIALOG oDlg

Parece que desde codigo con un array vacio no hay problema...

Saludos

____________________

Paco

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: xbrowse array vacio (SOLUCIONADO)
Posted: Wed Oct 23, 2013 03:48 PM

Francisco Horta wrote:Hola foro,

El problema es que tengo un xbrowse desde recursos con un array vacio y no funciona, si le agrego un registro si funciona.
Entiendo que no tiene registros y por lo tanto no tiene columnas, pero como solucionarlo]?

Code (fw): Select all Collapse

aLealtad := {}

DEFINE DIALOG oDlg RESOURCE "DIALOGO_L"

                  xBrw := TXBrowse():New( oDlg )

                xBrw:SetArray( ::aLealtad, .F.  )

                xBrw:nMarqueeStyle      := MARQSTYLE_HIGHLROW
                xBrw:nColDividerStyle   := LINESTYLE_LIGHTGRAY
                xBrw:nRowDividerStyle   := LINESTYLE_LIGHTGRAY
                xBrw:nStretchCol        := STRETCHCOL_LAST
                xBrw:lFooter            := .T.
                xBrw:lUpdate            := .T.
                xBrw:nHeaderHeight      := 30
                xBrw:nRowHeight         := 24
                xBrw:lAllowColHiding    := .F.
                xBrw:lAllowRowSizing    := .F.
                xBrw:lAllowColSwapping  := .F.

               xBrw:aCols[1]:nWidth        := 50
               xBrw:aCols[1]:cHeader       := "Folio"
               xBrw:aCols[1]:nDataStrAlign := AL_RIGHT
               xBrw:aCols[1]:nHeadStrAlign := AL_CENTER

              xBrw:aCols[2]:nWidth        := 250
              xBrw:aCols[2]:cHeader       := "Nombre"
              xBrw:aCols[2]:nDataStrAlign := AL_LEFT
              xBrw:aCols[2]:nHeadStrAlign := AL_CENTER

              xBrw:aCols[3]:nWidth        := 60
              xBrw:aCols[3]:cHeader       := "Puntos"
              xBrw:aCols[3]:nFooterType   := AGGR_SUM
              xBrw:aCols[3]:nFootStrAlign := AL_RIGHT
              xBrw:aCols[3]:nDataStrAlign := AL_RIGHT
              xBrw:aCols[3]:cEditPicture  := '999,999'

             xBrw:MakeTotals()

            AEval( xBrw:aCols, { |o| o:lAllowSizing := .f. } )

           xBrw:CreateFromResource(300)

  ACTIVATE DIALOG oDlg

Parece que desde codigo con un array vacio no hay problema...

Saludos

A mi mismo
SOLUCIONADO !!
me faltaba

xBrw:AddCol()

saludos

____________________

Paco

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xbrowse array vacio
Posted: Wed Oct 23, 2013 04:34 PM

Code (fw): Select all Collapse

function BlankArray()

   local aLealtad := {}
   local oDlg, xBrw, oFont

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg RESOURCE "DIALOG_1" FONT oFont

   REDEFINE XBROWSE xBrw ID 101 OF oDlg ;
      DATASOURCE aLealtad ;
      COLUMNS 1, 2, 3 ;
      HEADERS "Folio", "Nombre", "Puntos" ;
      PICTURES "999", nil, "999,999" ;
      CELL LINES FOOTERS UPDATE

   xBrw:cDataTypes         := { 'N', 'C', 'N' }
   xBrw:nHeadStrAligns     := AL_CENTER
   xBrw:Puntos:nFooterType := AGGR_SUM
   xBrw:nStretchCol        := 2

   // other settings

   ACTIVATE DIALOG oDlg CENTERED ON INIT ( xBrw:SetFocus(), .f. )
   RELEASE FONT oFont

return nil

Regards

G. N. Rao.

Hyderabad, India

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: xbrowse array vacio
Posted: Mon Oct 28, 2013 03:49 PM

Thanks Rao, is correct

Regards
Paco

____________________

Paco

FiveTech Support Forums

Continue the discussion