Styles in XE2 and TImage

[WojTec]

Today I got XE2 :-D, I'm very excited :-D, 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 :-D. Now I enabled style and... empty TImage :o - need to dbl call rendering function to make bitmap visible :shock:

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? :?: