MultiResBitmap Как программно добавить изображения в MultiResBitmap?

[Kikoma]

Стоит задача программно добавить изображение в MultiResBitmap. Как это можно сделать?

[Brovin Yaroslav]

Например так:

const
  RequiredSclae = 1.0;
var
  BitmapItem: TFixedBitmapItem;
  Bitmap: TBitmap;
begin
  if OpenDialog.Execute then
  begin
    // Запрашиваем картинку для нужного Scale
    Bitmap := Image1.MultiResBitmap.Bitmaps[RequiredSclae];
    // Проверяем, есть картинка или нет. 
    if Bitmap = nil then
    begin
      // Если нет, то заводим контейнер для новой картинки
      BitmapItem := Image1.MultiResBitmap.Add;
      BitmapItem.Scale := RequiredSclae;
      Bitmap := BitmapItem.Bitmap;
    end;
    Bitmap.LoadFromFile(OpenDialog.FileName);
  end;

[Kikoma]

Ух ты! Спасибо!