Transparency with Runtime-Themes

Hi,

I have some problems with the transparency when I activate runtime-themes.
1) Create App
2) Put TImageList on it
3) Add Image with transparency
4) Add THTMLListBox
5) Add Button with something like
---
procedure TfrmMain.btnRunClick(Sender: TObject);
var
  iTemp: Integer;
begin
  for iTemp := 0 to 5 do
  Begin
    Application.ProcessMessages();
    Sleep(200);
    Application.ProcessMessages();
    lbDaten.Items.Add('Test - ' + IntToStr(iTemp));
    Application.ProcessMessages();
  End;
  for iTemp := 0 to 5 do
  Begin
    Application.ProcessMessages();
    Sleep(200);
    Application.ProcessMessages();
    lbDaten.Items.Strings[iTemp] := '<img src="idx:2"> '+lbDaten.Items.Strings[iTemp];
    Application.ProcessMessages();
  End;
end;
---
6) Complie it and click
... at this point you see a very beautyful list filled with items and then with an icon adding
7) go in project-options and uncheck "runtime-themes"
8) Compile it and click
... at this point you see the same procedure but with a little difference ... the background ob the icon is not transperent but black

I hope you can verify this and create a solution for this.
The same thing happend to other components too but this one is simple to re-create (I hope so).
I have some problems with "runtime-themes" so I hope you are in mood to "correct" it for non-runtime-theme-users.

Thanks for reading so far and a nice and frindly day.

Greetings from germany (so sorry for any mistakes in grammar or something else)

What version of Delphi do you use and do you use the latest version of the components, as I have tested this here and I could not reproduce an issue. Both with & without runtime themes, the imagelist mages render correct here.