Foros Club Delphi - cambiar el tamaño de los gráficos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - cambiar el tamaño de los gráficos (https://www.clubdelphi.com/foros/showthread.php?t=1911)

adebonis

02-07-2003 20:22:44

cambiar el tamaño de los gráficos

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 22:28:26

Código:

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

La franja horaria es GMT +2. Ahora son las 03:48:10.