GDI+ 学习记录(24) 输出文本3

//获取字体信息
var
fontFamily: TGPFontFamily;
font: TGPFont;
begin
fontFamily := TGPFontFamily.Create('宋体');
font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel);

ShowMessage(FloatToStr(font.GetSize));                             {字号大小}
ShowMessage(IntToStr(fontFamily.GetEmHeight(FontStyleRegular)));   {字体高度, 采用设计时单位}
ShowMessage(IntToStr(fontFamily.GetLineSpacing(FontStyleRegular)));{行间距, 采用设计时单位}
ShowMessage(IntToStr(fontFamily.GetCellAscent(FontStyleRegular))); {上升距, 采用设计时单位}
ShowMessage(IntToStr(fontFamily.GetCellDescent(FontStyleRegular)));{下降距, 采用设计时单位}

font.Free;
fontFamily.Free;
end;

//获取已安装字体的列表
var
fonts: TGPFontCollection;
fArr: array of TGPFontFamily;
count,ti: Integer;
s: string;
i: Integer;
begin
fonts := TGPInstalledFontCollection.Create;
count := fonts.GetFamilyCount;

SetLength(fArr, count);

for i := 0 to count - 1 do
begin
fArr[i] := TGPFontFamily.Create;
end;

fonts.GetFamilies(count, fArr, ti);

Memo1.Clear;
for i := 0 to count - 1 do
begin
fArr[i].GetFamilyName(s);
Memo1.Lines.Add(s);
fArr[i].Free;
end;

fonts.Free;
end;