diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 20:04:07 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 20:04:07 +0200 |
| commit | 65387f80979f1d47ec53345847109728e9abac3e (patch) | |
| tree | 82b342f66c2288dfb2bfa7841326fcfb4247f64b | |
| parent | 4cc345914ebfa22bcc1efa80baa709c878214773 (diff) | |
| download | fpGUI-65387f80979f1d47ec53345847109728e9abac3e.tar.xz | |
Add Refresh Font Substitution function.
| -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. |