From 5c486e196dcebff80328be6a76c54438ad0cc457 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 16 Oct 2009 10:47:33 +0200
Subject: fpgStyles now has a FixedFont property as well.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
---
 src/corelib/fpg_main.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/corelib')

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index 3841c250..e8c26eae 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -199,6 +199,7 @@ type
   TfpgStyle = class
   public
     DefaultFont: TfpgFont;
+    FixedFont: TfpgFont;
     MenuFont: TfpgFont;
     MenuAccelFont: TfpgFont;
     MenuDisabledFont: TfpgFont;
@@ -1356,7 +1357,7 @@ destructor TfpgFont.Destroy;
 begin
   if TfpgFontResource(FFontRes).DecRefCount <= 0 then
     fpgApplication.FreeFontRes(TfpgFontResource(FFontRes));
-  inherited;
+  inherited Destroy;
 end;
 
 { TfpgFontResource }
@@ -1653,6 +1654,7 @@ begin
 
   // Global Font Objects
   DefaultFont      := fpgGetFont(fpgGetNamedFontDesc('Label1'));
+  FixedFont        := fpgGetFont(fpgGetNamedFontDesc('Edit2'));
   MenuFont         := fpgGetFont(fpgGetNamedFontDesc('Menu'));
   MenuAccelFont    := fpgGetFont(fpgGetNamedFontDesc('MenuAccel'));
   MenuDisabledFont := fpgGetFont(fpgGetNamedFontDesc('MenuDisabled'));
@@ -1661,6 +1663,7 @@ end;
 destructor TfpgStyle.Destroy;
 begin
   DefaultFont.Free;
+  FixedFont.Free;
   MenuFont.Free;
   MenuAccelFont.Free;
   MenuDisabledFont.Free;
-- 
cgit v1.2.3-70-g09d2