PDA

Ver la Versión Completa : cambiar el tamaño de los gráficos


adebonis
02-07-2003, 21:22:44
Hola. Tengo que realizar la siguente tarea:

A partir de unos ficheros .bmp de los que no sé su medida, y pueden ser diferentes entre sí, debo traspasarlos a un componente TBitmap, pero este componente tiene unas medidas fijas (1122 de alto por 794 de alto) y quisiera que el gráfico no me quedara cortado tal como me pasa ahoroa, sino que mantuviera toda su imagen. Lo mismo que hace la propiedad Stretch del componente TImage.

Gracias.

andres1569
02-07-2003, 23:28:26
procedure PegaImagenAjustada (BitmapFijo: TBitmap; FileName: String);
var
ABitmap : TBitmap;
begin
ABitmap := TBitmap.Create;
try
ABitmap.LoadFromFile (FileName);
with BitmapFijo do
Canvas.StrechtDraw (Rect (0, 0, Width, Height), ABitmap);
finally
ABitmap.Free;
end;
end;


NOTA: Se supone que BitmapFijo ya mide eso que tu quieres, 1122 x 794