topic-5073

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

TWBrowse y controles
Posted: Sat Nov 25, 2006 03:09 AM

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. :roll:

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 :oops: .

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.

:wink:

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

TWBrowse y controles
Posted: Sat Nov 25, 2006 03:37 PM

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

FWH 10.6 + xHarbour + Borland 582

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

y con xbrowse?
Posted: Sun Nov 26, 2006 02:18 AM

Ray. Islas..

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

TWBrowse y controles
Posted: Sun Nov 26, 2006 03:13 AM

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

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

TWBrowse y controles
Posted: Sun Nov 26, 2006 03:10 PM

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.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

TWBrowse y controles
Posted: Mon Nov 27, 2006 02:54 PM

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

FWH 10.6 + xHarbour + Borland 582

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

TWBrowse y controles
Posted: Mon Nov 27, 2006 02:59 PM

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

FWH 10.6 + xHarbour + Borland 582

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Gracias...
Posted: Mon Nov 27, 2006 08:31 PM

Gracias de todas formas por tu respuesta ...

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

TWBrowse y controles
Posted: Mon Nov 27, 2006 09:03 PM

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