procedure DrawLine(ACanvas: TCanvas; const AFromPt: TPoint; const AToPt: TPoint);
DrawLine(TCanvas ACanvas, const TPoint AFromPt, const TPoint AToPt);
RibbonActnCtrls
This is function RibbonActnCtrls.DrawLine.