WinAPI: SetTextCharacterExtra

来源:互联网 发布:mysql 客户端查询乱码 编辑:程序博客网 时间:2024/06/05 04:08
//声明:SetTextCharacterExtra(  DC: HDC;           {设备环境句柄}  CharExtra: Integer {间距(按逻辑单位); 若映射模式不是 MM_TEXT, 则舍入到最接近的像素}): Integer;          {返回字符间隔的先前值; 调用失败返回 $80000000 }//举例:procedure TForm1.FormPaint(Sender: TObject);const  str = '万一的 Delphi 博客';begin  TextOut(Canvas.Handle, 50, 50, str, Length(str));  SetTextCharacterExtra(Canvas.Handle, 10);  TextOut(Canvas.Handle, 50, 80, str, Length(str));end;//效果图: