From eb41784ad0a5e37d1ad6c0dc06472b130a99fcb2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= <zeljko@lazarus-ide.org>
Date: Mon, 8 Jan 2024 08:27:29 +0100
Subject: [PATCH] Qt5,Qt6: fixed memleak in enumfontfamiliesex()

---
 lcl/interfaces/qt5/qtwinapi.inc | 2 +-
 lcl/interfaces/qt6/qtwinapi.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt5/qtwinapi.inc b/lcl/interfaces/qt5/qtwinapi.inc
index ffc6ac1fe3..77372f0c3e 100644
--- a/lcl/interfaces/qt5/qtwinapi.inc
+++ b/lcl/interfaces/qt5/qtwinapi.inc
@@ -1915,7 +1915,6 @@ begin
         if QtGetFontFamilies(FontList, lpLogFont^.lfPitchAndFamily,
           lpLogFont^.lfFaceName, CharsetToQtCharSet(lpLogFont^.lfCharSet)) > 0 then
         begin
-          StylesList := QStringList_create();
           for i := 0 to FontList.Count - 1 do
           begin
             EnumLogFont.elfLogFont.lfFaceName := FontList[i];
@@ -1944,6 +1943,7 @@ begin
       finally
         FontList.free;
         QStringList_destroy(StylesList);
+        QStringList_destroy(ScriptList);
         CharSetList.Free;
       end;
     end;
diff --git a/lcl/interfaces/qt6/qtwinapi.inc b/lcl/interfaces/qt6/qtwinapi.inc
index 33d273113e..85d6fadc68 100644
--- a/lcl/interfaces/qt6/qtwinapi.inc
+++ b/lcl/interfaces/qt6/qtwinapi.inc
@@ -1915,7 +1915,6 @@ begin
       if QtGetFontFamilies(FontList, lpLogFont^.lfPitchAndFamily,
         lpLogFont^.lfFaceName, CharsetToQtCharSet(lpLogFont^.lfCharSet)) > 0 then
       begin
-        StylesList := QStringList_create();
         for i := 0 to FontList.Count - 1 do
         begin
           EnumLogFont.elfLogFont.lfFaceName := FontList[i];
@@ -1944,6 +1943,7 @@ begin
     finally
       FontList.free;
       QStringList_destroy(StylesList);
+      QStringList_destroy(ScriptList);
       CharSetList.Free;
     end;
   end;