diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-06 17:03:44 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-06 17:03:44 +0200 |
commit | b4613083657e721533f12dfc86a6dc2cb833bf71 (patch) | |
tree | b90da9293f0d404661f7541c62ab4398cf89a3b7 /docview/components/richtext | |
parent | 835411abe6fdeed50d8b21e3be77536356f7332d (diff) | |
download | fpGUI-b4613083657e721533f12dfc86a6dc2cb833bf71.tar.xz |
docview: Removed the check for FontType = ftOutline.
We always use outline fonts in fpGUI.
Diffstat (limited to 'docview/components/richtext')
-rw-r--r-- | docview/components/richtext/CanvasFontManager.pas | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/docview/components/richtext/CanvasFontManager.pas b/docview/components/richtext/CanvasFontManager.pas index 38f87cd1..8a15e914 100644 --- a/docview/components/richtext/CanvasFontManager.pas +++ b/docview/components/richtext/CanvasFontManager.pas @@ -523,7 +523,7 @@ begin end; if Fontinfo = '' then - // nothing found se use default font of fpGUI + // nothing found so use default font of fpGUI FontInfo := fpgApplication.DefaultFont.FontDesc; end; @@ -834,19 +834,16 @@ var s: string; begin // Select the logical font - if Font.FontType = ftOutline then - begin - s := Font.FaceName + '-' + IntToStr(Font.PointSize); - if faBold in Font.Attributes then - s := s + ':bold'; - if faItalic in Font.Attributes then - s := s + ':italic'; - if faUnderScore in Font.Attributes then - s := s + ':underline'; - - f := fpgGetFont(s); - FCanvas.Font := f; - end; + s := Font.FaceName + '-' + IntToStr(Font.PointSize); + if faBold in Font.Attributes then + s := s + ':bold'; + if faItalic in Font.Attributes then + s := s + ':italic'; + if faUnderScore in Font.Attributes then + s := s + ':underline'; + + f := fpgGetFont(s); + FCanvas.Font := f; end; // Get a font to match the given spec, creating or re-using an |