本文整理自网络，侵删。
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 利用windows api判断文件共享锁定状态
Delphi 使用泛型的 tarray 从动态数组中查找指定元素
在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0
更多相关阅读请进入《Delphi》频道 >>
