[Instantobjects-cvscommit] SF.net SVN: instantobjects:[951] trunk/Source/Design/InstantModelExpert.pas

[<dav...@us...>]

Revision: 951
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=951&view=rev
Author:   davidvtaylor
Date:     2012-01-09 23:03:33 +0000 (Mon, 09 Jan 2012)
Log Message:
-----------
* Fix icon transparency problem with Delphi XE and XE2

Modified Paths:
--------------
    trunk/Source/Design/InstantModelExpert.pas

Modified: trunk/Source/Design/InstantModelExpert.pas
===================================================================
--- trunk/Source/Design/InstantModelExpert.pas	2012-01-04 22:16:02 UTC (rev 950)
+++ trunk/Source/Design/InstantModelExpert.pas	2012-01-09 23:03:33 UTC (rev 951)
@@ -856,6 +856,7 @@
       ActionImage := TBitmap.Create;
 
       try
+        ActionImage.PixelFormat := pf24bit;
         FResourceModule.ToolImages.GetBitmap(AImageIndex,ActionImage);
         Assert(Assigned(ActionImage));
         NewAction.ImageIndex := NTAServices.AddMasked(ActionImage,