Скачать: CL | DM;

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

← →
TBitmap   (2008-10-13 12:47) [0]

Вот код:

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;


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

---

← →
brother ©   (2008-10-13 12:52) [1]

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

---

← →
{RASkov} ©   (2008-10-13 12:55) [2]

assign

---

← →
{RASkov} ©   (2008-10-13 12:57) [3]

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

---

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

> Image1.Picture.Assign(bmp2);

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

---

← →
TBitmap   (2008-10-13 13:27) [5]

Понял,

 bmp2.Assign(bmp1);


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c