Página 1 de 1

Cómo reasignar el font a nuestra clase TEdit?

Publicado: Mié Oct 31, 2012 1:05 am
por Carlos Ortiz
Lo de mas abajo es nuestra clase TEdit que tiene una propiedad mas que
lo que el propio Xailer define, ahora bien como se puede hacer para que
no use el font por defecto sino uno que quiero yo.
Estuve probando y no lo logro, por eso la molestia, muchas gracias.
//---------------------------------------------------------- --------------------
#include "Xailer.ch"
//---------------------------------------------------------- --------------------
CLASS TEdit FROM XEdit
PUBLISHED:
PROPERTY lObligatorio INIT .F. WRITE METHOD SetOblig
PUBLIC:
METHOD SetOblig
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD SetOblig( Value ) CLASS TEdit
::FlObligatorio := Value
IF Value
::nClrPane := AppData:nColorObligatorios
::nClrPaneFocus := AppData:nColorObligatorios
::nClrPaneDisabled:= AppData:nColorObligatorios
ELSE
::nClrPane := clWindow
::nClrPaneFocus := clWindow
::nClrPaneDisabled:= clWindow
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------