Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Изменение размеров   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
8-17206
trotski
2002-11-26 06:03
2003.03.06
DirectX


14-17285
Vitus
2003-02-19 10:48
2003.03.06
Как проверить есть ли подключение к Инету?


8-17210
XED
2002-11-18 21:10
2003.03.06
Вопрос глупый, но...


1-17016
Charly22
2003-02-21 21:02
2003.03.06
Отображение реестра в TTreeView


14-17288
Palladin
2003-02-19 22:23
2003.03.06
Необычная просьба...