GDI+进阶指南：深入解析IGPFont接口

uses GdiPlus;procedure TForm1.FormPaint(Sender: TObject);
varGraphics: IGPGraphics;Brush: IGPSolidBrush;Pt: TGPPointF;Font: IGPFont;
beginGraphics :&＃61; TGPGraphics.Create(Handle);Pt.Initialize(10, 10);Brush :&＃61; TGPSolidBrush.Create($FFFF0000);Font :&＃61; TGPFont.Create(Canvas.Handle);Graphics.DrawString(&＃39;Self.Canvas.Font&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, [FontStyleBold]);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, [FontStyleBold]&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, [FontStyleItalic]);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, [FontStyleItalic]&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, [FontStyleUnderline]);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, [FontStyleUnderline]&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, [FontStyleStrikeout]);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, [FontStyleStrikeout]&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, FontStyleBoldItalic);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, FontStyleBoldItalic&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, FontStyleRegular, UnitPoint);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, FontStyleRegular, UnitPoint&＃39;, Font, Pt, Brush);Graphics.TranslateTransform(0, Font.GetHeight(Graphics) * 1.5);Font :&＃61; TGPFont.Create(&＃39;微软雅黑&＃39;, 12, FontStyleRegular, UnitPixel);Graphics.DrawString(&＃39;&＃39;&＃39;微软雅黑&＃39;&＃39;, 12, FontStyleRegular, UnitPixel&＃39;, Font, Pt, Brush);
end;

下面是一个关于 IGPFont 成员的测试:

varFontFamily: IGPFontFamily;Font,Font2: IGPFont;FontHight: Single;LogFont: TLogFontW;
beginFontFamily :&＃61; TGPFontFamily.Create(&＃39;宋体&＃39;);Font :&＃61; TGPFont.Create(FontFamily, 16, FontStyleBoldItalic, UnitPixel);
// Font :&＃61; TGPFont.Create(FontFamily, 16, [], UnitPixel);{ Font.Size: 字号大小}ShowMessageFmt(&＃39;FontSize: %f&＃39;, [Font.Size]); //16.00{ Font.Style: 字体样式 }if FontStyleBold in Font.Style then ShowMessage(&＃39;Bold&＃39;);if FontStyleItalic in Font.Style then ShowMessage(&＃39;Italic&＃39;);if FontStyleUnderline in Font.Style then ShowMessage(&＃39;Underline&＃39;);if FontStyleStrikeout in Font.Style then ShowMessage(&＃39;Strikeout&＃39;);if ((FontStyleBoldItalic * Font.Style) &＃61; FontStyleBoldItalic) then ShowMessage(&＃39;Bold、Italic&＃39;);if Font.Style &＃61; [] then ShowMessage(&＃39;FontStyleRegular&＃39;);{ Font.MeasureUnit: 尺寸单位 }case Font.MeasureUnit ofUnitWorld: ShowMessage(&＃39;World&＃39;);UnitDisplay: ShowMessage(&＃39;Display&＃39;);UnitPixel: ShowMessage(&＃39;Pixel&＃39;);UnitPoint: ShowMessage(&＃39;Point&＃39;);UnitInch: ShowMessage(&＃39;Inch&＃39;);UnitDocument: ShowMessage(&＃39;Document&＃39;);UnitMillimeter: ShowMessage(&＃39;Millimeter&＃39;);end;{ Font.GetHeight: 字体高度 }FontHight :&＃61; Font.GetHeight(TGPGraphics.Create(Handle));
// FontHight :&＃61; Font.GetHeight(nil);
// FontHight :&＃61; Font.GetHeight(0);ShowMessageFmt(&＃39;FontHight: %f&＃39;, [FontHight]); //18.25{ Font.IsAvailable: 字体是否可用 }ShowMessage(BoolToStr(Font.IsAvailable, True));{ Font.GetLogFontW: 获取 TLogFont 结构数据 }LogFont :&＃61; Font.GetLogFontW(TGPGraphics.Create(Handle));ShowMessage(LogFont.lfFaceName);{ Font.Family: 获取 IGPFontFamily }ShowMessage(Font.Family.FamilyName);{ Font.Clone: 克隆 }Font2 :&＃61; Font.Clone;ShowMessage(Font2.Family.FamilyName);
end;