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

[97mik]

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

[Brovin Yaroslav]

Например так для 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;

Изменено 25 июня, 2014 пользователем Brovin Yaroslav