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.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Como cambiar el font de los header en la clase browse?
- Carlos Ortiz
- Mensajes: 872
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
-
- Mensajes: 420
- Registrado: Sab Ago 16, 2008 9:06 pm
Como cambiar el font de los header en la clase browse?
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.
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.
- Carlos Ortiz
- Mensajes: 872
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
Como cambiar el font de los header en la clase browse?
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
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
@dbfarma
www.dbfarma.com.ar
www.dbfarma.com.ar
-
- Mensajes: 420
- Registrado: Sab Ago 16, 2008 9:06 pm
Como cambiar el font de los header en la clase browse?
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
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
- Carlos Ortiz
- Mensajes: 872
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
Como cambiar el font de los header en la clase browse?
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
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
@dbfarma
www.dbfarma.com.ar
www.dbfarma.com.ar