Bilddatei verkleinert in ein TImage laden

[Whookie]

Versuch es mal mit sowas

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('test.bmp');
    Image1.Canvas.StretchDraw(Rect(10,5,bmp.Width, bmp.Height), bmp);
  finally
    bmp.Free;
  end;
end;

Mit StretchDraw kannst du die einkopierte Grafik auch noch verkleinern oder vergößern. Etwa mit:

Delphi-Quellcode:

...
Image1.Canvas.StretchDraw(Rect(10,5,bmp.Width Div 2, bmp.Height Div 2), bmp);
...
end;