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

[Juan M. Puertas]

​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 :-)

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