[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;

[dr. F.I.N.]

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

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

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

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