diff options
Diffstat (limited to 'src/frm_main.pas')
-rw-r--r-- | src/frm_main.pas | 17 |
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. |