diff options
Diffstat (limited to 'packages/fcl-image/src/ftfont.pp')
-rw-r--r-- | packages/fcl-image/src/ftfont.pp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/packages/fcl-image/src/ftfont.pp b/packages/fcl-image/src/ftfont.pp index 183f5c690b..27cb9d2850 100644 --- a/packages/fcl-image/src/ftfont.pp +++ b/packages/fcl-image/src/ftfont.pp @@ -59,7 +59,7 @@ type end; var - FontMgr : TFontManager; + FontMgr : TFontManager = nil; procedure InitEngine; procedure DoneEngine; @@ -78,8 +78,7 @@ end; procedure DoneEngine; begin - if assigned (FontMgr) then - FontMgr.Free; + FreeAndNil(FontMgr); end; constructor TFreeTypeFont.Create; |