1 files changed, 17 insertions, 0 deletions
diff --git a/src/frm_main.pas b/src/frm_main.pas
index 6b863d1a..66d26f37 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -117,6 +117,7 @@ type
     procedure   ResetProgress;
     procedure   SetStatus(const AText: TfpgString);
     function    TranslateEnvironmentVar(AFilenames: TfpgString): TfpgString;
+    procedure   RefreshFontSubstitutions;
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
@@ -1648,5 +1649,21 @@ begin
   mru.LoadMRU;
 end;
 
+procedure TMainForm.RefreshFontSubstitutions;
+var
+  FileIndex: longint;
+  HelpFile: THelpFile;
+begin
+  for FileIndex := 0 to CurrentOpenFiles.Count - 1 do
+  begin
+    HelpFile := THelpFile(CurrentOpenFiles[ FileIndex ]);
+
+    if Settings.FixedFontSubstitution then
+      HelpFile.SetupFontSubstitutes( Settings.FixedFontSubstitutes )
+    else
+      HelpFile.SetupFontSubstitutes( '' );
+  end;
+end;
+
 
 end.