Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir True Type Fonts en un BMP (https://www.clubdelphi.com/foros/showthread.php?t=46956)

pmcastilla 14-08-2007 21:15:34

Convertir True Type Fonts en un BMP
 
Hola Gente,
Esta es la primera vez que escribo :). Estoy necesitando convertir una Font del type True Type en una imagen BMP con Delphi 7.
Conocen de algun componente que me permita trabajar con el true type font? o alguna otra forma?
Muchas Gracias a Todos!:rolleyes:

seoane 14-08-2007 21:23:55

Vamos por partes.

1. ¿Estamos hablando de hacerlo por medio de un código del delphi?
2. ¿Que características debe tener ese bmp? ¿Alto, Ancho, disposición de los caracteres, etc ...?
3. ¿Para que vas a usar el bmp resultante?

pmcastilla 14-08-2007 21:30:00

Hola Seoane,
Si, la idea es hacerlo en codigo Delphi. El archivo BMP no importa el tamano ya que dependera del tamano de la Fuente. El contenido seria todos los caracteres ASCII.
El BMP resultante lo voy a reprocesar para convertir en columnas de 1 y 0 para otro programa.

seoane 14-08-2007 21:34:48

Se me ocurre que puedes usar algo parecido a esto:

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

cHackAll 14-08-2007 21:39:56

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 14-08-2007 21:43:23

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


La franja horaria es GMT +2. Ahora son las 08:14:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi