delphi用canvas画线搞锯齿demo

delphi用canvas画斜线时总是存在锯齿，转换成gdi画就可以消除

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       8808  2016-01-15 15:25  Project5.dproj

     文件        548  2016-01-15 15:25  Project5.dproj.local

     文件       5280  2016-01-06 15:16  Project5.res

     文件         53  2016-01-06 15:47  Project5.skincfg

     文件        352  2016-01-06 15:41  Unit2.dfm

     文件        657  2016-01-06 15:47  Unit2.pas

     文件     101112  2007-11-23 14:19  GdiPlus\DirectDraw.dcu

     文件     268555  2002-12-30 20:55  GdiPlus\DirectDraw.pas

     文件       1350  2002-12-10 23:42  GdiPlus\DirectX.inc

     文件     162426  2007-12-26 15:22  GdiPlus\GDIPAPI.dcu

     文件     316773  2007-06-15 11:35  GdiPlus\GDIPAPI.pas

     文件     252741  2007-12-26 15:22  GdiPlus\GDIPOBJ.dcu

     文件     296777  2006-11-22 13:35  GdiPlus\GDIPOBJ.pas

     文件      28699  2006-11-17 21:11  GdiPlus\GDIPUTIL.dcu

     文件      25563  2002-02-15 18:30  GdiPlus\GDIPUTIL.pas

     文件      17526  2006-03-16 21:42  GdiPlus\Jedi.inc

     文件        230  2016-01-06 15:47  Project5.dpr

     目录          0  2017-05-08 09:03  GdiPlus

     文件         85  2016-08-10 09:17  Project5.identcache

     文件        161  2016-01-15 14:25  Project5.stat

     文件       4286  2016-01-15 14:23  Project5_Icon.ico

     文件       4955  2016-01-11 14:20  Unit2.dcu

----------- ---------  ---------- -----  ----

              1496937                    22