| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка в коде [WinXP]

De1uxe ©   (2005-12-07 20:23:00) 

Уважаемые мастера помогите пожалуйста.
Имеется следующий код:

  myrect:=rect(10,10,100,100);
  bitmap:=tbitmap.Create;
  bitmap1:=tbitmap.Create;
  bitmap1.LoadFromFile('c:\2.bmp');
  Bitmap.Canvas.CopyRect(myrect,bitmap1.Canvas,myrect);
  bitmap.SaveToFile('c:\1.bmp');
Вот что я хочу от этого кода:
1. Открыл изображение 2.bmp
2. Отрезал прямоугольник с координатами (10,10,100,100)
3. Сохранил отрезаный кусок в 1.bmp
     Но вместо этого я получаю исжодную картинку в файле 1.bmp
В чем дело?

---

Джо   (2005-12-07 22:33:00) [1]

Спамим потихоньку? ;)

---

De1uxe   (2005-12-07 22:32:00) [2]

Большое спасибо помогло!

---

Lamer@fools.ua   (2005-12-07 20:42:00) [3]

Перед CopyRect:
 bitmap.Width := myrect.Right - myrect.Left;
 bitmap.Height := myrect.Bottom - myrect.Top;


---

Virgo_Style   (2005-12-07 20:39:00) [4]

...
bitmap1.LoadFromFile('c:\test.bmp');
with MyRect do begin
 bitmap.Width:=Right-Left+1;
 bitmap.Height:=Bottom-Top+1;
end;
Bitmap.Canvas.CopyRect(myrect,bitmap1.Canvas,myrect);
...

---

de1uxe   (2005-12-07 20:32:00) [5]

Ой не исходную картинку я получаю, а пустую картинку

---

Наверх