Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Изменение размеров изображения Fastlib

Автор: AlexDi 1.3.2013, 17:45

Что то всё не пойму как изменить размер изображения
с помощью FastLib -

Код


Var Src,Dst:TFastDIB;
begin
//Src.LoadFromFile('aaa.bmp');
Src.LoadFromHandle(Image1);
Dst.SetSize(300, 200, Src.Bpp);
Bilinear(Src, Dst); // или SmoothResize
end;

Вот если изображение в файле, то понятно, а вот как связать с Image1..?

Автор: AlexDi 2.3.2013, 06:54

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

Код


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;