Es una interesante posibilidad utilizar el popupbrowse, pero he notado que en mi caso tengo dificultades para que funcione debidamente en una ventana y no en una dialog, quiz谩 porque haya algo que no est茅 tomando en cuenta.
Podr铆an por favor chequear este c贸digo?
Son dos ejemplos uno con dialog y otro con ventana no ha sido modificado mas que lo estrictamente necesario en el c贸digo, ver谩n que (o al menos a mi me pasa) en el caso de la ventana, no se abre el browse y en el caso de la dialog funciona perfectamente.
Pueden probar estos dos ejemplos simplemente comentando y descoment谩ndo, deje comentado el que no funciona, es decir el de la ventana.
Otra pregunta....
Como hago para seleccionar el dato de que columna del browse quiero que coloque en el get?
Gracias desde ya por vuestra ayuda.
Podr铆an por favor chequear este c贸digo?
Son dos ejemplos uno con dialog y otro con ventana no ha sido modificado mas que lo estrictamente necesario en el c贸digo, ver谩n que (o al menos a mi me pasa) en el caso de la ventana, no se abre el browse y en el caso de la dialog funciona perfectamente.
Pueden probar estos dos ejemplos simplemente comentando y descoment谩ndo, deje comentado el que no funciona, es decir el de la ventana.
Otra pregunta....
Como hago para seleccionar el dato de que columna del browse quiero que coloque en el get?
Gracias desde ya por vuestra ayuda.
#include "fivewin.ch"
function maindialog()
聽 聽 local oDlg, oGet, cVar, aItems
聽 聽 aItems:={ {"Vaca", "Va", "Hereford", 2}, ;
聽 聽 聽 聽 聽 聽 {"Novillo", "Nov", "Angus", 2}, ;
聽 聽 聽 聽 聽 聽 {"Vaquillona", "Vaq", "Holando", 2}, ;
聽 聽 聽 聽 聽 聽 {"Toro", "To", "Cruza", 2} 聽}
聽 聽 DEFINE DIALOG oDlg FROM 0,0 to 40, 70
聽 聽 聽 聽 @ 50, 50 GET oGet VAR cVar SIZE 200, 22 OF oDlg ACTION PopupBrowse( aItems, oGet, { || .t. } ) Pixel
聽 聽 聽 聽 oGet:bKeyDown := { | nKey | If( nKey == VK_F4, PopupBrowse( aItems, oGet, { || .t. } ), ) }
聽 聽 ACTIVATE DIALOG oDlg Center
聽 聽
return nil
/*
function mainwindow()
聽 聽 local oWnd, oGet, cVar, aItems
聽 聽 aItems:={ {"Vaca", "Va", "Hereford", 2}, ;
聽 聽 聽 聽 聽 聽 {"Novillo", "Nov", "Angus", 2}, ;
聽 聽 聽 聽 聽 聽 {"Vaquillona", "Vaq", "Holando", 2}, ;
聽 聽 聽 聽 聽 聽 {"Toro", "To", "Cruza", 2} 聽}
聽 聽 DEFINE WINDOW oWnd FROM 0,0 to 200, 200
聽 聽 聽 聽 @ 50, 50 GET oGet VAR cVar SIZE 200, 22 OF oWnd ACTION PopupBrowse( aItems, oGet, { || .t. } ) Pixel
聽 聽 聽 聽 oGet:bKeyDown := { | nKey | If( nKey == VK_F4, PopupBrowse( aItems, oGet, { || .t. } ), ) }
聽 聽 ACTIVATE WINDOW oWnd Center
聽 聽
return nil
*/Saludos/Regards,
Jos茅 Murugosa
"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Jos茅 Murugosa
"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
