Styles in XE2 and TImage

[WojTec]

Today I got XE2 , I'm very excited , I quickly started test it.

Yesterday I wrote test app in 2010, a few buttons and one TImage on panel. On image is visible generated bitmap after buttons click.

I opened this app in XE2, nice, working . Now I enabled style and... empty TImage - need to dbl call rendering function to make bitmap visible

Delphi-Quellcode:

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    { Render here........... }

    Image1.Picture.Bitmap.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;

This is very, very, very trivial - in system style image is visible after simgle call, when styles used need to dbl call to see effect. Why? How to fix it?