begin
  var Bmp := TBitmap.Create(64,64);
  var RandomColor: TAlphaColorRec;
  for var i := 0 to 10
  do begin
     var Image := TImage.Create(GridLayout1);
     Image.Parent := GridLayout1;
     Image.Align := TAlignLayout.Client;
     RandomColor.R := 128+Random(128);
     RandomColor.G := 128+Random(128);
     RandomColor.B := 128+Random(128);
     Bmp.Canvas.BeginScene;
     Bmp.Canvas.Clear(RandomColor.Color);
     Bmp.Canvas.EndScene;
     Image.Bitmap.Assign(Bmp);
     end;
  Bmp.Free;
end;

Добавлено через 3 часа 23 минуты
Тут я разобрался. Альфу я не инициализирую, а она по умолчанию равна нулю и цвет просто прозрачный.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.12.2023, 19:07

Ответы с готовыми решениями:

Почему, если выключить checkbox и label, то они получаются разного цвета
Добрый день! На интерфейсе несколько checkbox-ов и label-ов. В какой-то момент мне нужно...

Почему у меня в тестах показывает 60 и выше fps и всё плавно но на телефоне всё резко и как будто 30 фпс?
123

Закрыть все дочерний окна одного цвета
Помогите пожалуйста. у меня такое задания Написать программу, создающую на экране окно (главное...

Доказательство по индукции (Все кошки одного цвета)
Объясните, пожалуйста, смысл ошибки в следующем доказательстве. Докажем что все кошки в мире...

	21.12.2023, 19:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.12.2023, 19:07

Помогаю со студенческими работами здесь

Почему у меня все прыгает по экрану?
На странице есть список ссылок, при клике на каждую из которых появляется всплывающая форма. ...

Выяснить все ли клетки шахматной доски одного цвета
Здраствуйте, нам на оллимпиаду задали сделать 1 из програм но сколько бы во мне не было стремления...

Какова вероятность, что все шары одного цвета?
В первой урне 6 синих и 4 красных шара. Во второй урне 3 синих и 2 красных шаров. Из каждой урны...

Узнать все ли клетки шахматной доски одного цвета
Удалено

Найти вероятность того, что при вытягивании трех нитей окажется: 1) все нити одного цвета; б) все нити разных
2. В мешке смешаны нити трех цветов: белых 50%, красных – 30%, черных – 20%. Определить вероятность...

Почему у меня обнуляются все элементы массива
Подскажите пожалуйста, почему у меня обнуляются все элементы массива, ведь интервал задан. ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх