一个很笨的字体勾边的方法
2015-07-21 00:24
519 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) img_1: TImage; Btn_1: TButton; Btn_2: TButton; procedure Btn_1Click(Sender: TObject); procedure Btn_2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Btn_1Click(Sender: TObject); begin img_1.Canvas.Font.Size :=140; img_1.Canvas.Font.Name := '华文行楷'; img_1.Canvas.TextOut( 5,5,'罗韵睿'); end; procedure TForm1.Btn_2Click(Sender: TObject); procedure SetPointerColor(x,y:Integer); begin if img_1.Canvas.Pixels[x,y] <>clBlack then img_1.Canvas.Pixels[x,y] := clRed; end; var i,j :Integer; p:Pointer; begin for I := 0 to img_1.Width -1 do for j := 0 to img_1.Height - 1 do begin if img_1.Canvas.Pixels[i,j] =clBlack then begin SetPointerColor(i-1,j); SetPointerColor(i+1,j); SetPointerColor(i,j-1); SetPointerColor(i,j+1); SetPointerColor(i+1,j+1); SetPointerColor(i-1,j-1); SetPointerColor(i-1,j+1); SetPointerColor(i+1,j-1); end; end; end; end.
相关文章推荐
- 0720linux共享库和静态库制作
- 医疗系统--产程图系统(产程图控件)
- Oracle中如何插入特殊字符:& 和 ' (多种解决方案)
- Gym 100712F Travelling Salesman(二分+并查集)
- win7 摄像头驱动软件找不到,只有sys文件
- ------------参数传递的四种形式----- URL,超链接,js,form表单
- [Leetcode 63, Medium] Unique Paths II
- 栈 堆 易错的地方(字符串拷贝 以及 一个重要的指针用法)
- Oracle SQL 语句中的单引号
- MyBatis单条插入后返回自增的id
- 在Cookie中存储对象
- ZOJ 3630 Information(Tarjanq)
- 数组及函数的应用篇
- github
- [Leetcode 62, Medium] Unique Paths
- java jdbc 连接池
- DirectX9.0第一天
- ssd 应用场景
- Android overlay系统
- LightOJ1038-Race to 1 Again