| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цвет Item'a

Washington ©   (2007-11-02 11:07:00) 

Как изменить цвет выделенного Item'a в ListBox'e?

---

DVM   (2007-11-02 11:34:00) [1]

> Reindeer Moss Eater ©   (02.11.07 11:28) [8]
> Как же все таки интересно устроена Вселенная.

Тоже постоянно удивляюсь.

---

webpauk   (2007-11-02 11:31:00) [2]

> Как изменить цвет выделенного Item'a в ListBox'e?


  if odSelected in state then
  begin
    Font.Color:=цвет;
    Brush.Color:=цвет;
  end;

---

webpauk   (2007-11-02 11:30:00) [3]

как пример:

procedure TFormFilter.ComboBox1DrawItem(Control: TWinControl;  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with TComboBox(Control).Canvas do
 begin
   Font.Color:=clBlack;

   if Index div 2<>Index/2 then Brush.Color:=clRed
   else Brush.Color:=clYellow;

   if odSelectedin state then
   begin
     Font.Color:=clHighlightText;
     Brush.Color:=clHighlight;
   end;

   FillRect(Rect);
   TextOut(Rect.Left+5, Rect.Top, TComboBox(Control).Items[Index]);
 end;
end;

---

Reindeer Moss Eater   (2007-11-02 11:28:00) [4]

Как же все таки интересно устроена Вселенная.
Стоит увидеть пустой обработчик OnDrawItem на форуме, как сразу возникает восклицание "респект".
А тот же самый обработчик в собственном коде такого эффекта почему-то не производит.

:)

---

Washington   (2007-11-02 11:22:00) [5]

> DVM ©   (02.11.07 11:21) [6]

Респект!

---

DVM   (2007-11-02 11:21:00) [6]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
//
end;

---

DVM   (2007-11-02 11:20:00) [7]

> Washington ©   (02.11.07 11:18) [3]

неужели про Owner Draw знаешь, а про выделенный элемент нет?

---

Reindeer Moss Eater   (2007-11-02 11:19:00) [8]

тебе об этом параметр обработчика сообщит

---

Washington   (2007-11-02 11:18:00) [9]

Это всё я знаю, как при прорисовке узнать, что Item выделен?

---

Reindeer Moss Eater   (2007-11-02 11:11:00) [10]

Style := lbOwnerDrawFixed;
+
OnDrawItem
+
F1

---

DVM   (2007-11-02 11:11:00) [11]

OwnerDraw

---

Наверх