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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.033205986022949 seconds