hornacek
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:29 回覆:76 積分:21 註冊:2004-02-02
發送簡訊給我
|
請問固定間距的英文字型有哪些?
目前我知道的有fixedsys, Courier New 這兩種windows中內建的字型,
除了這兩種以外還有別的嗎?不管是內建的還是非內建的,謝謝!
|
richtop
資深會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:122 回覆:646 積分:468 註冊:2003-06-10
發送簡訊給我
|
hornacek 您好: 有個耍賴的方法,供您參考。
首先利用Screen->Fonts讀取所有的字型,再分別寫英文字I與W,之後比較其寬度,藉以判斷是否為固定寬度。 ![]() < class="code">//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int w1, w2;
for (int k=0; k Fonts->Count-1; k )
{ Form1->Canvas->Font->Name = Screen->Fonts->Strings[k];
w1 = Form1->Canvas->TextWidth("I");
w2 = Form1->Canvas->TextWidth("W");
if ( w1==w2 )
{ ListBox1->Items->Add(Screen->Fonts->Strings[k]);
}
}
}
//---------------------------------------------------------------------------
//選用先前得到的字型,測試輸出結果: void __fastcall TForm1::Button2Click(TObject *Sender)
{
if ( FontDialog1->Execute() )
{ Form1->Canvas->Font = FontDialog1->Font; float w1, w2;
w1 = Form1->Canvas->TextWidth("I");
w2 = Form1->Canvas->TextWidth("W");
Form1->Canvas->TextOut(10, 10, "IIIWWW");
Form1->Canvas->TextOut(10, 30, "HHHJJJ") ;
ShowMessage(FloatToStr(w1/w2));
}
} RichTop 敬上 =====*****
把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題!
=====##### 發表人 - richtop 於 2004/08/23 15:52:14
|
hornacek
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:29 回覆:76 積分:21 註冊:2004-02-02
發送簡訊給我
|
這個方法還真是有意思!
可以不用在用肉眼去分辨是否為固定間距了...
|
hornacek
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:29 回覆:76 積分:21 註冊:2004-02-02
發送簡訊給我
|
這個方法還真是有意思!
可以不用再用肉眼去分辨是否為固定間距了...
|
hornacek
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:29 回覆:76 積分:21 註冊:2004-02-02
發送簡訊給我
|
殘念~~~這個方法似乎行不通...
每個字型都符合 if ( w1==w2 ) 這個條件... 看來TextWidth這個函數對每種字型的回傳值都是一樣...
|
hornacek
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:29 回覆:76 積分:21 註冊:2004-02-02
發送簡訊給我
|
謝啦!It's working...
現在才發現有好多固定間距的字型,
不過很多字型看起來不知道是什麼語言?
|