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 进程通讯之wm_copydata 发送程序（senddata.exe）

Delphi 安卓动态申请权限清单类

Delphi xe5做一个android网页框架

Delphi 倒计时源码

Delphi 16进制字符串转原字符串

Delphi firedac 另存json

Delphi xe6调用android标准功能

Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

Delphi中emptyparam参数被改写问题

Delphi随机字符(密码生成)函数

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

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