Текущий архив: 2006.03.26;
Скачать: CL | DM;
Вниз
Как изменить выделение строки в ListView? Найти похожие ветки
← →
Chaser © (2006-02-20 10:46) [0]Как изменить цвет выделения (фокуса) строки в ListView (по умолчанию он синего цвета)?
Как изменить цвет текста в определенной строке ListView?
← →
ЮЮ © (2006-02-20 11:00) [1]ListView.Style = lbOwnerDraw... и в OnDrawItem рисуй, как вздумается
← →
API (2006-02-20 13:04) [2]Как изменить цвет выделения (фокуса) строки в ListView (по умолчанию он синего цвета)?
Правой кнопкой мыши на рабочем столе... меню "Свойства" - закладка "Оформление" - кнопка "Дополнительно" - список "Элемент": "Выделенный пункт меню" - "Цвет 1": (выбирайте)
← →
Chaser © (2006-02-20 13:08) [3]
> API (20.02.06 13:04) [2]
>
> Как изменить цвет выделения (фокуса) строки в ListView (по
> умолчанию он синего цвета)?
>
> Правой кнопкой мыши на рабочем столе... меню "Свойства"
> - закладка "Оформление" - кнопка "Дополнительно" - список
> "Элемент": "Выделенный пункт меню" - "Цвет 1": (выбирайте)
Так мне надо в моей программе, а не в системе, так я и сам могу.
← →
Chaser © (2006-02-20 13:11) [4]А как в OnDrawItem рисовать-то, пример есть?
← →
Demona (2006-02-20 22:41) [5]Например так:
procedure TForm1.List1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with PlayList1.Canvas do
begin
//bg
if State=[odSelected, odFocused] then
Brush.Color:=$00C62200
else
Brush.Color:=clBlack;
FillRect(Rect);
if index=TestList1[0].chan_stat[1] (*plaing song index*) then
begin
Font.Color:=$00FFFFFF;
Font.Style:=Font.Style;
TextOut(Rect.TopLeft.X,Rect.TopLeft.Y, PlayList1.Items[index]);
end
else
begin
Font.Color:=$0000DD87;
Font.Style:=Font.Style;
TextOut(Rect.TopLeft.X,Rect.TopLeft.Y, PlayList1.Items[index]);
end;
end;
end;
← →
Дмитрий Белькевич © (2006-02-21 01:04) [6]Учти, что на некоторых цветовых схемах выделения вообще видно не будет.
Страницы: 1 вся ветка
Текущий архив: 2006.03.26;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.043 c
