貼圖 - Delphi K.Top 討論區

發文回覆瀏覽次數：882

推到 Plurk!

推到 Facebook!

貼圖

尚未結案

jason_cyl329
高階會員

發表：123
回覆：155
積分：105
註冊：2003-05-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-02-24 14:02:36

IP:211.23.xxx.xxx 未訂閱

請問，我用以下的程式撰寫，可以將目前的視窗複製，貼到word上，可是卻是黑白的，如何才能作成彩色的?

    TClipboard *CopyClip;
HBITMAP CopyBmp;
 HDC CopyHandle;
 if (ActiveMDIChild == NULL)
  return;     CopyHandle = CreateCompatibleDC(NULL);     CopyBmp = CreateCompatibleBitmap(CopyHandle,ActiveMDIChild- >ClientWidth,ActiveMDIChild->ClientHeight);     SelectObject(CopyHandle,CopyBmp);         StretchBlt(CopyHandle,0,0,ActiveMDIChild->ClientWidth,ActiveMDIChild->ClientHeight,
            ActiveMDIChild->Canvas->Handle,0,0,ActiveMDIChild->ClientWidth,ActiveMDIChild->ClientHeight,SRCCOPY);     CopyClip = new TClipboard;     CopyClip->Open();     CopyClip->Clear();
 //
 CopyClip->SetAsHandle(CF_BITMAP,(unsigned int)CopyBmp);     CopyClip->Close();     delete CopyClip;

發表人 - taishyang 於 2004/02/24 14:16:15

系統時間：2024-06-02 21:11:10

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！