程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi的繪圖功能[10] - TFONT類

Delphi的繪圖功能[10] - TFONT類

編輯:Delphi

//先來個例子:procedure TForm1.FormPaint(Sender: TObject);
const
 S = '萬一的 Delphi 博客';
var
 font: TFont;
begin
 font := 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;

//效果圖:

//因為 Canvas 的 Font 屬性就是 TFONT 類的一個實例, 所以上面的程序可以簡化 為:procedure TForm1.FormPaint(Sender: TObject);
const
 S = '萬一的 Delphi 博客';
begin
 Canvas.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: 字號與字體高度, 都可以設定字體大小}
{Style: 字體樣式; 是個集合值, 是下面可選值或它們的組合:}
fsBold
fsItalic
fsUnderline
fsStrikeOut
{Pitch: 是字間距相關的, 有三個枚舉值可選(不過我沒測試出效果):}
fpDefault
fpVariable
fpFixed
{Charset: 字符集, 是個整數, 可能的值有:}
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: 旋轉角度, 單位是 1/10 度, 舉個例子:}

//代碼:const
 S = '萬一的 Delphi 博客';
begin
 Canvas.Font.Style := [fsBold];
 Canvas.Font.Color := clRed;
 Canvas.Font.Height := 32;
 Canvas.Font.Orientation := 450;
 Canvas.TextOut(0, ClientHeight-20, S);
end;

//效果圖:

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved