FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TsBrowse y Combobox, no me devuelve el dato...
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
TsBrowse y Combobox, no me devuelve el dato...
Posted: Mon Jun 25, 2007 09:09 AM
Estimados.

Tengo este codigo:

      REDEFINE BROWSE oBrw ID 203 OF oFolder:aDialogs[2] grid FONT GetFont():celda

         oBrw:SetArray( vDatosOrigenes )

         // Origen
         ADD COLUMN TO oBrw ;
            DATA Array element 1;
            Header "Origen" ;
            ALIGN DT_CENTER, DT_CENTER ;
            PICTURE "@KX" ;
            WIDTH 100 PIXELS

         oBrw:SetData( 1, ,{"uno", "dos", "tres" }  )

         // Aca tengo el error!!!
         oBrw:aColumns[1]:bPostEdit:= { || MsgInfo(vDatosorigenes[obrw:nat,1]) }

...


Porque siempre me devuelve el valor "uno" si selecciono cualquier otro.

Gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: TsBrowse y Combobox, no me devuelve el dato...
Posted: Tue Jun 26, 2007 08:39 AM
Nadie tiene idea?

Gracias.

goosfancito wrote:Estimados.

Tengo este codigo:

      REDEFINE BROWSE oBrw ID 203 OF oFolder:aDialogs[2] grid FONT GetFont():celda

         oBrw:SetArray( vDatosOrigenes )

         // Origen
         ADD COLUMN TO oBrw ;
            DATA Array element 1;
            Header "Origen" ;
            ALIGN DT_CENTER, DT_CENTER ;
            PICTURE "@KX" ;
            WIDTH 100 PIXELS

         oBrw:SetData( 1, ,{"uno", "dos", "tres" }  )

         // Aca tengo el error!!!
         oBrw:aColumns[1]:bPostEdit:= { || MsgInfo(vDatosorigenes[obrw:nat,1]) }

...


Porque siempre me devuelve el valor "uno" si selecciono cualquier otro.

Gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 97
Joined: Sun Nov 20, 2005 04:32 PM
Re: TsBrowse y Combobox, no me devuelve el dato...
Posted: Wed Jun 27, 2007 09:22 AM
Here is an sample from my code, it works fine

Regards, Norbert

            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE "Eingabe" ; 
            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;
            SIZE nSpa2  EDITABLE ;
            COLORS CLR_BLACK, CLR_WHITE ;
            3DLOOK FALSE, FALSE, FALSE ; 
            MOVE DT_MOVE_NEXT ;
            PREEDIT { | uVar | IF( ValType( aUserFld1[ oLbx2:nAt, 4 ] ) = "A", ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .T., oLbx2:aColumns[ 2 ]:aItems := aUserFld1[ oLbx2:nAt, 4 ] ), ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .F., oLbx2:aColumns[ 2 ]:aItems := NIL ) ), nPreVal := uVar } ; 
            POSTEDIT { || oLbx2:Refresh( .T. ) }
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: TsBrowse y Combobox, no me devuelve el dato...
Posted: Wed Jun 27, 2007 10:19 AM
Viele Danke.


NK wrote:Here is an sample from my code, it works fine

Regards, Norbert

            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE "Eingabe" ; 
            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;
            SIZE nSpa2  EDITABLE ;
            COLORS CLR_BLACK, CLR_WHITE ;
            3DLOOK FALSE, FALSE, FALSE ; 
            MOVE DT_MOVE_NEXT ;
            PREEDIT { | uVar | IF( ValType( aUserFld1[ oLbx2:nAt, 4 ] ) = "A", ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .T., oLbx2:aColumns[ 2 ]:aItems := aUserFld1[ oLbx2:nAt, 4 ] ), ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .F., oLbx2:aColumns[ 2 ]:aItems := NIL ) ), nPreVal := uVar } ; 
            POSTEDIT { || oLbx2:Refresh( .T. ) }
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion