【Delphi】【問題】Excel檔中同一個cell要怎麼設定不同的字體呢? |
|
尚未結案
|
|
firecat
一般會員   發表：5 回覆：4 積分：1 註冊：2004-02-17 發送簡訊給我 |
在同一個cell中,user要求中文字要標楷體,英文字型則要用Times New Roman,請問要怎麼實現這個願望呢?請大家指點迷津囉! 另外在表裡面有特殊符號,分別是
1.Wingdings 2字型的 R -->看起來是一個方框裡有一個勾
2.Wingdings 2字型的 £ -->看起來是一個方框裡面為空白 方框加勾我用
xls.workbooks[1].cells[1,1].Font.Name:='Wingdings 2';
xls.workbooks[1].cells[1,1]:='R';
解決了 但是 £ 在Delphi裡顯示不出來
怎麼辦哩 @_@
|
|
wyndog
資深會員  發表：7 回覆：362 積分：348 註冊：2004-10-12 發送簡訊給我 |
引言: 在同一個cell中,user要求中文字要標楷體,英文字型則要用Times New Roman,請問要怎麼實現這個願望呢?請大家指點迷津囉!偷懶的方法，先設定成 標楷體，再設定成 Times New Roman 這樣就會中文字是標楷體，英文字是 Times New Roman 不過，要先把要填的字塡進去，再設定字型 因為Times New Roman是英文字型，Excel 會自己判斷中英文字，就不會去動到中文字的字型設定了 引言: 但是 £ 在Delphi裡顯示不出來 怎麼辦哩 @_@二個方法: 1. 在用輸入 ￡ 的地方，用 {按下 ALT，鍵入 163，放開 ALT} 代替 2. 或者是用 WideChar($A3) 代替，根據實驗 Chr($A3) 不行... 發表人 - reptile 於 2005/04/15 09:39:30 |
|
firecat
一般會員 發表：5 回覆：4 積分：1 註冊：2004-02-17 發送簡訊給我 |
感恩^_^
果然是要先塞值再設字型才行
先設的話,標楷體會自己變成新細明體
引言: 二個方法: 1. 在用輸入 ￡ 的地方，用 {按下 ALT，鍵入 163，放開 ALT} 代替 2. 或者是用 WideChar($A3) 代替，根據實驗 Chr($A3) 不行... 發表人 - reptile 於 2005/04/15 09:39:30第一個方法我試不出來耶 第二個方法試出來會變成全型的£ 自己有試過在Delphi裡是可以直接貼上全型的 £ 但是半型的就會有問題 另外全型的 £ 也可以用Char(162) + Char(71)帶出來 我想要弄出的效果是 |
發表時間：2005-04-14 21:32:01
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-05-18 5:57:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |