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

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

Как скопировать один TBitmap в другой?

TBitmap ©   (2008-10-13 12:47:00) 

Вот код:

var bmp1,bmp2:TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
var r:TRect;
begin
 bmp1:=TBitmap.Create;
 bmp2:=TBitmap.Create;

 bmp1.LoadFromFile('e:\IMG\untitled.bmp');

 R.Left:=0; R.Top:=0; R.Right:=bmp1.Width; R.Bottom:=bmp1.Height;
 bmp2.Canvas.CopyRect(R,bmp1.Canvas,R);

 Image1.Picture.Assign(bmp2);

 bmp2.free;
 bmp1.Free;
end;


Что-то не копируется.

---

TBitmap   (2008-10-13 13:27:00) [1]

Понял,

 bmp2.Assign(bmp1);


Всем спасибо!

---

ПРавильный$Вася   (2008-10-13 12:58:00) [2]

> Image1.Picture.Assign(bmp2);

и где у тебя назначение картинке твоего битмапа?

---

{RASkov}   (2008-10-13 12:57:00) [3]

а в [0] второму битмапу bmp2 размер кто будет задавать?

---

{RASkov}   (2008-10-13 12:55:00) [4]

assign

---

brother   (2008-10-13 12:52:00) [5]

а вот так: bmp2.picture:=bmp1.picture ?

---

Наверх