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

* fixed unreferencing nil colormap

Browse Source 
git-svn-id: trunk@11932 -
This commit is contained in:
marc 2007-09-03 23:09:13 +00:00
parent 69bf6a17fc
commit c640644c8f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1942,7 +1942,8 @@ begin
GdiObject^.SystemVisual := False;
end;
gdk_colormap_unref(GdiObject^.Colormap);
if GdiObject^.Colormap <> nil
then gdk_colormap_unref(GdiObject^.Colormap);
GdiObject^.Colormap := gdk_colormap_new(GdiObject^.Visual, GdkFalse);
GdiObject^.GDIBitmapType := gbPixmap;