Текущий архив: 2004.06.20;
Скачать: CL | DM;
Вниз
Работа с компонентом ListView Найти похожие ветки
← →
r9000 (2004-06-04 11:58) [0]Добрый день!
Не могли бы вы мне помочь? Пытаюсь закрасить строки компонента
ListView(Viewstyle=vsReport) разным цветом. Мне необходимо, чтобы в зависимости от содержимого колонки 3 ListView, т.е. 2 SubItems, строчки ListView закрашивались разным цветом. Можно ли это сделать и как? Если возможно на примере.
Я пытаюсь сделать так:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
DefaultDraw := TRUE;
if (SubItem=2) and (trim(ListView1.Items[2].SubItems.Text)="10") then
TListView(sender).Canvas.Brush.Color:=clgreen
else
TListView(sender).Canvas.Brush.Color:=clWhite
но при этом закрашиваются столбец 3 ListView зеленым цветом, а не строки с (trim(ListView1.Items[2].SubItems.Text)="10",
а как сделать это в процедуре ListView1CustomDrawItem
не очень понятно.
← →
Clickmaker © (2004-06-04 12:04) [1]OnAdvancedCustomDrawItem, Stage = cdPrePaint
← →
r9000 (2004-06-04 12:16) [2]А можно на примере для данного случая, пожалуйста? Stage=cdPrePaint как используется?
← →
Семен Сорокин © (2004-06-04 12:19) [3]and (trim(Item.SubItems[SubItem].Text)="10") then
← →
Семен Сорокин © (2004-06-04 12:19) [4]сорри вот так:
and (trim(Item.SubItems[SubItem])="10") then
← →
r9000 (2004-06-04 12:31) [5]Спасибо всем, получилось!
← →
parovoZZ © (2004-06-06 21:11) [6]А как на этом компоненте нарисовать рисунки (как в проводнике); надо создавать TImage на нём или можно по другому?
← →
Семен Сорокин © (2004-06-07 09:00) [7]parovoZZ © (06.06.04 21:11) [6]
обработать WM_ERASEBKGND где нарисовать фон в клиентской области.
Страницы: 1 вся ветка
Текущий архив: 2004.06.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.033 c
