Smoth resize einer Bitmap mit dieser Funktion ?

[soulies]

hoi,

füge mal noch ein refresh ein

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
SmoothResize(Image1.Picture.Bitmap, Image2.Picture.Bitmap);
Image2.Refresh;  // <----
end;

cya