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

Вниз

Почему StretchDraw не уменьшает прапорционально?   Найти похожие ветки 

 
TStas ©   (2005-07-16 20:34) [0]

Пытался прапорционально сжать картинку путем:

bmp:=TBitmap.Create;
bmp.Assign(Image1.Picture.Bitmap);
Image2.Canvas.StretchDraw(ClientRect, bmp);
bmp.Free;

Однако вместо прапорционального уменьшения копируется кусок второй картинки в масштабе 1:1?
Что я неправильно делаю?


 
Essence   (2005-07-16 22:42) [1]

Если Image1 будет пропорционален по размерам с bmp, то всё будет также ОК.

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
if OpenDialog1.Execute then
begin
  Bmp:= TBitmap.Create;
  try
    Bmp.LoadFromFile(OpenDialog1.Filename);
    {Form1.}Canvas.StretchDraw(Rect(0,
                                    0,
                                    Bmp.Width div 2,
                                    Bmp.Height div 2),
                               Bmp);
  finally
    Bmp.Free;
  end;
end;
end;


 
TStas ©   (2005-07-18 13:35) [2]

Я. наверно, не совсем верно поставил вопрос. Чтобы картинка уменьшалась прапорционально, достаточно у нее выставить strech=true. Вопрос был в том, чтобы ее скопировать в файл уже уменьшенной



Страницы: 1 вся ветка

Текущий архив: 2005.08.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1121728449
jcrush
2005-07-19 03:14
2005.08.07
Найти в списке memo буквы КД и по горячим клавишам заменить


1-1121531665
TStas
2005-07-16 20:34
2005.08.07
Почему StretchDraw не уменьшает прапорционально?


4-1117717537
AlexTregubov
2005-06-02 17:05
2005.08.07
Плоский ComboBox


1-1121768733
Виталька2005
2005-07-19 14:25
2005.08.07
Пустая дата в DateTimePicker


10-1098522753
Bend
2004-10-23 13:12
2005.08.07
QuickReport => Word