Использование CopyRect()

[Dr Evil]

Здравствуйте! Возникла такая проблема.
Имею картинку 500*500 необходимо скопировать часть картинки 20*20
проблема в том что если участок копирование находится скажем в правом верхнем углу...
то задав размер битмапа куда будем копировать 20*20 мы попросту не увидим картинку а увидим если только зададим размер битмапа 500*20

Помогите плизз разобраться
Вот пример исходника

 bit := TBitmap.Create;
  bit.Width := 20;
  bit.Height := 20;


  bit.Canvas.CopyRect(Bounds(a, b, c, d), Image1.Picture.Bitmap.Canvas, Bounds(a, b, c, d));
  bit.SaveToFile(ExtractFilePath(Application.ExeName) + '1.bmp');
  Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.bmp');

[Dr Evil]

Всем спасибо кто пытался и кто не пытался помочь - проблему решил самостоятельно - зашарил

PS Тему можно закрывать

[irkyt]

Написал бы тогда что исправил) И как разобрался)

[Dr Evil]

Цитата: Сообщение от irkyt Написал бы тогда что исправил) И как разобрался)

Вот рабочий кусок кода

procedure TForm1.Button2Click(Sender: TObject);
var
  q, w: TRect;
  left_, top_, right_, bottom_: Integer;
  bit: TBitmap;
begin

  left_ := StrToInt(Edit1.Text);
  top_ := StrToInt(Edit2.Text);
  right_ := StrToInt(Edit3.Text);
  bottom_ := StrToInt(Edit4.Text);

  bit := TBitmap.Create;
  bit.Width := right_ - left_;
  bit.Height := bottom_ - top_;

  q := Rect(left_, top_, right_, bottom_);
  w := Rect(0, 0, right_ - left_, bottom_ - top_);

//перепутал местами w и q, а также сразу не понял что left и top для w должны быть = 0 

  bit.Canvas.CopyRect(w, Image1.Picture.Bitmap.Canvas, q);
  bit.SaveToFile(ExtractFilePath(Application.ExeName) + '1.bmp');
  Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.bmp');

end;