Подсветка ячеек listview

[nibufep]

Я пробовал делать примерно так же, но все попытки были не удачные, и я удалял код, вот последнее что пробовал:

  
  if ((Sender.Items[7].Subitems[0] = '') or (Sender.Items[7].Subitems[1] = '')) then
    exit;
  
  Sender.Canvas.Brush.Color := clRed;

  if SubItem = 0 then
  begin
    if (StrToInt(Item.SubItems[0]) > StrToInt(Item.SubItems[1])) then
    begin
      Sender.Canvas.Brush.Color := clGreen;
    end;
  end;

  try

    if SubItem = 1 then
    begin
      if (StrToInt(Item.SubItems[0]) < StrToInt(Item.SubItems[1])) then
      begin
        Sender.Canvas.Brush.Color := clGreen;
      end;
    end;

[Filka]

Мой код из #8

Так должно быть?

[northener]

Сообщение от nibufep

if ((Sender.Items[7].Subitems[0] = '') or (Sender.Items[7].Subitems[1] = '')) then exit;

Эта строчка меня сильно смущает. При чем тут Items[7]?
Да и вообще этот код не должен компилироваться. Ибо Sender это TObject

[Аватар]

Ибо Sender это TObject

Не везде. Здесь Sender: TCustomListView

[northener]

Аватар? да точно.

[nibufep]

Сообщение от northener

При чем тут Items[7]?

Это последняя строка в списке, как я говорил список у меня заполняется не весь сразу.

Сообщение от Filka

Мой код из #8

Так должно быть?

Да, так, но Вы наверное список заполняете сразу, а я нет, покажу как примерно у меня сделано:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Clear;
  ListView1.Items.Add.Caption := 'Показатель 1';
  ListView1.Items[0].SubItems.Add('');
  ListView1.Items[0].SubItems.Add('');
  ListView1.Items.Add.Caption := 'Показатель 2';
  ListView1.Items[1].SubItems.Add('');
  ListView1.Items[1].SubItems.Add('');
  ListView1.Items.Add.Caption := 'Показатель 3';
  ListView1.Items[2].SubItems.Add('');
  ListView1.Items[2].SubItems.Add('');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  listview1.Items[0].Subitems[0] := '5';
  listview1.Items[1].Subitems[0] := '10';
  listview1.Items[2].Subitems[0] := '20';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  listview1.Items[0].Subitems[1] := '1';
  listview1.Items[1].Subitems[1] := '2';
  listview1.Items[2].Subitems[1] := '3';
end;

[Filka]

procedure TForm1.Button2Click(Sender: TObject);
begin
  listview1.Items[0].Subitems[0] := '5';
  listview1.Items[1].Subitems[0] := '10';
  listview1.Items[2].Subitems[0] := '20';
  //
  ListView1.Invalidate; // <--
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  listview1.Items[0].Subitems[1] := '1';
  listview1.Items[1].Subitems[1] := '2';
  listview1.Items[2].Subitems[1] := '3';
  //
  ListView1.Invalidate; // <--
end;

[nibufep]

Filka, так работает! Всем большое спасибо за помощь)