[Lazarus-es] Graficos: ttf que no está en el Sistema

Iván Mesa iv.mesa.prg en gmail.com
Mie Feb 11 13:07:08 CET 2015


Hola.
Así de pronto, a lo mejor en ....Font.Name no deberías poner el nombre 
del fichero, solo el de la fuente.
Un saludo,
Iván.

El 11/02/2015 a las 12:34, Juan M. Puertas escribió:
> ​Hola.
> He hecho una aplicación que dibuja en un TImage una serie de canvas 
> con elipses, líneas, etc. y quisiera añadir unos símbolos de una 
> fuente ttf que no está en el Sistema.
> Mi intento ha sido este:
> -----------------------------------------------------------------------------------
>   Bmp: TImage;
>     (...)
>   SetBkMode(Form1.bmp.Canvas.Handle, TRANSPARENT);
>   Form1.bmp.Canvas.FillRect(0,0, Form1.bmp.width,Form1.bmp.height);
>   Form1.bmp.Canvas.Brush.Color:=RGBToColor(255,255,255);
>   Form1.Bmp.Canvas.Ellipse(50,50,175,175);
>
>   Form1.bmp.Canvas.Font.Create;
>   // Font that is not in the system:
>   Form1.bmp.Canvas.Font.Name:= Application.Location + 'AstroGadget.ttf';
>
>   Form1.bmp.Canvas.Font.Name:='AstroGadget.ttf'; // New ttf
>   Form1.bmp.Canvas.Font.Size:=23;
>   Form1.bmp.Canvas.TextOut(50,50, 'Hello'); // Don't work (The output 
> is the default ttf)
> -----------------------------------------------------------------------------------
> El programa no da error, pero la fuente ttf que aparece no es la que 
> he pedido, sino la que hay por defecto.
> ¿Alguien tiene alguna idea de cómo hacerlo?
> Gracias :-)
>
>>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150211/8c7bbac7/attachment-0002.html>


More information about the Lazarus-es mailing list