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

Как скопировать рисунок из канвы в буфер   Найти похожие ветки 

← →
Vinum   (2008-01-23 22:44) [0]

Приветствую всех.
Собсно сабж :) Подскажите пожалуйста, в книге по KOL не нашел

---

← →
Дмитрий К ©   (2008-01-24 01:46) [1]

Например, скопировать на временный bitmap и воспользоваться методом CopyToClipboard.

---

← →
Vinum   (2008-01-24 15:11) [2]

Я так и хотел, но у меня ума не хватило скопировать на временный битмап,
на панели очень много всего нарисовано, чтоб не переписывать всё рисование по отношению к битмапу, а сразу, одной-двумя командами скопировать всю канву панели в битмап, так можно?
например я пишу

procedure TForm1.Panel1Paint(Sender: PControl; DC: HDC);
begin
 with sender.Canvas^ do
 begin
  brush.color:=$ffffff;
  rectangle(0,0,300,300);
  pen.Color:=0;
  moveto(100,10);
  lineto(50,50);
 end;
end;

procedure TForm1.Button1Click(Sender: PObj);
var dst,src:trect;
begin
dst.Left:=0;
dst.Top:=0;
dst.TopLeft.X:=0;
dst.TopLeft.Y:=0;
dst.BottomRight.X:=300;
dst.BottomRight.Y:=300;

src.Left:=0;
src.Top:=0;
src.TopLeft.X:=0;
src.TopLeft.Y:=0;
src.BottomRight.X:=300;
src.BottomRight.Y:=300;

 bmp.Create;
 bmp.Width:=300;
 bmp.Height:=300;
 bmp.Canvas.CopyRect(dst,panel1.Canvas,src);
 bmp.CopyToClipboard;
end;

и ничего не происходит, только программа вылетает
Подскажите пожалуйста.

---

← →
Vladimir Kladov ©   (2008-01-24 15:18) [3]

bmp.Create;


bmp := NewBitmap...

---

← →
Vinum   (2008-01-24 18:44) [4]

Спасибо огромное

---

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

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



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