解析度改變後如何維持原來字型的大小? |
答題得分者是:buliang
|
jck1
一般會員 發表:53 回覆:67 積分:24 註冊:2002-05-23 發送簡訊給我 |
|
chiehmin
高階會員 發表:13 回覆:134 積分:134 註冊:2002-05-23 發送簡訊給我 |
|
jck1
一般會員 發表:53 回覆:67 積分:24 註冊:2002-05-23 發送簡訊給我 |
我找到了一篇相關的文章
在http://community.borland.com/article/0,1410,15944,00.html
覺得蠻有用的。 其中有一段是用來改變字的大小的
type TFooClass = class(TControl); { needed to get at protected } { font property } var i: integer; begin for i := ControlCount - 1 downto 0 do TFooClass(Controls[i]).Font.Size := (NewFormWidth div OldFormWidth) * TFooClass(Controls[i]).Font.Size; end;請問這裡的NewFormWidth和OldFormWidth是指什麼呢?? 是指在還未Scaled之前的FormWith,和Scaled以後的FormWidth嗎? 如是這樣,我在設計時是用800*600 原form的width是768,後來調成1024*768後變成983 而上面的式子一算 (NewFormWidth div OldFormWidth) * TFooClass(Controls[i]).Font.Size; font.size 還是 乘於 1 (div是整數運算) 故font.size不會變 這樣會不會怪怪的, 我是想說font能不能也跟著form一樣也變大呢?? |
buliang
一般會員 發表:1 回覆:3 積分:5 註冊:2002-03-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |