paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 04:38:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: freeing more unused GCs

Browse Source 
git-svn-id: trunk@834 -
This commit is contained in:
lazarus 2002-02-09 01:47:00 +00:00
parent cb40c565c3
commit cfd0976d6e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkproc.inc
View File

@ -120,9 +120,11 @@ begin
begin begin
hWnd := SourceDC^.hWnd; hWnd := SourceDC^.hWnd;
Drawable := SourceDC^.Drawable; Drawable := SourceDC^.Drawable;
if (SourceDC^.GC = nil) or (Drawable = nil) then if GC<>nil then begin
GC := nil gdk_gc_unref(GC);
else begin GC:=nil;
end;
if (SourceDC^.GC <> nil) and (Drawable <> nil) then begin
gdk_gc_get_values(SourceDC^.GC, @GCValues); gdk_gc_get_values(SourceDC^.GC, @GCValues);
//GC := gdk_gc_new(Drawable); //GC := gdk_gc_new(Drawable);
GC := gdk_gc_new_with_values(Drawable, @GCValues, 3 { $3FF}); GC := gdk_gc_new_with_values(Drawable, @GCValues, 3 { $3FF});
@ -2427,6 +2429,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.69 2002/08/22 07:30:16 lazarus
MG: freeing more unused GCs
Revision 1.68 2002/08/21 13:35:25 lazarus Revision 1.68 2002/08/21 13:35:25 lazarus
MG: accelerations for synedit MG: accelerations for synedit