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

Копирование Canvas в Clipboard   Найти похожие ветки 

← →
Ptr   (2002-12-30 13:51) [0]

Уважаемые !!! Как скопировать содержимое окна (но не окна полностью, а только рабочей области) в Clipboard. Окно может быть скрыто.

---

← →
MBo ©   (2002-12-30 14:02) [1]

GetDC - получаем контекст клиентской области, BitBlt его на TBitmap, который Assign в ClipBoard.

---

← →
Ptr   (2002-12-30 14:37) [2]

Написал по Вашему рецепту, но не работает...

procedure TForm1.BitBtn4Click(Sender: TObject);
var
PtrHDC: HDC;
MyFormat : Word;
PtrBitMap: TBitmap;
AData,APalette : THandle;
begin
PtrHDC := GetDC(Handle);
PtrBitMap := TBitmap.Create;
BitBlt(PtrBitMap.Canvas.Handle,0,0,Width,height,PtrHDC,Width,height,SrcCopy);
Clipboard.Assign(PtrBitMap);
end;

---

← →
MBo ©   (2002-12-30 14:47) [3]

var
PtrHDC: HDC;
PtrBitMap: TBitmap;
begin
PtrHDC := GetDC(Handle);
PtrBitMap := TBitmap.Create;
PtrBitMap.Width:=ClientWidth;
PtrBitMap.Height:=ClientHeight;
BitBlt(PtrBitMap.Canvas.Handle,0,0,ClientWidth,ClientHeight,
PtrHDC,0,0,SrcCopy);
Clipboard.Assign(PtrBitMap);

---

← →
MBo ©   (2002-12-30 14:48) [4]

и в конце
PtrBitMap.Free;

---

← →
Ptr   (2002-12-30 14:51) [5]

ОГРОМНОЕ СПАСИБО !!!!!!!

---

← →
Ptr   (2002-12-30 15:24) [6]

Уважаемый MBo !!!
А как быть, если окно частично скрыто?
Тогда в Clipboard копируется только видимая часть?

---

← →
MBo ©   (2002-12-30 15:43) [7]

>А как быть, если окно частично скрыто?
тогда нетривиально
Посмотри
http://www.fengyuan.com/article/wmprint.html

---

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

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



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