Xailer & OZ Software

¿Como puedo hacer para definir una fuente fija que afecte a todos mis tEdit,
sin tener que modificar el objeto oFont de cada una de ellas?
Hace tiempo leí que era definiendo Application:... al principio del
programa, pero no recuerdo como.
Gracias anticipadas
Francisco Martínez García

Francisco,
> ¿Como puedo hacer para definir una fuente fija que afecte a todos mis
> tEdit, sin tener que modificar el objeto oFont de cada una de ellas?
Si es sólo para los controles edit, entonces lo más sencillo es sobrecargar
la clase TEdit. Tendrías que crear la fuente al comienzo del programa (para
evitar crear una por cada control) y hacer algo así (ojo, está escrito al
vuelo):
CLASS TEdit FROM XEdit
METHOD Create( oParent )
ENDCLASS
METHOD Create( oParent ) CLASS TEdit
::SetFont( oGlobalFont ) // oGlobalFont seria la fuente que hayas
creado
Super:Create( oParent )
RETURN Self
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info