Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизИзменение размеров Найти похожие ветки
← →
jen_bond (2003-02-24 09:13) [0]Подскажите как можно уменьшить размеры выдаваемого изображения до нужных размеров(высота, ширина)?
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGIMAGE;
Stream:TStream;
begin
try
Stream :=IBQuery1.CreateBlobStream(IBQuery1.FieldByName("FOTO") as TBlobField, bmRead);
jp := TJPEGIMAGE.Create;
jp.CompressionQuality:= 3;
jp.Compress;
jp.LoadFromStream(Stream);
Image1.Picture.Assign(jp);
finally
jp.Free;
Stream.Free;
end;
end;
← →
Song (2003-02-24 09:49) [1]TBitMap.StretchDraw()
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c