本文整理自网络，侵删。
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 windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
更多相关阅读请进入《Delphi》频道 >>
