zoom |
|
尚未結案
|
|
poko
一般會員   發表：2 回覆：0 積分：0 註冊：2002-10-13 發送簡訊給我 |
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 本人是新手, 請問一下, 如何寫zoom fucntion 請高手教路 謝你是說 zoom in & zoom out 吧?? 也就是所謂的 scale 嗎?? 這個可以用 TImage 或 TPaintBox 來實現 假設你有一個 bitmap 300x400 pixels, 24 bits scale 比率從 1/10 ~ 10 原本 TImage 的長跟寬同樣假設為 300x400 stretch 屬性設為 true (1)當 scale 比率為 1/10 的時候 把原來的 bitmap 貼到 TImage 中某個 30x40 的 Rect 裡面 至於位移(指在 TImage 中的位移)~~就要看你自己要怎麼定義了 (2)當 scale 比率為 1 的時候 把原來的 bitmap 貼滿整個 TImage (3)當 scale 比率為 2 的時候 選取原來 bitmap 中某個 150x200 的 Rect 貼滿整個 TImage 至於位移(指在 bitmap 中的位移)~~就要看你自己要怎麼定義了 ....................................................... (4)當 scale 比率為 10 的時候 選取原來 bitmap 中某個 30x40 的 Rect 貼滿整個 TImage 至於位移(指在 bitmap 中的位移)~~就要看你自己要怎麼定義了 以上做法~~參考看看吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2002-10-13 00:12:19
IP:203.198.xxx.xxx 未訂閱
系統時間：2024-04-30 11:45:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |