一个很笨的字体勾边的方法（这个方法简单聪明，而且通用）

[delphi] view plain copy

print?

1. unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, StdCtrls, ExtCtrls;
6. type
7. TForm1 = class(TForm)
8. img_1: TImage;
9. Btn_1: TButton;
10. Btn_2: TButton;
11. procedure Btn_1Click(Sender: TObject);
12. procedure Btn_2Click(Sender: TObject);
13. private
14. { Private declarations }
15. public
16. { Public declarations }
17. end;
18. var
19. Form1: TForm1;
20. implementation
21. {$R *.dfm}
22. procedure TForm1.Btn_1Click(Sender: TObject);
23. begin
24. img_1.Canvas.Font.Size :=140;
25. img_1.Canvas.Font.Name := ‘华文行楷‘;
26. img_1.Canvas.TextOut( 5,5,‘罗韵睿‘);
27. end;
28. procedure TForm1.Btn_2Click(Sender: TObject);
29. procedure SetPointerColor(x,y:Integer);
30. begin
31. if img_1.Canvas.Pixels[x,y] <>clBlack then
32. img_1.Canvas.Pixels[x,y] := clRed;
33. end;
34. var
35. i,j :Integer;
36. p:Pointer;
37. begin
38. for I := 0 to img_1.Width -1 do
39. for j := 0 to img_1.Height - 1 do begin
40. if img_1.Canvas.Pixels[i,j] =clBlack then begin
41. SetPointerColor(i-1,j);
42. SetPointerColor(i+1,j);
43. SetPointerColor(i,j-1);
44. SetPointerColor(i,j+1);
45. SetPointerColor(i+1,j+1);
46. SetPointerColor(i-1,j-1);
47. SetPointerColor(i-1,j+1);
48. SetPointerColor(i+1,j-1);
49. end;
50. end;
51. end;
52. end.

http://blog.csdn.net/aroc_lo/article/details/46976957