Source position: controls.pp line 1495
public function TControl.ScaleFontToScreen(
const ASize: Integer
):Integer;