freepascal.ru

Приветствую, такая проблема: на форме есть объект TImage, с незагруженой картинкой. Он лежит на панели TPanel.
Создаю объект TBitmap, загружаю туда картинку, выставляю Canvas.Brush.Color := clRed, рисую на битмапе кружок.
Присваиваю объекту TImage.Picture.Bitmap мой созданый TBitmap. Кружок виден, но он стал дыркой, под которой просвечивает TPanel, и Label на ней.
Не могу понять, в чем дело, куда копать?

Код: Выделить всё

var
  imgLBMap: TImage
  MapBitmap: TBitmap
...
  MapBitmap := TBitmap.Create;
  MapBitmap.Canvas.Brush.Color := clRed;
  MapBitmap.LoadFromFile('world-small.bmp');
  MapBitmap.Canvas.Ellipse(20, 20, 50, 50);
  imgLBMap.Picture.Bitmap := MapBitmap;


Это мой первый пост на этом форуме, так что не судите строго, если что не так.
Lazarus, WinXP

Работает замечательно:

Код: Выделить всё

  with Image1.Picture.Bitmap do
  begin
    LoadFromFile('world-small.bmp');
    Canvas.Brush.Color:=clRed;
    Canvas.Ellipse(20, 20, 50, 50);
  end;


Lazarus-0.9.31-svn-30055 fpc-2.4.3 winxp32-sp2

Ну так у меня тоже работает. Но, как видно из исходника, я сначала создаю объект типа TBitmap, рисую на нем, а потом переношу на визуальный компонент на форме. Тут и проявляется проблема.