06 julio 2007

Convertir un icono en imagen BMP

Aunque hay cientos de librerías de iconos por la red que suele utilizar todo el mundo para sus programas, lo ideal sería diseñar nuestros propios iconos utilizando como plantilla los que hay por Internet.

Se que hay decenas de programas de diseño que convierten entre distintos formatos, pero lo ideal sería tener nuestro propio conversor. Para ello tenemos el siguiente procedimiento que convierte un archivo ICO en una imagen BMP para que luego podamos utilizarla en nuestras aplicaciones:

procedure ConvertirImagen( sIcono, sBMP: String );
var
Bitmap: TBitmap;
Imagen: TImage;
begin
Imagen := TImage.Create( nil );
Imagen.Picture.LoadFromFile( sIcono );
Bitmap := TBitMap.Create;

with Bitmap do
begin
PixelFormat := pf24bit;
Height := Application.Icon.Height;
Width := Application.Icon.Width;
Canvas.Draw( 0, 0, Imagen.Picture.Graphic );
end;

Bitmap.SavetoFile( sBMP );

Imagen.Free;
end;

El primer parámetro es el icono y el segundo la imagen BMP resultante. Lo que hace el procedimiento es cargar el icono en un objeto TImage, para después copiar su contenido en un bitmap antes de guardarlo en un archivo.

Pruebas realizadas en Delphi 7.

No hay comentarios:

Publicidad