Cómo poner un combobox en TSbrowse ?

[Armando]

Amigos:

Alguien que tenga un pequeño ejemplo para poner un combobox sobre TSBrowse ?

Saludos y gracias

[Patricio Avalos Aguirre]

hola

Code: Select all  Expand view

    ADD COLUMN TO BROWSE oIng:oLbx[_ACCESORIO2] DATA ARRAY ELEMENT 1 ;
          TITLE "Quien"+CRLF+"Paga"                             ;
          SIZE 93 PIXELS                                        ;
          3DLOOK TRUE,TRUE,FALSE                                ;
          ALIGN DT_LEFT,DT_CENTER,DT_CENTER             ;
            COLORS CLR_HMAGENTA, RGB( 255, 255, 235)        ;
            EDITABLE

        oIng:oLbx[_ACCESORIO2]:aColumns[1]:lComboBox := .t.
        oIng:oLbx[_ACCESORIO2]:aColumns[1]:aItems := { "Cliente   ","Automotora"}

        oIng:oLbx[_ACCESORIO2]:aColumns[1]:bPostEdit := { || oIng:oLbx[_ACCESORIO2]:DrawFooters() }
 

[Armando]

Patricio:

Muchas gracias por el ejemplo, trataré de adaptarlo a mis necesidades.

Saludos

[mmercado]

Alguien que tenga un pequeño ejemplo para poner un combobox sobre TSBrowse ?

Hola Armando:

Te reproduzco una parte del texto WhatsNew.V70 que es parte de la documentación de TSBrowse

25.- New Function "ComboWBlock". Creates a View/Edit code block to edit a
cell via a ComboBox control.

Syntax:

ComboWBlock( <oBrw>, <uField>, <nCol>, <aItems> )

Parameters (all required):

<oBrw> = The TSBrowse object
<uField> = Field Pos or Field Name (any) when editing databases. Whith
arrays, <uField> will be the number of the array element.
<nCol> = Column number in <oBrw>
<aItems> = Array containing the items to be used by the ComboBox control

Note: <aItems> can be a single array or a double array ( {aItems,aData} ),
in this last case, TSBrowse will show "aItems" and will replace the
data with the corresponding "aData" element. Obviously, both
arrays must have the same number of elements.

Example:

aItems := { "Pieces", "Feet", "Gallons" }
aData := { "PC", "FT", "GA" }
nColum := 1
cField := "Unit"

@ 0, 0 BROWSE oBrw CELLED ALIAS "Products"....

ADD COLUMN TO oBrw Title "Units" COMBOBOX SIZE 80 PIXELS EDITABLE ;
DATA ComboWBlock( oBrw, cField, nColum, { aItems, aData } ) ;
.......

See SBTest.prg Sample 2

Un abrazo.

Manuel Mercado

[Armando]

Manuel:

Excelente, más claro ni el agua.

Un abrazo

[Armando]

Manuel:

Simplemente EXCELENTE !, como siempre.

Un abrazo