Muy buenas;
Me he puesto ya las pilas con el Xailer y estoy convirtiendo las utilidades
que durante años les he ido haciendo a mis clientes en MS-DOS, me parecio la
mejor idea empezar por ellas ya que son herramientas independientes y de
pequeño tamaño, lo que me permitira experimentar con muchas cosas sin
meterme en un gran proyecto.
La primera de las utilidades que he convertido (a medias, me falta el acceso
a la base datos) es un arqueo de caja, esta funcionando pero creo que se
podria optimizar aun mas el codigo si pudiera agrupar varios objetos TEdit
en uma matriz o algo parecido, lo he intentado pero al no aparecer nada de
esto en la ayuda he dado muchos palos de ciego.
Si hay alguna manera de hacer esto les agradeceria la ayuda.
Saludos
Pedro Amaro
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Agrupar Controles
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
Agrupar Controles
Pedro,
> La primera de las utilidades que he convertido (a medias, me falta el
> acceso
> a la base datos) es un arqueo de caja, esta funcionando pero creo que se
> podria optimizar aun mas el codigo si pudiera agrupar varios objetos TEdit
> en uma matriz o algo parecido, lo he intentado pero al no aparecer nada de
> esto en la ayuda he dado muchos palos de ciego.
Supongo que lo que quieres es tener una matriz con varios controles para
poder cambiar alguna propiedad en bloque con AEval(). Lo más sencillo es que
crees una DATA para la matriz en la misma clase del formulario, y después,
en el evento OnInitialize, asignas la matriz con los controles que
necesites. Sería algo así:
CLASS TForm1 FROM TForm
....
DATA aEdits
END
METHOD FormInitialize( oSender ) CLASS TForm1
::aEdits := { ::oMaskEdit1, ::oMaskEdit2, ::oMaskEdit3 }
RETURN Nil
Y después, cuando necesites p.ej. poner a cero los tres edits:
AEval( ::aEdits, {| oEdit | oEdit:Value := 0 } )
--
Un saludo,
José F. Giménez
> La primera de las utilidades que he convertido (a medias, me falta el
> acceso
> a la base datos) es un arqueo de caja, esta funcionando pero creo que se
> podria optimizar aun mas el codigo si pudiera agrupar varios objetos TEdit
> en uma matriz o algo parecido, lo he intentado pero al no aparecer nada de
> esto en la ayuda he dado muchos palos de ciego.
Supongo que lo que quieres es tener una matriz con varios controles para
poder cambiar alguna propiedad en bloque con AEval(). Lo más sencillo es que
crees una DATA para la matriz en la misma clase del formulario, y después,
en el evento OnInitialize, asignas la matriz con los controles que
necesites. Sería algo así:
CLASS TForm1 FROM TForm
....
DATA aEdits
END
METHOD FormInitialize( oSender ) CLASS TForm1
::aEdits := { ::oMaskEdit1, ::oMaskEdit2, ::oMaskEdit3 }
RETURN Nil
Y después, cuando necesites p.ej. poner a cero los tres edits:
AEval( ::aEdits, {| oEdit | oEdit:Value := 0 } )
--
Un saludo,
José F. Giménez