• 0
97mik

TColor Как указать цвет по RGB?

Вопрос

Как указать цвет например Rectangle1 по RGB?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

1 ответ на этот вопрос

  • 0

Например так для RGB:

var
  Color: TColor;
begin
  TColorRec(Color).R := 123;
  TColorRec(Color).G := 113;
  TColorRec(Color).B := 13;
  Rectangle1.Fill.Color := Color;
end;

Или так для ARGB:

var
  Color: TAlphaColor;
begin
  TAlphaColorRec(Color).R := 123;
  TAlphaColorRec(Color).G := 113;
  TAlphaColorRec(Color).B := 13;
  TAlphaColorRec(Color).A := 126;
  Rectangle1.Fill.Color := Color;
end;

Update 1 (2014.06.25): В RAD Studio XE6 появился более удобный способ через использование конструктора типа TAlphaColorF:

uses
  System.UITypes;

var
  Color: TAlphaColor  
begin
  Color := TAlphaColorF.Create(123 / 255, 113 / 255, 13 / 255, 126 / 255).ToAlphaColor;
end;
Изменено пользователем Brovin Yaroslav
Владимир понравилось это

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
Гость
Эта тема закрыта для публикации сообщений.

  • Похожие публикации

    • Автор: notricky
      Почему-то не возможно использовать константы цветов, заданные в TAlphaColorRec, TColorRec.
      Они есть, но при присвоении, например, TextSettings.Font.Color = TColorRec.cRed или TAlphaColorRec.Red ничего не происходит. Нужно явно задавать $FFFF0000.
      Если так у кого-то ещё, напишите.
      А если что-то можно с этим сделать - тоже
    • Автор: Вячеслав
      Всем добрый день. В этой теме Ярослав разъяснил, каким образом можно закрасить цветом прямоугольник, имея три составляющих цвета RGB. 
      Я столкнулся со следующей проблемой: при работе с TAlphaColor все корректно, но вот при работе с просто TColor составляющие Red и Blue меняются местами. Чтобы не быть голословным, набросал небольшой пример. 
      У меня, собственно, 2 вопроса: это я такой слепой и чего-то не вижу, или баг среды?
      И второе: почему при работе с TColor цвета получаются такими ущербными? Черный выглядит как серый и тд. Понимаю, всего 255 градаций, но все-равно как-то слишком низкое качество на выходе.

      Colors.zip
    • Автор: brunnengi
      Здравствуйте.
      Как изменить цвет отдельного пикселя, а точнее сделать его полностью прозрачным?
      Например в image загруженная картинка. И надо пиксель с координатами x75 и y50 сделать невидимым.
  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу