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.
- Code: Select all Expand view
#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
*/
