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