paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5,Qt6: fixed memleak in enumfontfamiliesex()

Browse Source
This commit is contained in:
Željan Rikalo 2024-01-08 08:27:29 +01:00
parent d0137e028e
commit eb41784ad0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -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;

2
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -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;