Hi, this is only small patch which causes to change Image.Picture.Graphic.Transparent if Image.Transparent is changed. This is same how Delphi behave.

tombo
Index: lcl/include/customimage.inc
===================================================================
--- lcl/include/customimage.inc (revision 8932)
+++ lcl/include/customimage.inc (working copy)
@@ -148,6 +148,7 @@
     SetAutoSize(False);
     SetAutoSize(True);
   end;
+  if Picture.Graphic <> nil then Picture.Graphic.Transparent := FTransparent;
   Invalidate;
 end;
 

Reply via email to