quiero definir fuentes que esten disponible en toda la app

[goosfancito]

ola.
tengo varias clases, cada una hace su cometido en la app,
y todas tienen browser.

quier definir "algo" pienso en una clase pero no me estaria funcionando, para definir algunas fuentes y que pueda
utilizarla desde las diferentes clases que tengo.
he hecho esto:

Code: Select all | Expand

CLASS TFuentes   DATA oFontEncabezado   DATA oFontCelda   METHOD new() CONSTRUCTORENDCLASS//------------------------------------------------------------------------------METHOD new() CLASS TFuentes   DEFINE FONT ::oFontEncabezado NAME "Tahoma" SIZE 0, - 16 bold   DEFINE FONT ::oFontCelda NAME "Tahoma" SIZE 0, - 16   RETURN ( Self )//------------------------------------------------------------------------------ 

pero si la llamo como ser desde mi clase que quiero utilizarla me dice que no la encuentra

Code: Select all | Expand

CLASS TApp FROM TFuentes.....endclass....with object ::oBrw      WITH OBJECT :aCols[ 1 ]         :cHeader       := "Id"         :nWidth        := 80         :nHeadStrAlign := AL_CENTER         :oHeaderFont   := ::oFontEncabezado         :oDataFont     := ::oFontCelda      END WITH 

cual es el problema? que la fuente no se muestra y si hago esto:

Code: Select all | Expand

fwdbg ::oFontEncabezado

no me devuelve nda. ni si quiera una referencia al afuente

[TecniSoftware]

Hola

Me parece que la clase TApp no debería definirse como FROM TFuentes

Yo haría asi:

Code: Select all | Expand

CLASS TAppDATA oFuentes.....ENDCLASSMETHOD New() CLASS TApp  ::oFuentes := TFuentes():New()....// Para el browse:with object ::oBrw      WITH OBJECT :aCols[ 1 ]         :cHeader       := "Id"         :nWidth        := 80         :nHeadStrAlign := AL_CENTER         :oHeaderFont   := ::oFuentes:oFontEncabezado         :oDataFont       := ::oFuentes:oFontCelda      END WITH 

Saludos

[karinha]

Code: Select all | Expand

#Include "FiveWin.Ch"//----CLasseCLASS TPublic   METHOD New()  CONSTRUCTORENDCLASSMETHOD New() CLASS TPublic   Public TFecha, oFont, oFnt, oFont1, oFont2, oFont3   TFecha := Date()   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD   DEFINE FONT oFnt   NAME "Ms Sans Serif"  SIZE 00, -12 BOLD   DEFINE FONT oFont1 NAME "Calibri"        SIZE 0,  -14   DEFINE FONT oFont2 NAME "Segoe UI Light" SIZE 0,  -18   DEFINE FONT oFont3 NAME "Segoe UI"       SIZE 0,  -26RETURN Self//-------Seus PRGs - Para Pegar Variaveis publicas// Datos := TPublic():New()// ? TFecha 

Regards, saludos.

[goosfancito]

Hola

Me parece que la clase TApp no debería definirse como FROM TFuentes

Yo haría asi:

Code: Select all | Expand

CLASS TAppDATA oFuentes.....ENDCLASSMETHOD New() CLASS TApp  ::oFuentes := TFuentes():New()....// Para el browse:with object ::oBrw      WITH OBJECT :aCols[ 1 ]         :cHeader       := "Id"         :nWidth        := 80         :nHeadStrAlign := AL_CENTER         :oHeaderFont   := ::oFuentes:oFontEncabezado         :oDataFont       := ::oFuentes:oFontCelda      END WITH 

Saludos

Consulto, pero al hacerl FROM... estoy heredando los metodos y datos de TFuentes... o no?

[goosfancito]

Code: Select all | Expand

#Include "FiveWin.Ch"//----CLasseCLASS TPublic   METHOD New()  CONSTRUCTORENDCLASSMETHOD New() CLASS TPublic   Public TFecha, oFont, oFnt, oFont1, oFont2, oFont3   TFecha := Date()   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD   DEFINE FONT oFnt   NAME "Ms Sans Serif"  SIZE 00, -12 BOLD   DEFINE FONT oFont1 NAME "Calibri"        SIZE 0,  -14   DEFINE FONT oFont2 NAME "Segoe UI Light" SIZE 0,  -18   DEFINE FONT oFont3 NAME "Segoe UI"       SIZE 0,  -26RETURN Self//-------Seus PRGs - Para Pegar Variaveis publicas// Datos := TPublic():New()// ? TFecha 

Regards, saludos.

hola pero si defino como DATA en vez de "public" se estaria heredando tambien las data... o no es lo mismo que en "C"?

[armando.lagunas]

Yo lo utilizo asi:

Code: Select all | Expand

class tapp   DATA aWFont               INIT {}           //-- Array de Fonts .........endclass 

en tu programa inicial

Code: Select all | Expand

 #Include "FiveWin.Ch"..MEMVAR oAppfunction main() oApp    := TApp().... IniciarFonts()......AEval( oApp:aWFont, {|e| IIF(e!=Nil, e:End(), Nil )} )return .t.Function IniciarFonts()  oApp:aWFont := ARRAY( 5 ) DEFINE FONT   oApp:aWFont[1] NAME "Segoe WP"              SIZE 0, -17                 //  OK DEFINE FONT   oApp:aWFont[2] NAME "Segoe WP"              SIZE 0, -27                 //  OK DEFINE FONT   oApp:aWFont[3] NAME "Sagoe UI Light"        SIZE 0, -14                 //  OK DEFINE FONT   oApp:aWFont[4] NAME "Segoe UI Light"        SIZE 0, -32                 //  Titulos Gigantes en cualquier Dialogo DEFINE FONT   oApp:aWFont[5] NAME "Segoe UI Light"        SIZE 0, -20            //  OKreturn nil 

y en los programas individuales se utiliza como siempre

Code: Select all | Expand

......                   REDEFINE SAY ID -16 OF oDlg PROMPT "N° Contrato"  FONT oApp:aWFont[3]...... 

Saludos

[goosfancito]

Hola

Pude resolverlo de esta forma: no entiendo aun porque no se inicializan los objetos automaticamente...

Code: Select all | Expand

#Include "FiveWin.Ch"CLASS TFuentes   data oFont1   data oFont2   METHOD New()  CONSTRUCTORENDCLASSMETHOD New() CLASS TFuentes   DEFINE FONT ::oFont1  NAME "Ms Sans Serif"  SIZE 00, -14 BOLD   DEFINE FONT ::oFont2  NAME "Ms Sans Serif"  SIZE 00, -14 RETURN  (Self)------------------------------------------------//despues del FROM la clase que primero tiene que ir es TFuentes, sino no funciona (no lo entiendo)class TAPP FROM TFuentes, T....    .....   method new() constructor   ...end classmethod new() class TApp   ...   ...   ::Super:new()    // con esto inicializa TFuentes (no entiendo porque no fuiona si la primer clase despues del FROM no es TFuentes   ...return (self)