Page 1 of 1

Antonio ...

Posted: Fri Jul 06, 2007 4:46 pm
by Francisco Horta
Hola Antonio,
Estoy haciendo un browse con wbrowse de hernan, y hago edicion de columnas con combobox, entonces estoy modificando la clase para en el metodo lEditCol poer una variable logica para definir desde ahi si quiero que se abra automaticamente el combobox, pero estuve viendo la clase del combobox y me encontre con el Open() INLINE CB_SHOWDROPDOWN
entonces hice modifique esto en la wbrowse

bOpenCombo:= {|| if(cType="L" .OR. aItems!=nil,if(lAutoOpen=.t.,oGet:Open(),),)}

ACTIVATE DIALOG oDlg ON INIT ( Eval( bInit ), Eval( bOnInit, oGet, oDlg ), Eval( bOpenCombo ) )

cuando se posiciona en la columan del combobox, el control me lo abre y me lo cierra automaticamente,

como hacer para que al tener el foco el combobox este se abra en automatico?
espero haberme explicado..
salu2
Paco

Posted: Fri Jul 06, 2007 7:30 pm
by Antonio Linares
Si lo cierra será porque está perdiendo el foco. Dale el foco con <o>:SetFocus()

Posted: Fri Jul 06, 2007 8:15 pm
by Francisco Horta
Antonio ya probe a poner despues del oGet:Open() un oGet:Setfocus() y me sigue cerrando el combobox nomas lanza el destello de la apertura de los datos y se cierra, pero el foco lo sigue teniendo el combobox, hay alguna forma de enviarle un clic de raton sobre el boton del combobox para ver si asi lo despliega, como seria?
porque este es el codigo donde se crea el control en la clase:
@ 0, 0 COMBOBOX oGet VAR uVar ITEMS aItems ;
SIZE ( aDim[ 4 ] - aDim[ 2 ] ) * 0.50, 50 OF oDlg ;
ON CHANGE ( oDlg:End(), lOk := .t. ) ;
FONT oFont COLOR nClrFore, nClrBack STYLE CBS_DROPDOWNLIST

gracias
paco

Posted: Fri Jul 06, 2007 8:49 pm
by Antonio Linares
Paco,

> poner despues del oGet:Open() un oGet:Setfocus()

Prueba a hacer oGet:SetFocus() antes de oGet:Open()

Posted: Fri Jul 06, 2007 10:28 pm
by Francisco Horta
gracias antonio, ya lo probe asi y tampoco funciona me lo cierra, hice la prueba con un combobox sin browse desde recurso en un dialogo y si lo abre bien.
esto lo pense hacer porque en el browse estando editando un combobox no me permitia desplazarme con las flechas arriba y abajo, pero una vez solucionado, ahi dejo en RIP lo del AutoOpen del combobox,
mil gracias por tu ayuda.
salu2
paco