WinAPI: SetTextColor - 设置设备环境的文本颜色

//声明:
SetTextColor(DC: HDC;        {设备环境句柄}Color: COLORREF {颜色值}
): COLORREF;      {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败}//举例:
procedure TForm1.Button1Click(Sender: TObject);
beginSetTextColor(Canvas.Handle, clRed);Canvas.TextOut(80, 60, '万一的 Delphi 博客');
end;//效果图:

---