Lazarus – TImage и OnResize

[Jin X]

Вопрос касается именно Lazarus'а, т.к. в Delphi такого глюка нет.

Image привязан якорями (Anchors) к форме.
Однако, если поменять размер формы, то размер канваса не меняется (в Delphi тоже).
Изменить размер канваса можно, например, так (из OnResize формы):

  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;

Но тут есть нюанс: при увеличении размера окна появляются чёрные куски в той области, где происходит увеличение.
Как сделать, чтобы такого не было?

Скажем, вот такой код:

procedure TForm1.FormResize(Sender: TObject);
begin
  with Image1.Canvas, Image1 do
  begin
    Picture.Bitmap.SetSize(Width, Height);
    Brush.Color := clYellow;
    FillRect(ClipRect);
  end;
end;

в Delphi работает прекрасно, а вот в Lazarus появляются чёрные глюки...

[Jin X]

Видео: https://cloud.mail.ru/public/LVTc/2QVMfnBBQ