delphi 给字加边的又一个算法

本文整理自网络，侵删。

 
procedure TForm1.Button2Click(Sender: TObject);
var tc : TCanvas;
    i, j : integer;
    color : TColor;
    egcolor : TColor;
begin
  tc := Label1.Canvas;   //Label2上面必须有字，而且是黑色的
  egcolor := RGB(0, 255, 0);
  for i := 1 to Label1.Width - 2 do
    for j := 1 to Label1.Height - 2 do
    begin
      color := tc.Pixels[i, j];
      if color = 0 then  //找到了黑色字
      begin
        //判断边界
        //左上边
        if tc.Pixels[i - 1, j - 1] <> color then
          tc.Pixels[i - 1, j - 1] := egcolor;
        //右上
        if tc.Pixels[i + 1, j - 1] <> color then
          tc.Pixels[i + 1, j - 1] := egcolor;
        //左下
        if tc.Pixels[i - 1, j + 1] <> color then
          tc.Pixels[i - 1, j + 1] := egcolor;
        //右下
        if tc.Pixels[i + 1, j + 1] <> color then
          tc.Pixels[i + 1, j + 1] := egcolor;
      end;
    end;

end;
 

相关阅读 >>

Delphi 动态生成九宫格按钮

Delphi写文本文件

Delphi memo 的当前行、当前列与当前字符

Delphi服务器端如何防止ddos

Delphi 蜂鸣器发声

Delphi 自带的字符串分割函数

Delphi 查询当前进程的内存使用大小

Delphi里动态创建access的交叉表视图

Delphi using windows print spooler to run your file

Delphi字符串隐藏一法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 给字加边的又一个算法