Размер изображений

[AlexDn]

Использую Fastlib, пока остановился на таком, код прокручивает, но ровным счётом ничего на форме не происходит..

procedure TForm1.Button2Click(Sender: TObject);
Var Src,Dst:TFastDIB;
begin
//Src.LoadFromFile('aaa.bmp');
Src:=TFastDIB.Create;
Dst:=TFastDIB.Create;
Src.LoadFromHandle(Image1.Picture.Bitmap.Handle);
Dst.SetSize(300, 200, Src.Bpp);
Bilinear(Src, Dst); // или SmoothResize   Bilinear
 Src.Free;
 Dst.Free;
Application.ProcessMessages;
end;

[dummy_user]

Как я понял, нет вывода вашего растра на форму.
Посмотрите метод Draw или что там.

[AlexDn]

Да, уже подправлено, но почему то всё равно на форме ничего не меняется -

procedure TForm1.Button2Click(Sender: TObject);
Var Src,Dst:TFastDIB;
begin
//Src.LoadFromFile('aaa.bmp');
Src:=TFastDIB.Create;
Dst:=TFastDIB.Create;
Src.LoadFromHandle(Image1.Picture.Bitmap.Handle);
Dst.SetSize(115, 45, Src.Bpp);
Bilinear8(Src, Dst); // или SmoothResize   Bilinear
Dst.Draw(Image1.Picture.Bitmap.Canvas.Handle, 0, 0);
  Src.Free;
  Dst.Free;
//Application.ProcessMessages;
end;