Ir al contenido


Foto

Cambiar el tamaño y tipo de letra de todos los captions de Windows


  • Por favor identifícate para responder
5 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 01:56

Con este truco aprenderemos a cambiar el tamaño y el tipo de letra de todos los captions de Windows y no Windows desde Delphi :D , para éste truco se utilizó la API SystemParametersInfo de Windows, aquí el code:



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   MyStruct: TNonClientMetrics;
  4. begin
  5.   MyStruct.cbSize:=SizeOf(TNonClientMetrics);
  6.   SystemParametersInfo(
  7.     SPI_GETNONCLIENTMETRICS,
  8.     SizeOf(TNonClientMetrics),
  9.     @MyStruct,
  10.     0);
  11.   MyStruct.lfCaptionFont.lfHeight:=14;
  12.   MyStruct.lfCaptionFont.lfFaceName:='Arial';
  13.   SystemParametersInfo(
  14.     SPI_SETNONCLIENTMETRICS,
  15.     SizeOf(TNonClientMetrics),
  16.     @MyStruct,
  17.     0);
  18. end;



Qué lo disfruten (y).

Saludos.
  • 0

#2 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 24 septiembre 2009 - 02:04

Jejejeje, andas con todo amigo ! :p

Gracias por el aporte (y)

Saludox ! :D
  • 0

#3 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 24 septiembre 2009 - 02:06

Buen truco, amigo.  (y)

Parece que ha aparecido una especie de fiebre repentina y extendida, por toda la Comunidad DA, que se manifiesta por publicar trucos y código a cual mas interesante. :D  Este tipo de actividad es la que me gusta y la que enriquece el foro.  (y)

Saludos.
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 02:08

Buen truco, amigo.  (y)

Parece que ha aparecido una especie de fiebre repentina y extendida, por toda la Comunidad DA, que se manifiesta por publicar trucos y código a cual mas interesante. :D  Este tipo de actividad es la que me gusta y la que enriquece el foro.  (y)

Saludos.


Pues somos dos :D (y)
  • 0

#5 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 24 septiembre 2009 - 02:16

Poco a poco delphiaccess se va nutriendo amigos :D, "cuasi" parece que estaban esperando la recta final de nuestro aniversario para sacar todos sus trucos :), lo cual me parece genial.

Pronto abriremos un nuevo apartado en esta comunidad, ya les dejaré saber de que se trata :)

Muchas gracias por su entusiasmo....

Salud OS
  • 0

#6 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 25 septiembre 2009 - 07:42

epa enecumene, gracias por publicar los trucos quete envio, ahora te envio otros para que los sigas publicando  :cool:



jeje, es broma, por si no lo habian notado  :undecided:
  • 0




IP.Board spam blocked by CleanTalk.