Вроде как ошибка!

[BurcevD]

Уважаемые разработчики!

Хочу обратить Ваше внимание на следующие коды, 

в модуле FMX.ListView.Types

 

строка 1530

  if ImageSource = TImageSource.ImageList then
    Bitmap := Images.Bitmap(TSizeF(TPointF(FLocalRect.Size) * Canvas.Scale), FImageIndex)
  else
    Bitmap := GetBitmap;
... далее текст работы с Bitmap

В то же время ImageSource может иметь 3 значения: 

1481 строка

function TListItemImage.GetImageSource: TImageSource;
begin
  if (FImageIndex <> -1) and (Images <> nil) and Images.BitmapExists(ImageIndex) then
    FImageSource := TImageSource.ImageList
  else if GetBitmap <> nil then
    FImageSource := TImageSource.Bitmap
  else
    FImageSource := TImageSource.None;
  Result := FImageSource;
end;

И если Bitmap из прошлого кода равен nil, то происходит ошибка. 

Следует либо обработать третьего состояния либо обработать bitmap на nil.

 

Спасибо