本文整理自网络，侵删。
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; 相关阅读 >>
winapi 字符及字符串函数(1): charlower - 字符或字符串转小写
Delphi imagelist-图片（bmp）按名称而不按索引
Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己
Delphi edgebrowser1 浏览器实现控制滚动条
更多相关阅读请进入《Delphi》频道 >>
