From b4672388778f4c89a5cd05d87bb8818fa6d31592 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 19 Feb 2015 00:57:31 +0000 Subject: Removed fpgApplication.DefaultFont We really don't need yet another "default font". All references to fpgApplication.DefaultFont has been changed to fpgStyle.DefaultFont - as it should be. --- docview/components/richtext/CanvasFontManager.pas | 4 ++-- docview/components/richtext/RichTextStyleUnit.pas | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'docview/components/richtext') diff --git a/docview/components/richtext/CanvasFontManager.pas b/docview/components/richtext/CanvasFontManager.pas index edeb8cb9..e650141b 100644 --- a/docview/components/richtext/CanvasFontManager.pas +++ b/docview/components/richtext/CanvasFontManager.pas @@ -222,7 +222,7 @@ begin // if nothing found, use default font of fpGUI if FontDesc = '' then - FontDesc := fpgApplication.DefaultFont.FontDesc; + FontDesc := fpgStyle.DefaultFont.FontDesc; end; @@ -242,7 +242,7 @@ destructor TCanvasFontManager.Destroy; var i: Integer; begin - FCanvas.Font := fpgApplication.DefaultFont; + FCanvas.Font := fpgStyle.DefaultFont; FDefaultFont.Free; for i := 0 to FFontCache.Count-1 do diff --git a/docview/components/richtext/RichTextStyleUnit.pas b/docview/components/richtext/RichTextStyleUnit.pas index e0cc3b62..f6582802 100644 --- a/docview/components/richtext/RichTextStyleUnit.pas +++ b/docview/components/richtext/RichTextStyleUnit.pas @@ -470,7 +470,7 @@ end; Procedure TRichTextSettings.AssignFont(var AFont: TfpgFont; NewFont: TfpgFont ); begin If NewFont = Nil Then - NewFont := fpgApplication.DefaultFont; + NewFont := fpgStyle.DefaultFont; if FontSame( NewFont, AFont ) then begin -- cgit v1.2.3-70-g09d2