Delphi反走样直线单元

引用了utAALine单元后 调用以下过程即可画出抗锯齿(反走样)直线 重要提示: 如果不希望出现 窗口在最小化又还原后 直线消失的情况 请在控件的OnPaint事件中调用该过程 AALine(ACanvas:TCanvas;X1,Y1,X2,Y2:Double;Color:TColor;Border,Alpha:Double); 参数说明 ACanvas:目标画布 X1、Y1:起始点的X，Y坐标值 X2、Y2:终点的X，Y坐标值 Color:颜色代码，可以用常量 例如clRed表示红色 Border:线的粗细程度值越大 线越粗 Alpha:介于0与1之间 0表示完全透明 1表示完全不透明