TWBrowse y controles

[jose_murugosa]

Hola a todos!

He visto varios temas y explicaciones en el foro pero no he podido lograr poner un Combobox y un Checkbox en un Browse.

Quisiera que en un detalle que incluye un campo lógico se pueda tildar un casillero del browse o destildar de tal modo que el campo en la base pase de .t. a .f. respectivamente.

En cuanto al combobox, he leído una explicación de René, pero está claro que lo que para estos gurúes es sencillo, para mí es complejo .

Será que alguien pueda explicarme más claramente o talvez sea preferible para mi torpeza, que ponga un ejemplo sencillo en el foro en el que se agreguen líneas con controles combobox y checkboxes?

Apreciaría mucho cualquier ayuda que me puedan brindar.
Uso el Browse de Hernán.

[Raymundo Islas M.]

hola Jose

Te comento como lo hago yo, seguro habra mas formas

-Para poner un combo

En el browse, pongo el metodo para capturar las teclas :
lbCapVta:bKeyDown := { | nKey | CAPVTSKEY( nKey ) }

en la funcion, determino la accion dependiendo de la tecla :
If nkey == VK_SPACE
blablabla
...
...
...
ELSEIF nKey == VK_RETURN
EdtAllColsVta()
ENDIF

y ya en la funcion que edita las celdas :

si quiero editar celda "normal" Char o Num
IF lbCapVta:lEditCol( aColAr[nQ], @xVal, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN )


si quiero abrir un combo, basta con agregar el arreglo
IF lbCapVta:lEditCol( aColAr[nQ], @xval, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN, TuArreglo )


y listo, lo demas lo hace la clase !!!


Para poner el Checkbox como tal, no se si se pueda, lo que si se, es que se puede hacer de estas maneras :

- Igual que los puntos anteriores, solo cambia esto :
IF lbCapVta:lEditCol( aColAr[nQ], .T., aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN )
y te va a mostrar un combobox con .T. y .F.

- Y la otra que es mucho mas nice es usando un bitmap en la celda representando el estado de la seleccion


Espero te sirva algo de esto


Saludos

[leandro]

Ray. Islas..

Amigo de casualidad no sabes como hacer esto con un xbrowse?

[jose_murugosa]

Muchas gracias por tu ayuda Raymundo, ya estoy trabajando con comboboxes y anduvo fantástico.

[surGom]

José, utilizo tambien el browse de hernán en cuanto a los combo lo que hice fue (version 17) comentar en la línea 3524 lo siguiente:

case aItems != nil
@ aPos[ 1 ] + 1, aPos[ 2 ] + 1 COMBOBOX ::oGet VAR uVar ITEMS aItems
/*; SIZE nWidth, Max( 200, Len( aItems ) * 25 ) OF Self ;
FONT oFont COLOR nClrFore, nClrBack ;
ON CHANGE ::End() ;
PIXEL*/

Y hasta ahora me funciona perfecto

Luis

[Raymundo Islas M.]

Hola Leandro

Lamento no poder ayudarte en ese punto, no uso el xBrowse, asi que desconozco las caracteristicas y bondades que ofrece.

Pero checando el testxbrw.prg tiene muchos ejemplos y en uno se ve como manejar un arreglo en una celda.

Seria cuestion de echarle un ojo y algunas pruebas.

Saludos

[Raymundo Islas M.]

Excelente Jose !!

Que bien que te sirvio lo anterior.




Estimado SurGom :

Pregunta : Al parecer, pasa lo mismo al momento de editar, el texto se torna mas paqueño, aplicaste el mismo procedimiento en este punto ??

Solicitud : Serias tan amable en facilitarme una copia de la lib ???, no se porque no puedo generarla


Saludos

[leandro]

Gracias de todas formas por tu respuesta ...

[jose_murugosa]

surGom

Amigo, hice los cambios, pero a mí el combo se me presenta exactamente igual que en la imagen del post anterior.

Podrías enviarme el source tuyo de la TWBrowse17 para comparar por favor, mi e-mail es jmurugosa@gmail.com

Gracias desde Ya

[surGom]

Te lo envío a tu privado

Luis

[surGom]

Raymundo me puedes enviar tu mail a luissaenz@cscom.com.ar

Gracias