Convertir True Type Fonts en un BMP

[[seoane]]

Se me ocurre que puedes usar algo parecido a esto:

http://www.clubdelphi.com/foros/show...14&postcount=1

[[cHackAll]]

Yo personalmente haría algo como ésto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Bitmap: TBitmap;
 Index: Cardinal;
 ASCII: array[0..255] of Byte;
begin
 Index := High(ASCII);
 repeat Dec(Index);
  ASCII[Index] := Index + 1;
 until Index = 0;
 Bitmap := TBitmap.Create;
 Bitmap.Height := 64;
 Bitmap.Canvas.Font.Name := 'Comic Sans MS'; // es TrueType
 Bitmap.Canvas.Font.Size := 24;
 Bitmap.Width := Bitmap.Canvas.TextWidth(PChar(@ASCII)) + 16;
 Bitmap.Canvas.TextOut(8, 8, PChar(@ASCII));
 Bitmap.SaveToFile('c:\image.bmp');
 Bitmap.Destroy;
end;

Sin embargo me suena algo raro escuchar TrueType + ASCII

[pmcastilla]

Muchas gracias Seoane y cHackAll por el tiempo y las ganas de ayudarme!!!!
La verdad que me sirvio un monton!!!
Saludos y exitos!