得到文本高度与行间距等 API用法

GetTextExtentPoint32 类似于下面的
GetTextExtentExPoint 获得每个字符的宽度
GetTextMetrics 获得字体的详细信息

GetTextMetrics的详细用法:
因为TCanvas的TextHeight只能获得指定文本的高度，但
不包括行与行之间的间距以及其他信息，而GetTextMetrics不仅包含字体的高度和宽
度，还包括大量的字体的信息，诸如字体是否加粗、斜体甚至字符集名称。
 比如，声明一个变量为
  var Metrics:TTextMetric;
 其中当前文本的高度就可由Metrics的tmheight域给出，然后附加
 tmInternalleading的行间锯值就得出一行文本的真正高度。
  LineHi:=Metrics.tmHeight+Metrics.tmInternalLeading;
 这样输出的文本大小，行距皆可调节，灵活性极高。

function MulDiv(Number, Numerator, Denominator: Integer): Integer;
就是Restult := number*Numerator/Denominator

procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer);

procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer);
设置可见图形的左,上,宽,高值.