Re: [lazarus] icon setting

[dannym]

patch attached.

[...]
> gdkimage bpp is _bytes_ per pixel.
> 
> In the lcl it is compared with a value that is _bits_ per pixel.
> 

cheers,
   Danny


Index: interfaces/gtk/gtkobject.inc
===================================================================
--- interfaces/gtk/gtkobject.inc	(Revision 8068)
+++ interfaces/gtk/gtkobject.inc	(Arbeitskopie)
@@ -2370,6 +2370,8 @@
     exit;
   end;
 
+DebugLn('TGtkWidgetSet.GetRawImageFromGdkWindow GdkWindow is ... ',RawImageDescriptionAsString(@NewRawImage.Description));
+
   // get intersection
   ARect:=SrcRect;
   {$IFDEF VerboseRawImage}
@@ -2411,8 +2413,8 @@
     // consistency checks
     if NewRawImage.Description.Depth<>AnImage^.Depth then
       RaiseGDBException('NewRawImage.Description.Depth<>AnImage^.Depth '+IntToStr(NewRawImage.Description.Depth)+'<>'+IntToStr(AnImage^.Depth));
-    if NewRawImage.Description.BitsPerPixel<>AnImage^.bpp then
-      RaiseGDBException('NewRawImage.Description.BitsPerPixel<>AnImage^.bpp');
+    if NewRawImage.Description.BitsPerPixel<>AnImage^.bpp*8 then
+      RaiseGDBException('NewRawImage.Description.BitsPerPixel<>AnImage^.bpp*8');
 
     NewRawImage.DataSize:=AnImage^.bpl * AnImage^.Height;
     {$IFDEF VerboseRawImage}