Уменьшить Bitmap

[RIO]

Здравствуйте ! Есть процедура которая уменьшает в размерах BMP изображение :

var
  bmp: TBItmap;
begin
  if opendialog1.execute then
  begin
      bmp:= Tbitmap.Create;
      try
        bmp.LoadFromFile(opendialog1.filename);
        bmp.Width := 640;
        bmp.Height:= 480;
        bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, bmp );
        Self.Canvas.Draw(100, 10, bmp );
        bmp.Assign( bmp );
        bmp.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp.free;
      end;
  end;
end;

Но она его не уменьшает, а как бы обрезает, как сделать, что бы процедура именно уменьшала изображение ? ? ?

[DomiNick]

Хм... У меня работает... =)

[Stilet]

Вот еще способ

var
  bmp: TBItmap;
begin
  if opendialog1.execute then
  begin
      bmp:= Tbitmap.Create;
      try
        bmp.LoadFromFile(opendialog1.filename);
        bmp.Width := 640;
        bmp.Height:= 480;
        StretchBlt(bmp.Canvas.Handle,0,0,100,100,bmp.Canvas.Handle,0,0,640,480,SRCCOPY);
        bmp.Width:=100;
        bmp.Height:=100;
        Self.Canvas.Draw(10, 10, bmp );
        bmp.Assign( bmp );
        bmp.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp.free;
      end;
  end;
end;

Только там в цветности потери. Но смысл остается тот же.

[Karabash]

В ситуации, когда неизвестно, какого результата автор вопроса добивается, сложно дать исчерпывающую информацию для него.

Например, операторы bmp.Width := 640; и bmp.Height:= 480; действительно "образают" изображение в BitMap, если размеры исходного были больше 640х480.
По некоторым догадкам можно сказать, что именно этот размер и нужен автору для результирующего изображения, записываемого в файл.
RIO, чтобы приведенная вами процедура не "обрезала" исходное изображение не нужно уменьшать размеры холста BitMap, а преобразовывать с помощью StretchDraw, ЗАДАВАЯ необходимый вам размер прямоугольника в параметре метода. Этот метод не обрезает, а именно модифицирует изображение.

var
  bmp: TBItmap;
begin
  if opendialog1.execute then
  begin
      bmp:= Tbitmap.Create;
      try
        bmp.LoadFromFile(opendialog1.filename);
//        bmp.Width := 640;
//        bmp.Height:= 480;
//        bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, bmp );
        bmp.Canvas.StretchDraw(Rect(0, 0, 640, 480), bmp);
        Self.Canvas.Draw(100, 10, bmp);
        bmp.Assign( bmp );
        bmp.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp.free;
      end;
  end;
end;

При такой организации преобразования изображения в BitMap, как сделано у автора, получается забавный эффект: уменьшенное изображение накладывается на исходное.
Если же нужно спрятать в файл только результирующее изображение, то надо применять две переменные типа TBitMap. В одной хранить исходное изображение, в другой преобразованное и которое записывается в файл.

var
  bmp, bmp2: TBItmap;
begin
  if opendialog1.execute then begin
    bmp:= Tbitmap.Create;
    try
      bmp.LoadFromFile(opendialog1.filename);
      bmp2 := Tbitmap.Create;
      try
        bmp2.Width := 640;
        bmp2.Height:= 480;
        bmp2.Canvas.StretchDraw(Rect(0, 0, 640, 480), bmp);
        Self.Canvas.Draw(100, 10, bmp2);
        bmp2.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.BMP' ));
      finally
        bmp2.free;
      end;
    finally
      bmp.free;
    end;
  end;

[RIO]

Спасибо всем Дали исчерпывающую информацию