請問要如何把圖示(.ico)放入TImage時也可自動縮放到TImage的大小 |
|
尚未結案
|
|
saam
初階會員   發表：61 回覆：75 積分：27 註冊：2003-03-03 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
saam
初階會員 發表：61 回覆：75 積分：27 註冊：2003-03-03 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
這是 help 中有關 Stretch 的一句:
Note: Stretch has no effect if the Picture property contains an icon.
所以, Icon 沒法自動放大縮小.
參考底下幾篇用手動看行不行？
http://delphi.ktop.com.tw/topic.php?topic_id=23589
http://delphi.ktop.com.tw/topic.php?topic_id=23474
http://delphi.ktop.com.tw/topic.php?topic_id=28059 ---
每個人都是一本書
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 要如何把圖示(.ico)放入TImage時,也可自動縮放到TImage的大小呢?saam 你好: 可以使用 Win32 API DrawIconEx 達成目的 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/icons/iconreference/iconfunctions/drawiconex.asp -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
saam
初階會員 發表：61 回覆：75 積分：27 註冊：2003-03-03 發送簡訊給我 |
感謝各位先進的指導: 我使用RaynorPao大大的方法寫一個程式如下, 但是都會出現一個執行階段的
錯誤,好像是DrawIconEx的倒數第二參數型態不對,我該下什麼參數才對呢? procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyIcon:TIcon;
begin
MyIcon.LoadFromFile(ExtractFilePath(Application.ExeName) '\test.ico');
DrawIconEx(Image1.Canvas.Handle, 0, 0, MyIcon.Handle, MyIcon.Width,MyIcon.Height, 0, null , DI_NORMAL or DI_COMPAT);
MyIcon.Free;
end;
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 感謝各位先進的指導: 我使用RaynorPao大大的方法寫一個程式如下, 但是都會出現一個執行階段的 錯誤,好像是DrawIconEx的倒數第二參數型態不對,我該下什麼參數才對呢? procedure TForm1.BitBtn1Click(Sender: TObject); var MyIcon:TIcon; begin MyIcon.LoadFromFile(ExtractFilePath(Application.ExeName) '\test.ico'); DrawIconEx(Image1.Canvas.Handle, 0, 0, MyIcon.Handle, MyIcon.Width,MyIcon.Height, 0, null , DI_NORMAL or DI_COMPAT); MyIcon.Free; end; saam 你好: (1)在 Delphi 中，倒數第二個參數應該是 nil 或 0 吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
saam
初階會員 發表：61 回覆：75 積分：27 註冊：2003-03-03 發送簡訊給我 |
發表時間：2003-04-17 17:09:35
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-04-29 18:36:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |