Цвет 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 на форуме, как сразу возникает восклицание "респект".
А тот же самый обработчик в собственном коде такого эффекта почему-то не производит.

:)

как пример:

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;

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

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

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