안녕 하세요... TChart에 대해 공부를 하다가 Clipboard로 copy 하는 CopyToClipboardBitmap procedure를 발견하고 호기심이 생겼어요. 만약 Panel 위에 Chart, Edit, Button...들을 올려놓고 Panel을 통째로 Clipboard로 copy 해보려 하...
최용일
•
2004.12.25 02:59
안녕하세요. 최용일입니다.
아래와 같이 해보세요...
uses
......, ClipBr...
아래와 같이 해보세요...
uses
......, ClipBrd;
procedure TForm1.Button1Click(Sender: TObject);
var
DestRect, SrcRect: TRect;
Bitmap: TBitmap;
BitmapFormat: Word;
BitmapData: THandle;
BitmapPalette: HPalette;
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := Panel1.Width;
Bitmap.Height := Panel1.Height;
SrcRect := Panel1.BoundsRect;
DestRect := Rect(0, 0, Panel1.Width, Panel1.Height);
Bitmap.Canvas.CopyRect(DestRect, Canvas, SrcRect);
Bitmap.SaveToClipboardFormat(BitmapFormat, BitmapData, BitmapPalette);
ClipBoard.SetAsHandle(BitmapFormat, BitmapData);
finally
Bitmap.Free;
end;
end;
그림판 열어서...붙여넣기로 테스트 해보세요...
^^ 항상 즐코하세요...