paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 05:17:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

GTK2: memory leaks, not freed gdk objects

Browse Source 
git-svn-id: trunk@60226 -
This commit is contained in:
martin 2019-01-26 17:58:27 +00:00
parent 087ce17ca3
commit e46c6dc9fe
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -3343,13 +3343,15 @@ var
AFamilies: PPPangoFontFamily;
AFaces: PPPangoFontFace;
ANumFaces: Integer;
PContext: PPangoContext;
begin
AList.Clear;
SetLength(Faces, 0);
Result := -1;
AFamilies := nil;
pango_context_list_families(gdk_pango_context_get, @AFamilies, @Result);
PContext := gdk_pango_context_get;
pango_context_list_families(PContext, @AFamilies, @Result);
SetLength(Faces, Result);
for i := 0 to Result - 1 do
begin
@ -3364,6 +3366,7 @@ var
g_free(AFaces);
end;
g_free(AFamilies);
g_object_unref(PContext);
end;
function Gtk2GetFontFamilies(var List: TStringList;
@ -7753,6 +7756,7 @@ begin
if (Rect1.height > 0) and (Rect1.width > 0) then begin
Region := gdk_region_rectangle(@Rect1);
gdk_window_move_region(Window, Region, dx, dy);
gdk_region_destroy(Region);
if (flags and SW_INVALIDATE) <> 0 then begin
//invalidate