Xailer & OZ Software

Hace unos años José nos decí­a:
Puedes utilizar la propiedad oHeader del browse, que contiene un objeto
THeader. Serí­a algo así­:
::oBrowse1:oHeader:oFont := TFont():Create( "Arial", -10,, 700 )
Lo que quiero hacer es cambiarlo a nivel de clase TBrowse o TBrwColumn
para que se cambien todos de una y no entrar a cada pantalla dónde hay
un browse, supongo que se puede pero no doy en el clavo.
Gracias.

CLASS TBROWSE FROM XBROWSE
PROPERTY oHeader:oFont INIT TFont():Create( "Arial", -10,, 700 )
ENDCLASS
En cualquier lugar del proyecto. Yo los pongo en el prg principal que
carga la aplicacion.
Saludos
Alf+.
El 12/01/2013 20:46, Carlos Ortiz escribió:
> Hace unos años José nos decí­a:
>
> Puedes utilizar la propiedad oHeader del browse, que contiene un objeto
> THeader. Serí­a algo así­:
>
> ::oBrowse1:oHeader:oFont := TFont():Create( "Arial", -10,, 700 )
>
> Lo que quiero hacer es cambiarlo a nivel de clase TBrowse o TBrwColumn
> para que se cambien todos de una y no entrar a cada pantalla dónde hay
> un browse, supongo que se puede pero no doy en el clavo.
>
> Gracias.

Gracias José, lo cargue en un prg que llamo al iniciar
me salta en un error en los : del oHeader
Compilando xAppIniciar.prg...
xAppIniciar.prg(293) Error E0030 Syntax error: "syntax error at ':'"
1 Files, 0 Warnings, 1 Errors
Tiempo de compilación: 0.45s Tiempo de enlazado: 0.01s Tiempo total:
1.09s

Perdón, prueba esto
CLASS THEADER FROM XHEADER
PROPERTY oFont INIT TFont():Create( "Arial", -10,, 700 )
ENDCLASS
Saludos
Alf+.
El 12/01/2013 22:32, Carlos Ortiz escribió:
> Gracias José, lo cargue en un prg que llamo al iniciar
> me salta en un error en los : del oHeader
>
> Compilando xAppIniciar.prg...
> xAppIniciar.prg(293) Error E0030 Syntax error: "syntax error at ':'"
> 1 Files, 0 Warnings, 1 Errors
> Tiempo de compilación: 0.45s Tiempo de enlazado: 0.01s Tiempo total:
> 1.09s

Ahora si José, hice un pequeño retoque pero básicamente sin tu ayuda no
hubiera dado nunca con la clase Header.
Muchas gracias.
THeader quedó así­ sino cuando apenas ejecutaba un browse me pintaba mal,
a la segunda llamada se acomodaba el font al font especificado que de
echo es una variable pública.
CLASS THeader FROM XHeader
METHOD SetFont
METHOD Create
ENDCLASS
//---------------------------------------------------------- ----------------
METHOD SetFont() CLASS THeader
::oFont := TFont():Create( AppData:Browse_Font_Datos[1],;
val( AppData:Browse_Font_Datos[2])-1,;
val( AppData:Browse_Font_Datos[3]),;
700 )
RETURN NIL
//---------------------------------------------------------- --------------------
METHOD Create( oParent ) CLASS THeader
Super:Create( oParent )
::SetFont()
RETURN Self