Delphi 的绘图功能[10] - TFONT 类

//先来个例子:

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;


 
   




//效果图:

---