Скачать: CL | DM;

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() ?

---

← →
{RASkov} ©   (2007-05-12 19:28) [4]

> [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;

---

← →
{RASkov} ©   (2007-05-12 19:30) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c