如何存Image上的圖片? |
尚未結案
|
4880h009
一般會員 發表:32 回覆:43 積分:15 註冊:2003-11-26 發送簡訊給我 |
我在一個Image上另外放二個Image來畫圖~~哪要如何才可將這些圖片存成一個圖片?
ps :
if (SavePictureDialog1->Execute())
{
Image5->Picture->SaveToFile(SavePictureDialog1->FileName ".bmp") ;
}
我用這樣存,只會將Image5上的圖存起來,放在Image5上面的Image的圖不會存進去,我要如何做呢? 發表人 - taishyang 於 2003/12/31 10:40:51
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
4880h009您好:
您可以參考下面連結
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34780
【發表】圖形合併 (位移 分割 互補版) BY RaynorPao版主
當中的這一段程式
HDC dc; dc=GetDC(GetDesktopWindow()); TCanvas *canvas=new TCanvas; canvas->Handle=dc; Graphics::TBitmap *bmp=new Graphics::TBitmap; bmp->Width=Image1->Width; bmp->Height=Image1->Height; bmp->Canvas->CopyMode=cmSrcCopy; SetStretchBltMode(bmp->Canvas->Handle, STRETCH_HALFTONE); TPoint ptLT, ptRB; ptLT.x=Image1->Left; ptLT.y=Image1->Top; ptRB.x=Image1->Left Image1->Width; ptRB.y=Image1->Top Image1->Height; ptLT=Form1->ClientToScreen(ptLT); ptRB=Form1->ClientToScreen(ptRB); bmp->Canvas->CopyRect(Rect(0, 0, bmp->Width, bmp->Height), canvas, Rect(ptLT.x, ptLT.y, ptRB.x, ptRB.y)); bmp->SaveToFile("merge.bmp"); delete bmp; delete canvas; ReleaseDC(NULL, dc);可達到您的目的 P.S:下次請將您的問題放在合適的地方,這問題應屬於VCL區 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~> |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |