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

MG: freeing more unused GCs

Browse Source 
git-svn-id: trunk@1861 -
This commit is contained in:
lazarus 2002-08-17 23:39:13 +00:00
parent 45dc587b13
commit d3a11ee5aa
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4291,6 +4291,7 @@ begin
{ On root window, we don't allocate a graphics context and so we dont free}
if pDC^.GC <> nil then begin
gdk_gc_unref(pDC^.GC);
pDC^.GC:=nil;
end;
except
on E:Exception do begin
@ -5994,6 +5995,9 @@ end;
{ =============================================================================
$Log$
Revision 1.105 2002/08/22 07:30:16 lazarus
MG: freeing more unused GCs
Revision 1.104 2002/08/21 15:46:08 lazarus
MG: fixed a mem leak in RestoreDC