Главная страница
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.066 c
1-1121531665
TStas
2005-07-16 20:34
2005.08.07
Почему StretchDraw не уменьшает прапорционально?


4-1118072858
NikNet
2005-06-06 19:47
2005.08.07
Как сделать распознование речи на изображени?


14-1121320552
Магнум
2005-07-14 09:55
2005.08.07
Иван Иванов и Джон Смит


11-1104342568
mdw
2004-12-29 20:49
2005.08.07
С Новым годом!


14-1121153826
БарЛог
2005-07-12 11:37
2005.08.07
Правильно ли дарить подарки так...