Sun, 21 Mar 2004 22:39:14 GMT

256 color bitmap in TImagelist shows as 16 color at runtime

Hello,

I use a Timagelist and a tImage component to show LED's on my form:

        if TempRecord.StatusBits and $02 > 0 then
          ImageList1.GetBitmap(1,stabielLedImage.Picture.Bitmap)
        else ImageList1.GetBitmap(0,stabielLedImage.Picture.BitMap);
        stabielLedImage.Repaint;

At designtime everything looks just fine but at runtime the image looks like
it converted to 16 colors. The strange thing is that when the image that was
put into the stabielLedImage is not changed at runtime (by the above
routine) the image DOES show 256 colors !

I browsed usenet at Deja.com but found no solution, please help !

Bert Kortenbach