ListView

← →
Ламонов Олег (2007-05-12 16:47) [0]

Уважаемые мастера.
Скажите, как изменить Canvas.Brush 0 колонки в ListView.
То есть, где по умолчанию рисуются checkbox или пиктограммы ImageList.
Все кроме 0,он изменяет, а ее не хочет.
Спасибо.

← →
Юрий Зотов © (2007-05-12 18:45) [1]

У колонок нет кисти, она одна для всего ListView. Скорее всего, что-то Вы не так рисуете.

← →
Ламонов Олег (2007-05-12 19:13) [2]

Для более понятного примера.
Как получить, например, доступ к 3 строке и 3 колонки и закрасить ее красным?

Вообще, как достать Rect у Item?
если рисовать стандартно, что-то не так:

procedure TListRecords_f.BookCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
i:Integer;
begin
if Item = nil then
Exit;
i := Item.Index;
if i = 3 then
Sender.Canvas.brush.Color := clRed
else
Sender.Canvas.brush.Color := clwhite;

end;

← →
DVM © (2007-05-12 19:26) [3]

> Ламонов Олег (12.05.07 19:13) [2]

CustomDrawSubItem() ?

> [2] Ламонов Олег (12.05.07 19:13)

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
Sender: TCustomListView; Item: TListItem; SubItem: Integer;
State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if (Item.Index=2) and (SubItem=2) then Sender.Canvas.Brush.Color:=clRed else Sender.Canvas.Brush.Color:=clWhite;
end;

[3] Тоже самое, я не обновил ветку перед отправкой поста)

ListView Найти похожие ветки