FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Tipo de letra en Delphi
Como puedo configurar mi Entorno de Delphi 6 para que por defecto siempre me ponga el tipo de letra que yo desee, me refiero a los TLabel, TEdit, etc?
Gracias. Otro tema relacionado con el tipo de letra, es: ¿se le puede cambiar el tipo de letra al objeto TMainMenu? Gracias |
#2
|
||||
|
||||
Esto es virtualmente imposible. El entorno de Delphi no es, por así decirlo, como el de PowerPoint que puedes configurar a tu gusto. Los TLabel, TEdit, etc, son clases y cuando insertas uno en tu formulario, obtienen el tipo de letra al momento de construir la clase, no es algo que lean de algún archivo de configuración.
// Saludos |
#3
|
||||
|
||||
Con esta función cambias las fuentes de todos los formularios de la aplicación, mira a ver si por este camino logras algo:
Código:
Function SetCaptionFont(FontName : String) : boolean; Type con = array[0..31] of char; Var NCM : TNONCLIENTMETRICS; begin Result := false; ncm.cbSize := SizeOF(ncm); //Get old NCM IF SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.cbSize, @ncm, 0) then begin //Set new FontName Move(PChar(FontName)[0], ncm.lfCaptionFont.lfFaceName[0], SizeOf(ncm.lfCaptionFont.lfFaceName)); //Set new NCM IF SystemParametersInfo(SPI_SETNONCLIENTMETRICS, ncm.cbSize, @ncm, 0) then Result := true; end; end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|