|
#1
|
|||
|
|||
Изменить цвет
Всём привет у меня такая проблема: Нужно расскрасить строки в листбоксе определённым цветом, скажем оранжевым, но беда в том, что он ругается еслия ему присваиваю clorange, т.е. он поддерживает только ограниченное число цветов, а на остальные ругается. Вопрос в том как задать нужный цвет?
Так я делаю: Код:
TListBox(Control).Canvas.Brush.Color:=clyellow; |
#2
|
||||
|
||||
TListBox(Control).Canvas.Brush.Color := $RRGGBBXX
$004080FF - код оранжевого цвета. |
#3
|
|||
|
|||
Спасибо, я примерно предпологал что так и должно быть, только точно не знал.
|
#4
|
||||
|
||||
а че за ХХ в конце?
знаете почему внизу эскалатора бабка в будке сидит? она там педальки крутит и лесенка едет! |
#5
|
||||
|
||||
Скорее $AABBGGRR
Где: AA - прозрачность BB - синий GG - зелёный RR - красный. dr. F.I.N - стыдно не знать "разбайтовку" цветов в Delphi. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
||||
|
||||
вообще-то 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; |
#7
|
||||
|
||||
NumLock, и тебе минус: Альфа-канал не поддерживают стандартные компоненты и методы Delphi (например, в твоём примере - канва). Вот для них можно альфу опускать - но это всё равно не
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 12.08.2010 в 14:40. |
#8
|
||||
|
||||
Цитата:
|
#9
|
||||
|
||||
за то, что я не использую для конкретного примера "левые" компоненты надо два плюса ставить) к тому же топикстартер как раз использует стандартный Canvas
и вообще: property Color: TColor; TColor = -$7FFFFFFF-1..$7FFFFFFF; думаю о прозрачности вопрос закрыт Последний раз редактировалось NumLock, 12.08.2010 в 16:10. |
#10
|
||||
|
||||
Не надо превращать тему в троллинг )
То, что TColor объявлён как Integer, не запрещает использовать 4 байта в виде Cardinal. Компоненты, в которых прозрачность поддерживается, её используют, причём именно так, как я сказал. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |