Xailer & OZ Software

Espero te sirva.
/*
* Xailer source code:
*
* Header.prg
* Clase THeader()
*
* All rights reserved
*
*/
#include "Xailer.ch"
//---------------------------------------------------------- ----------------
CLASS THeader FROM XHeader
METHOD SetFont
METHOD Create
ENDCLASS
//---------------------------------------------------------- ----------------
METHOD SetFont() CLASS THeader
::oFont := TFont():Create( "Tahoma", 8, 0, 700)
RETURN NIL
//---------------------------------------------------------- --------------------
METHOD Create( oParent ) CLASS THeader
Super:Create( oParent )
::SetFont()
RETURN Self

Carlos,
muchas gracias.
Ingo
> Espero te sirva.
>
> /*
> * Xailer source code:
> *
> * Header.prg
> * Clase THeader()
> *
> * All rights reserved
> *
> */
>
> #include "Xailer.ch"
>
>
> //---------------------------------------------------------- ----------------
>
> CLASS THeader FROM XHeader
> METHOD SetFont
> METHOD Create
> ENDCLASS
>
> //---------------------------------------------------------- ----------------
> METHOD SetFont() CLASS THeader
> ::oFont := TFont():Create( "Tahoma", 8, 0, 700)
> RETURN NIL
>
> //---------------------------------------------------------- --------------------
>
> METHOD Create( oParent ) CLASS THeader
> Super:Create( oParent )
> ::SetFont()
> RETURN Self
>