FiveTech Support Forums

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 nil

oDlg:aControls[1]:Hide()