如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题
2010-01-14 09:58
246 查看
问题来源: http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542
procedure TForm1.FormPaint(Sender: TObject); var x,y: Integer; str: string; begin x := 10; y := 10; str := '今天'; Canvas.Font.Name := '黑体'; Canvas.Font.Size := 56; Canvas.Brush.Style := bsClear; { ! } Canvas.Font.Color := clBlue; Canvas.TextOut(x, y, str); Canvas.Font.Color := clWhite; Canvas.TextOut(x-3, y-3, str); end;
相关文章推荐
- 如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题
- 如何让 TreeView 的列表项携带数据、并读出或删除这个数据 - 回复 "Splendour" 的问题
- 如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题
- 如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题
- 知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题
- 如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题
- 如何使用 URLOpenStream 函数 - 回复 "天泽" 的问题
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- 如何基于纯GDI实现alpha通道的矢量和文字绘制
- 如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题
- 如何把类中的方法做参数 - 回复 "林Lin☆☆" 的问题
- 如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题
- 如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题
- 如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题
- 如何使用 SendMessage 选择 ListBox、ComboBox 中的项 - 回复 "倪慧刚" 的问题
- 如何放缩 TWebBrowser 中的页面 - 回复 "飘逸的蓝" 的问题
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- 如何用弹出窗口显示进度 - 回复 "嘿嘿嘿" 的问题
- 如何使用 PPChar - 回复 "DelphiFan" 的问题
- 如何基于纯GDI实现alpha通道的矢量和文字绘制