本文整理自网络,侵删。
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 api �c multibytetowidechar的用法
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi使用project manager添加一个java库到你的应用程序
更多相关阅读请进入《Delphi》频道 >>