Скачать: CL | DM;

Цвет Item a   Найти похожие ветки 

← →
Washington ©   (2007-11-02 11:07) [0]

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

---

← →
Reindeer Moss Eater ©   (2007-11-02 11:11) [1]

Style := lbOwnerDrawFixed;
+
OnDrawItem
+
F1

---

← →
DVM ©   (2007-11-02 11:11) [2]

OwnerDraw

---

← →
Washington ©   (2007-11-02 11:18) [3]

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

---

← →
Reindeer Moss Eater ©   (2007-11-02 11:19) [4]

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

---

← →
DVM ©   (2007-11-02 11:20) [5]

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

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

---

← →
DVM ©   (2007-11-02 11:21) [6]

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

---

← →
Washington ©   (2007-11-02 11:22) [7]

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

Респект!

---

← →
Reindeer Moss Eater ©   (2007-11-02 11:28) [8]

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

:)

---

← →
webpauk ©   (2007-11-02 11:30) [9]

как пример:

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 odSelected in state then
   begin
     Font.Color:=clHighlightText;
     Brush.Color:=clHighlight;
   end;

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

---

← →
webpauk ©   (2007-11-02 11:31) [10]

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


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

---

← →
DVM ©   (2007-11-02 11:34) [11]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c