得到文本高度与行间距等 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/Denominatorprocedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer);procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; aHeight: Integer);设置可见图形的左,上,宽,高值.