Hallo,
irgendwas ist faul beim DrawImage.
Not-Lösung.
procedure TBaseVirtualTree.PaintImage
alt
Delphi-Quellcode:
if (ImageInfo[iiOverlay].Index > -1) and (ImageInfo[iiOverlay].Index < 15) then
ExtraStyle := ILD_TRANSPARENT or ILD_OVERLAYMASK and IndexToOverlayMask(ImageInfo[iiOverlay].Index +1)
neu
Delphi-Quellcode:
if (ImageInfo[iiOverlay].Index > -1) and (ImageInfo[iiOverlay].Index < 15) then
ExtraStyle := ILD_TRANSPARENT or ILD_OVERLAYMASK and IndexToOverlayMask(ImageInfo[iiOverlay].Index )
ohne das +1 geht es.
In der 4.8.1. ist der Code übrigens immer noch so.
Liegt das vielleicht an meinen Images ?
Heiko