delphi 给Label1字加边的又一个算法

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var tc : TCanvas;
    i, j : integer;
    color : TColor;
    egcolor : TColor;
begin
  tc := Label1.Canvas;   //Label1上面必须有字，而且是黑色的
  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 meid校验码算法

Delphi xe6 通过javascript api调用百度地图

Delphi tms web core 获取url 参数

Delphi的idhttp报508 loop detected错误的原因

Delphi clientdataset复制记录

Delphi 把窗体上的所有edit清空怎么做

Delphi 内存加载并运行exe程序

Delphi 查看指定进程占用端口

Delphi 代码查询一个 ip 地址的归属地

Delphi tms web core webhttprequest1 解析json

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

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