Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


Kikoma

Вопрос

Рекомендуемые сообщения

  • 0
  • Администраторы

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

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;
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...