Hola.
Por reutilizar un diálogo me interesa esconder(que no se vea) un combobox, entonces pruebo al activar el diálogo.
ON INIT oCombo:Hide().
Pero me arroja error.
Dentro del Diálogo o también pruebo.
oCombo:Hide().
Pero tampoco me funciona.
Alguna idea?
Muchas gracias
Saludos
Jose
STATIC oCombo?
karinha wrote:STATIC oCombo?Pues no lo tengo como Local, debo definirlo static.
Function OcultaObjetos(aObjetos,lCondicion,lMostrar)
/* =================================================================================================
Ocuta los objetos de aObjetos si se cumple lcondicion. Para que funcione hay que llamar a esta
función dentor del ON Init del diálogo
--------------
Victor 21/09/2018 16:20:55
Revisión : Angel - 24/09/2018 17:37:03 - Añadido lMostrar para que muestre los objetos
Victor 09/01/2019 9:32:19 se activa el modo recursivo ya que aObjetos también puede tener items que sean arrays.
================================================================================================
*/
Loca nC, nLen:=Len (aObjetos)
DEFAULT lMostrar:=.F.
If lMostrar
For nC:=1 To nLen
If ValType(aObjetos[nC])="A"
OcultaObjetos(aObjetos[nC],lCondicion,lMostrar)
Else
aObjetos[nC]:Show()
Endif
Next
Else
If lCondicion
For nC:=1 To nLen
If ValType(aObjetos[nC])="A"
OcultaObjetos(aObjetos[nC],lCondicion,lMostrar)
Else
aObjetos[nC]:Hide()
Endif
Next
Endif
Endif
Return Nil
ACTIVATE DIALOG oDlg ON INIT oCultar(oCombo)
Function oCultar(oCombo)
oCombo:Hide()
return nil
ó si se quiere ocultar varios combos del Dialog, algo asi:
ACTIVATE DIALOG oDlg ON INIT oCultar(oDlg)
Function oCultar(oDlg)
AEval(oDlg:aControls,{|o| if(upper(o:ClassName()) == "TCOMBOBOX", o:Hide,) })
return niloDlg:aControls[1]:Hide()