From 7d2ebbe7a99be8c59cfa4054d933be10250fa4d9 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 22 Oct 2011 18:12:47 +0000
Subject: [PATCH] Gtk2: Fixed fonts leaking memory.Patch by Luca Olivetti.
 Issues #18727, #18707

git-svn-id: trunk@33026 -
---
 lcl/interfaces/gtk2/gtk2winapi.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 26ddf4765a..29a6195456 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -1534,6 +1534,9 @@ begin
     begin
       // add to cache
       CachedFont := FontCache.Add(GdiObject^.GDIFontObject, LogFont, ALongFontName);
+      //decrement refcount for GdiObject^.GDIFontObject so that object gets
+      //released when removing from FontCache.
+      g_object_unref(GdiObject^.GDIFontObject);
       if CachedFont <> nil then
       begin
         CachedFont.PangoFontDescription := PangoDesc;