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

標籤：

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

 

 

//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;

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