设置文字边框的方法文字带边框的特效

最新推荐文章于 2023-03-09 11:02:26 发布

beyond748

最新推荐文章于 2023-03-09 11:02:26 发布

阅读量1.2k

点赞数

文章标签：测试

本文链接：https://blog.csdn.net/beyond748/article/details/1767259

版权

一种设置文字边框的方法。

Canvas.Font.Size   :=   20;
Canvas.Font.Color   :=   Color2;
Canvas.Brush.Style   :=   bsClear;
Canvas.TextOut(   50,49,   '这是一个测试'   );
Canvas.TextOut(   50,51,   '这是一个测试'   );
Canvas.TextOut(   49,50,   '这是一个测试'   );
Canvas.TextOut(   51,50,   '这是一个测试'   );
Canvas.Font.Color   :=   Color1;
Canvas.TextOut(   50,50,   '这是一个测试'   );