Source position: vpmisc.pas line 139
function GetCanvasTextHeight(
ACanvas: TCanvas;
AFont: TFont;
AText: string = ''
):Integer;