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

Не получается скопировать изображение и вставить его в др.   Найти похожие ветки 

← →
mmms   (2006-06-08 11:43) [0]

Здравствуйте! Вроде бы ничего сложного, но не могу сам разобраться, прошу вашей помощи. Есть файл bmp (64*64) на диске (или уже открытый в TImage, без разницы). Создаю TBitMap (600*400), необходимо скопировать файл bmp на этот битмап.


procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 try
   Bitmap.Width := 600;
   Bitmap.Height := 400;
   Bitmap.Canvas.CopyRect(Rect(0, 0, 64, 64), Image1.Picture.Bitmap.Canvas, Bounds(10, 10, 74, 74));
   Bitmap.SaveToFile("c:\new.bmp");
 finally
   Bitmap.Free;
 end;
end;


В результате выполнения кода - картинка на Image1 стирается, а на new.bmp - белый фон. :(

---

← →
tButton ©   (2006-06-08 11:46) [1]

BitBlt(bitmap.Canvas.Handle, Image1.Picture.Bitmap.Canvas.Handle...

---

← →
tButton ©   (2006-06-08 11:47) [2]

суть в том что, насколько я помню, передавать нужно не объект типа tCanvas, а хэндл этого объекта)

---

← →
mmms   (2006-06-08 11:49) [3]

Спасибо, а как тогда вставить в определенную позицию Bitmap(который 600*400)?

---

← →
mmms   (2006-06-08 11:51) [4]

Ага, понял, пробую.

---

← →
mmms   (2006-06-08 11:57) [5]

Нашел вроде, почему первый код не работал, у меня в Image1 была иконка загружена. Пользуюсь советом от tButton. Спасибо!

---

← →
tButton ©   (2006-06-08 11:58) [6]

=)

---

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

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



Память: 0.46 MB
Время: 0.033 c