diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-19 00:57:31 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-19 09:02:20 +0000 |
| commit | b4672388778f4c89a5cd05d87bb8818fa6d31592 (patch) | |
| tree | 5f797e8d8774f8b1e7edf16778711a4e21503606 /docview/components | |
| parent | 19984743b90f4de05381d5e26f08e0333c6420eb (diff) | |
| download | fpGUI-b4672388778f4c89a5cd05d87bb8818fa6d31592.tar.xz | |
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.
Diffstat (limited to 'docview/components')
| -rw-r--r-- | docview/components/richtext/CanvasFontManager.pas | 4 | ||||
| -rw-r--r-- | docview/components/richtext/RichTextStyleUnit.pas | 2 |
2 files changed, 3 insertions, 3 deletions
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 |