Source position: rlmetavcl.pas line 96
procedure CanvasLineToEx(
aCanvas: TCanvas;
X: Integer;
Y: Integer
);