TWBrowse y controles

TWBrowse y controles

Postby jose_murugosa » Sat Nov 25, 2006 3: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 y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby Raymundo Islas M. » Sat Nov 25, 2006 3:37 pm

hola Jose

Te comento como lo hago yo, seguro habra mas formas :wink:

-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 )
Image

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

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 :wink: es usando un bitmap en la celda representando el estado de la seleccion
Image

Espero te sirva algo de esto


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

y con xbrowse?

Postby leandro » Sun Nov 26, 2006 2: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1682
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby jose_murugosa » Sun Nov 26, 2006 3: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 y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby surGom » Sun Nov 26, 2006 3: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
surGom
 
Posts: 640
Joined: Wed Oct 19, 2005 12:03 pm

Postby Raymundo Islas M. » Mon Nov 27, 2006 2: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
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Raymundo Islas M. » Mon Nov 27, 2006 2: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
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Gracias...

Postby leandro » Mon Nov 27, 2006 8: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1682
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby jose_murugosa » Mon Nov 27, 2006 9: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 :D
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby surGom » Tue Nov 28, 2006 10:49 am

Te lo envío a tu privado

Luis
surGom
 
Posts: 640
Joined: Wed Oct 19, 2005 12:03 pm

Postby surGom » Tue Nov 28, 2006 11:10 am

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

Gracias
surGom
 
Posts: 640
Joined: Wed Oct 19, 2005 12:03 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 72 guests