Текущий архив: 2007.11.25;
Скачать: 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 вся ветка
Текущий архив: 2007.11.25;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.023 c
