Delphi反走样单元(改进版)

引用了utAALine单元后 调用以下过程即可画出抗锯齿(反走样)直线 重要提示: 如果不希望出现 窗口在最小化又还原后 直线消失的情况 请在控件的OnPaint事件中调用该过程 AALine(DC:HDC;X1,Y1,X2,Y2:Double;Color:TColor;Border,Alpha:Double); 参数说明 DC:目标控件的设备上下文 X1、Y1:起始点的X，Y坐标值 X2、Y2:终点的X，Y坐标值 Color:颜色代码，可以用常量 例如clRed表示红色 Border:线的粗细程度值越大 线越粗 Alpha:介于0与1之间 0表示完全透明 1表示完全不透明 在调用这个函数之前 应该先获取目标设备的HDC(设备上下文的句柄), 为了能够使用Windows API 应在单元引用中加入Windows。 使用完之后 应将设备上下文释放 否则长时间运行会将程序拖死。 var DC:HDC begin DC:=GetDC(Self.Handle);//获取目标设备的设备上下文句柄 此处以主窗体为例 AALine...//假代码 此处可以开始绘制线条 ReleaseDC(Self.Handle,DC);//将设备上下文句柄归还给目标控件 end;