請教為何Panel上的Image圖無法完整畫出來? |
答題得分者是:RaynorPao
|
danielj
初階會員 發表:65 回覆:135 積分:40 註冊:2003-06-11 發送簡訊給我 |
小弟在Panel上面放上一個Image,Image的Align屬性設為alClient,第一次載入圖片時很正常,但是一但將Panel放大後,Image上的圖好像還是侷限在原來的大小,請教大家,到底是那邊的設定有問題呢?謝謝! 我的程式碼如下:
void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenPictureDialog1->Execute()) { TJPEGImage *jpg = new TJPEGImage(); jpg->LoadFromFile(OpenPictureDialog1->FileName); Panel1->ClientHeight = jpg->Height ; Panel1->ClientWidth = jpg->Width ; Image1->Canvas->Draw(0,0,jpg); ShowMessage("OK"); Panel1->ClientHeight = jpg->Height*2 10; Panel1->ClientWidth = jpg->Width *2 10; Image1->ClientHeight = jpg->Height*2; Image1->ClientWidth = jpg->Width*2; Image1->Canvas->StretchDraw(Panel1->ClientRect,jpg); delete jpg; } } |
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 小弟在Panel上面放上一個Image,Image的Align屬性設為alClient,第一次載入圖片時很正常,但是一但將Panel放大後,Image上的圖好像還是侷限在原來的大小,請教大家,到底是那邊的設定有問題呢?謝謝! 我的程式碼如下:danielj 你好: 加入以下這一行看看可不可以呢?? >void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenPictureDialog1->Execute()) { TJPEGImage *jpg = new TJPEGImage(); jpg->LoadFromFile(OpenPictureDialog1->FileName); Panel1->ClientHeight = jpg->Height ; Panel1->ClientWidth = jpg->Width ; Image1->Canvas->Draw(0,0,jpg); ShowMessage("OK"); Panel1->ClientHeight = jpg->Height*2 10; Panel1->ClientWidth = jpg->Width *2 10; Image1->ClientHeight = jpg->Height*2; Image1->ClientWidth = jpg->Width*2; Image1->Canvas->StretchDraw(Panel1->ClientRect,jpg); delete jpg; } }
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
danielj
初階會員 發表:65 回覆:135 積分:40 註冊:2003-06-11 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 謝謝RaynorPao的回答! 不過我曾經試過加入那一行,結果是Image的範圍變大了,但只是針對原來小圖的部分做放大,而不是對全圖做放大… 感覺上,好像影像已經被截掉了…danielj 你好: 那改成這樣子呢?? < class="code"> void __fastcall TForm1::Button5Click(TObject *Sender) { if(OpenPictureDialog1->Execute()) { if(FileExists(OpenPictureDialog1->FileName)) { Image1->Stretch=true; TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromFile(OpenPictureDialog1->FileName); Panel1->ClientHeight=jpg->Height; Panel1->ClientWidth=jpg->Width; Image1->Height=jpg->Height; Image1->Width=jpg->Width; // Image1->Canvas->Draw(0, 0, jpg); Image1->Picture->Assign(jpg); ShowMessage("OK"); Panel1->ClientHeight=jpg->Height*2 10; Panel1->ClientWidth=jpg->Width*2 10; Image1->ClientHeight=jpg->Height*2; Image1->ClientWidth=jpg->Width*2; // Image1->Canvas->StretchDraw(Panel1->ClientRect, jpg); delete jpg; } } } -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/08/25 12:25:31
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
danielj
初階會員 發表:65 回覆:135 積分:40 註冊:2003-06-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |