Como puedo recorrer los componentes de un folder para asignarle alguna propiedades?

[Carlos Ortiz]

En el foro se habla sobre como redefinir algunas propiedades de los
componentes de un dialog recorriendolos con algo como esto
for each oControl IN ::aControls
if oControl:IsKindOf( "TEdit" )
oControl:value := nil
...
, funciona para forms... pero no recorre los componentes de un folder que
están adentro del form, me arroja el {folder} pero como puedo acceder a los
valores de los Edit que estan en el folder.
Muchas gracias

[Diego Ferreira]

Saludos...
Asi lo hago yo y me resulta si por ejemplo los edit estan dentro de un
groupbox, folder o bevel....
For nN := 1 To Len( ::oFolder:aControls )
If ::oFolder:aControls[nN]:IsKindOf( "TEdit" )
::oFolder:aControls[nN]:nClrPane := clRed
EndIf
Next

[notengo]

Carlos,
el control TFolder desciende de TWinControl y hereda su propiedad aControls
que almacena todos los elementos que contiene.
Saludos,
José Lalí­n

[Carlos Ortiz]

Si eso debe ser correcto, el tema de que cuando los controles tEdit estan en
un folder como por ejemplo en el ejemplo DbfData6 eso no se cumple.
Puse esto en en frmfacturas de dicho proyecto y no me arroja los tEdit
for n = 1 to Len(::aControls)
msginfo(::aControls[n])
If ::aControls[n]:IsKindOf( "TEdit" )
::aControls[n]:nClrPane := clRed
endif
end
Espero comentarios y gracias nuevamente

[notengo]

Carlos,
no sé si hay algún bug en la versión que tienes, pero modificando el método
MantenAlta de FormFacturas así­:
METHOD MantenAlta( oSender ) CLASS TFrmFacturas
LOCAL n
WITH OBJECT TFrmFraEdi()
:lOnAppend := .t.
:New( Application:oMainForm )
::oDbfCab:AddNew()
:cText := "Creación de facturas"
:oEdCodigo:Value := "[Auto]"
:oDteCreacion:Value := Date()
:oDteCreacion:SetFocus()
:RequestState()
//
for n = 1 to Len( :aControls)
//msginfo( :aControls[n])
If :aControls[n]:IsKindOf( "TEdit" )
:aControls[n]:nClrPane := clRed
endif
end
//
IF :ShowModal() == mrOK .and. ::GetFacNum( :oEdCodigo )
::oDbfCab:Update()
::SaveLines( :oBrwArt:aArrayData )
ELSE
::oDbfCab:Cancel()
ENDIF
:End() // por ser lHideOnClose
END WITH
RETURN NIL
El resultado es el de la captura adjunta.
Saludos,
José Lalí­n
--

[Carlos Ortiz]

Perfecto José, estaba invocando esas lineas en el lugar equivocado, con tu
sugerencia está solucionado.
Muchas gracias.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:49b82e40$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Carlos,
>
> no sé si hay algún bug en la versión que tienes, pero modificando el
> método
> MantenAlta de FormFacturas así:
>
> METHOD MantenAlta( oSender ) CLASS TFrmFacturas
>
> LOCAL n
>
> WITH OBJECT TFrmFraEdi()
> :lOnAppend := .t.
> :New( Application:oMainForm )
> ::oDbfCab:AddNew()
> :cText := "Creación de facturas"
> :oEdCodigo:Value := "[Auto]"
> :oDteCreacion:Value := Date()
> :oDteCreacion:SetFocus()
> :RequestState()
>
> //
> for n = 1 to Len( :aControls)
> //msginfo( :aControls[n])
> If :aControls[n]:IsKindOf( "TEdit" )
> :aControls[n]:nClrPane := clRed
> endif
> end
> //
> IF :ShowModal() == mrOK .and. ::GetFacNum( :oEdCodigo )
> ::oDbfCab:Update()
> ::SaveLines( :oBrwArt:aArrayData )
> ELSE
> ::oDbfCab:Cancel()
> ENDIF
> :End() // por ser lHideOnClose
> END WITH
>
> RETURN NIL
>
> El resultado es el de la captura adjunta.
>
> Saludos,
> José Lalín
>

[Carlos Ortiz]

Gracias Diego, habia intentado con eso pero en el metodo equivocado.