diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-16 10:47:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-16 10:47:33 +0200 |
| commit | 5c486e196dcebff80328be6a76c54438ad0cc457 (patch) | |
| tree | 54a3938caad827dba1d32ee1103d651bec90226e /src/corelib | |
| parent | cfcee316b8d6868dbb9d7994b51a66b39460e429 (diff) | |
| download | fpGUI-5c486e196dcebff80328be6a76c54438ad0cc457.tar.xz | |
fpgStyles now has a FixedFont property as well.
Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpg_main.pas | 5 |
1 files changed, 4 insertions, 1 deletions
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; |