[Gman]

Всём привет у меня такая проблема: Нужно расскрасить строки в листбоксе определённым цветом, скажем оранжевым, но беда в том, что он ругается еслия ему присваиваю clorange, т.е. он поддерживает только ограниченное число цветов, а на остальные ругается. Вопрос в том как задать нужный цвет?
Так я делаю:

Код:

TListBox(Control).Canvas.Brush.Color:=clyellow;

[dr. F.I.N.]

TListBox(Control).Canvas.Brush.Color := $RRGGBBXX

$004080FF - код оранжевого цвета.

[Gman]

Спасибо, я примерно предпологал что так и должно быть, только точно не знал.

[SerginhoLD]

а че за ХХ в конце?

[PhoeniX]

Скорее $AABBGGRR
Где:
AA - прозрачность
BB - синий
GG - зелёный
RR - красный.

dr. F.I.N - стыдно не знать "разбайтовку" цветов в Delphi.

[NumLock]

вообще-то delphi не поддерживает альфа-канал:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clRed;
  Canvas.FillRect(Rect(20, 20, 80, 80));
  Canvas.Brush.Color:=$4000ff00;
  Canvas.FillRect(Rect(40, 40, 100, 100));
end;

[PhoeniX]

NumLock, и тебе минус: Альфа-канал не поддерживают стандартные компоненты и методы Delphi (например, в твоём примере - канва). Вот для них можно альфу опускать - но это всё равно не

$RRGGBBXX

а $BBGGRR

[dr. F.I.N.]

Сообщение от DJ PhoeniX

Скорее $AABBGGRR
Где:
AA - прозрачность
BB - синий
GG - зелёный
RR - красный.

dr. F.I.N - стыдно не знать "разбайтовку" цветов в Delphi.

Стыдно...не спорю Не подумал...увидел тему - отписался...простите и не бейте. Но на поставленный вопрос "Как сделать оранжевый" ответил верно и полно Ну вобщен бывает у каждого

[NumLock]

за то, что я не использую для конкретного примера "левые" компоненты надо два плюса ставить) к тому же топикстартер как раз использует стандартный Canvas
и вообще:
property Color: TColor;
TColor = -$7FFFFFFF-1..$7FFFFFFF;
думаю о прозрачности вопрос закрыт

[PhoeniX]

Не надо превращать тему в троллинг )
То, что TColor объявлён как Integer, не запрещает использовать 4 байта в виде Cardinal. Компоненты, в которых прозрачность поддерживается, её используют, причём именно так, как я сказал.