5 replies to this topic

[enecumene]

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 , para éste truco se utilizó la API SystemParametersInfo de Windows, aquí el code:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStruct: TNonClientMetrics;
begin
  MyStruct.cbSize:=SizeOf(TNonClientMetrics);
  SystemParametersInfo(
    SPI_GETNONCLIENTMETRICS,
    SizeOf(TNonClientMetrics),
    @MyStruct,
    0);
  MyStruct.lfCaptionFont.lfHeight:=14;
  MyStruct.lfCaptionFont.lfFaceName:='Arial';
  SystemParametersInfo(
    SPI_SETNONCLIENTMETRICS,
    SizeOf(TNonClientMetrics),
    @MyStruct,
    0);
end;

Qué lo disfruten .

Saludos.

[Fenareth]

Jejejeje, andas con todo amigo !

Gracias por el aporte

Saludox !

[escafandra]

Buen truco, amigo. 

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.   Este tipo de actividad es la que me gusta y la que enriquece el foro. 

Saludos.

[enecumene]

Buen truco, amigo. 

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.   Este tipo de actividad es la que me gusta y la que enriquece el foro. 

Saludos.

Pues somos dos

[egostar]

Poco a poco delphiaccess se va nutriendo amigos , "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

[eduarcol]

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



jeje, es broma, por si no lo habian notado