From 67bbb06ba6739203ebe2c387b4083a1f3b7b8610 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 8 Dec 2015 19:56:21 +0000
Subject: [PATCH] LazUtils: Finalize FreeTypeFont instance only when needed.
 Issue #29151, patch from Andrey Zubarev.

git-svn-id: trunk@50712 -
---
 components/lazutils/easylazfreetype.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/lazutils/easylazfreetype.pas b/components/lazutils/easylazfreetype.pas
index 4165ccbe3d..a7f415fc9e 100644
--- a/components/lazutils/easylazfreetype.pas
+++ b/components/lazutils/easylazfreetype.pas
@@ -1138,7 +1138,8 @@ procedure TFreeTypeFont.DiscardInstance;
 begin
   if FInstanceCreated then
   begin
-    TT_Done_Instance(FInstance);
+    if FreeTypeInitialized then
+      TT_Done_Instance(FInstance);
     FInstanceCreated := false;
     FGlyphTable.FreeAndClear;
   end;