程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi GDI+ 學習記錄(24): 輸出文本<3>

Delphi GDI+ 學習記錄(24): 輸出文本<3>

編輯:Delphi

//獲取字體信息

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved