Código de Delphi - Cargar un bitmap

Cargar un bitmap

Delphi

(1)

Publicado el 12 de Junio del 2003 por Esteban (17 códigos)

11.491 visualizaciones desde el 12 de Junio del 2003

Código que nos muestra como cargar una imagen bitmap, en un formulario, mediante código.

Versión 1
(1)

Publicado el 12 de Junio del 2003

gráfica de visualizaciones de la versión: Versión 1

11.492 visualizaciones desde el 12 de Junio del 2003

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.

Comentarios sobre la versión: Versión 1 (1)

Fabian

16 de Julio del 2004

Aunque el uso de la Api es eficiente y rapido, podrias usar las capacidade propias de delphi y hacerte la vida mas sencilla, reemplazando el codigo que tienes por este que envio, el resultado es el mismo, el codigo mas sencillo, y puedes incluso cargar la imagen de un recurso.

procedure TForm1.FormResize(Sender: TObject);
Var
Mi_Img : TBitMap;
begin
Mi_Img := TBitMap.Create;
try
Mi_Img.LoadFromFile('bitMap.bmp'); //Archivo
//Mi_Img.LoadFromResourceName(Handle, 'MI_IMAGEN'); //Recurso
Canvas.Draw(1,1, Mi_Img);
finally
Mi_Img.Free;
end;

end;

Responder