Source position: rlmetavcl.pas line 94
function CanvasTextWidth(
aCanvas: TCanvas;
const aText: string
):Integer;