請教為何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 你好:
加入以下這一行看看可不可以呢??
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
danielj
初階會員 發表：65 回覆：135 積分：40 註冊：2003-06-11 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 謝謝RaynorPao的回答！ 不過我曾經試過加入那一行，結果是Image的範圍變大了，但只是針對原來小圖的部分做放大，而不是對全圖做放大… 感覺上，好像影像已經被截掉了…danielj 你好: 那改成這樣子呢??
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
danielj
初階會員 發表：65 回覆：135 積分：40 註冊：2003-06-11 發送簡訊給我 |
發表時間：2003-08-25 11:13:03
IP:203.74.xxx.xxx 未訂閱
系統時間：2024-05-14 17:11:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |