summaryrefslogtreecommitdiff
path: root/docview/components/richtext
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-08-06 17:03:44 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-08-06 17:03:44 +0200
commitb4613083657e721533f12dfc86a6dc2cb833bf71 (patch)
treeb90da9293f0d404661f7541c62ab4398cf89a3b7 /docview/components/richtext
parent835411abe6fdeed50d8b21e3be77536356f7332d (diff)
downloadfpGUI-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.pas25
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