Как клонировать vcl-объект?

← →
Arks © (2007-08-20 14:59) [0]

Возможно глупый вопрос, но я давно уже не работал в Делфи. Не могу вспомнить, как клонировать объект, т.е. скопировать его содержимое, а не ссылку на него. В частности мне требуется сделать копию битмапа из имэджа:
bmp := Image1.Picture.Bitmap; // так копируется только ссылка, а как сам объект?

← →
DVM © (2007-08-20 15:06) [1]

> так копируется только ссылка, а как сам объект?

BitBlt или Draw()

← →
DVM © (2007-08-20 15:10) [2]

Это скопирует изображение, сам объект Bitmap надо предварительно создать и выставить у него размеры и глубину цвета перед копированием.

← →
Arks © (2007-08-20 15:13) [3]

> BitBlt или Draw()
? Это ведь api функция и вообще не знаю какая (Draw у TBitmap нет)...
Можете написать код?
Есть bmp :TBitmap и Image1 : TImage.
Скопировать битмап из image1 в bmp.

← →
DVM © (2007-08-20 15:15) [4]

> Draw у TBitmap нет

у канвы его есть зато.

← →
Leonid Troyanovsky © (2007-08-20 15:17) [5]

> Arks © (20.08.07 15:13) [3]

> Можете написать код?

VCL Reference
Assign, Dormant, FreeImage, Monochrome, ReleaseHandle, LoadFromFile example

--
Regards, LVT.

Assign

var Bmp: TBitmap; begin Bmp := TBitmap.Create; Bmp.Width := Image1.Picture.Bitmap.Width; Bmp.Height := Image1.Picture.Bitmap.Height; Bmp.PixelFormat := Image1.Picture.Bitmap.PixelFormat; Bmp.Canvas.Draw(0, 0, Image1.Picture.Bitmap); end;

Спасибо за помощь.

Как клонировать vcl-объект? Найти похожие ветки