//先來個(gè)例子: procedure TForm1.FormPaint(Sender: TObject); constS = '萬一的 Delphi 博客'; varfont: TFont; beginfont := TFont.Create;font.Name := '微軟雅黑';font.Style := [fsBold, fsItalic];font.Color := clRed;font.Height := 72;Canvas.Font := font;Canvas.TextOut(10, 10, S);font.Free; end;//效果圖:

---

//因?yàn)?Canvas 的 Font 屬性就是 TFONT 類的一個(gè)實(shí)例, 所以上面的程序可以簡化為: procedure TForm1.FormPaint(Sender: TObject); constS = '萬一的 Delphi 博客'; beginCanvas.Font.Name := '微軟雅黑';Canvas.Font.Style := [fsBold, fsItalic];Canvas.Font.Color := clRed;Canvas.Font.Height := 72;Canvas.TextOut(10, 10, S); end; //TFont 類的常用屬性:{Name: 字體名稱}{Color: 顏色}{Size、Height: 字號(hào)與字體高度, 都可以設(shè)定字體大小}{Style: 字體樣式; 是個(gè)集合值, 是下面可選值或它們的組合:} fsBold fsItalic fsUnderline fsStrikeOut{Pitch: 是字間距相關(guān)的, 有三個(gè)枚舉值可選(不過我沒測試出效果):} fpDefault fpVariable fpFixed{Charset: 字符集, 是個(gè)整數(shù), 可能的值有:} ANSI_CHARSET = 0; DEFAULT_CHARSET = 1; SYMBOL_CHARSET = 2; SHIFTJIS_CHARSET = 128; HANGEUL_CHARSET = 129; GB2312_CHARSET = 134; CHINESEBIG5_CHARSET = 136; OEM_CHARSET = 255; JOHAB_CHARSET = 130; HEBREW_CHARSET = 177; ARABIC_CHARSET = 178; GREEK_CHARSET = 161; TURKISH_CHARSET = 162; VIETNAMESE_CHARSET = 163; THAI_CHARSET = 222; EASTEUROPE_CHARSET = 238; RUSSIAN_CHARSET = 204;{Orientation: 旋轉(zhuǎn)角度, 單位是 1/10 度, 舉個(gè)例子:}//代碼: constS = '萬一的 Delphi 博客'; beginCanvas.Font.Style := [fsBold];Canvas.Font.Color := clRed;Canvas.Font.Height := 32;Canvas.Font.Orientation := 450;Canvas.TextOut(0, ClientHeight-20, S); end;//效果圖:

---

總結(jié)

以上是生活随笔為你收集整理的Delphi 的绘图功能[10] - TFONT 类的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。