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

[nibufep]

Доброго дня!
Как можно изменить цвет определенных ячеек?
Вот что нужно:

[Filka]

http://delphidabbler.com/articles?article=16

[nibufep]

Там нет примера того что нужно мне. Там есть пример как изменить цвет всего столбца, а мне нужно именно менять цвет каждой ячейки.

[Replicant]

procedure TForm2.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  ListView1.Canvas.Brush.Color := clWhite;
  if (Item.Index = 1) and (SubItem = 3) then
  begin
    ListView1.Canvas.Brush.Color := clBlue;
  end;
    if (Item.Index = 1) and (SubItem = 1) then
  begin
    ListView1.Canvas.Brush.Color := clGreen;
  end;
    if (Item.Index = 0) and (SubItem = 2) then
  begin
    ListView1.Canvas.Brush.Color := clRed;
  end;
end;

Можно на выпадающее меню добавить возможность заливки нужным цветом, после чего создавать массив карту в который заносить координаты и цвет ячеек, а в ListView1CustomDrawSubItem и ListView1CustomDrawItem обрабатывать данную карту.

[nibufep]

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

procedure TForm2.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  ListView1.Canvas.Brush.Color := clWhite;
  if (Item.Index = 1) and (SubItem = 3) then
  begin
    ListView1.Canvas.Brush.Color := clBlue;
  end;
    if (Item.Index = 1) and (SubItem = 1) then
  begin
    ListView1.Canvas.Brush.Color := clGreen;
  end;
    if (Item.Index = 0) and (SubItem = 2) then
  begin
    ListView1.Canvas.Brush.Color := clRed;
  end;
end;

Можно на выпадающее меню добавить возможность заливки нужным цветом, после чего создавать массив карту в который заносить координаты и цвет ячеек, а в ListView1CustomDrawSubItem и ListView1CustomDrawItem обрабатывать данную карту.

Так я пробовал, ну мне нужно не много не то. Мне нужно проверить в каком столбце число больше.

первый > второй = первый столбик зеленым, второй красным
первый < второй = первый красный, второй зеленый
первый = второй = оба красные

проблема в том что заполняется первый и второй столбик не одновременно, нужно с начало проверить заполнены ли оба столбца, а потом проверять и менять цвет.

[northener]

Держи многострадальный

procedure TForm22.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Brush.Color := clWhite;
  if (Item.Caption <> '') and (Item.SubItems[0] <> '') then begin
    If StrToInt(Item.Caption) <= StrToInt(Item.SubItems[0]) then
      TListView(Sender).Canvas.Brush.Color := clRed
    else TListView(Sender).Canvas.Brush.Color := clGreen;
  end;
end;

procedure TForm22.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Brush.Color := clWhite;
  if SubItem = 1 then begin
    if (Item.Caption <> '') and (Item.SubItems[0] <> '') then begin
      If StrToInt(Item.Caption) >= StrToInt(Item.SubItems[0]) then
        TListView(Sender).Canvas.Brush.Color := clRed
      else TListView(Sender).Canvas.Brush.Color := clGreen;
    end;
  end;
end;

В моем примере раскрашиваются только две первые колонки ListView::Report. Если их больше, надеюсь дополните код сами.

P.S. В первый раз столкнулся с раскраской ListView и страшно удивился что параметр SubItem нумеруется с 1, а не с 0.

[nibufep]

Извиняюсь, я наверное, не правильно объяснил... Под первыми 2 столбиками, я имел ввиду SubItems[0] и SubItems[1], а не Caption.

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Brush.Color := clWhite;
  if (Item.SubItems[0] <> '') and (Item.SubItems[1] <> '') then
  begin
    if StrToInt(Item.SubItems[0]) <= StrToInt(Item.SubItems[1]) then
      TListView(Sender).Canvas.Brush.Color := clRed
    else
      TListView(Sender).Canvas.Brush.Color := clGreen;
  end;
end;
 
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Brush.Color := clWhite;
  if SubItem = 1 then
  begin
    if (Item.SubItems[0] <> '') and (Item.SubItems[1] <> '') then
    begin
      if StrToInt(Item.SubItems[0]) >= StrToInt(Item.SubItems[1]) then
        TListView(Sender).Canvas.Brush.Color := clRed
      else
        TListView(Sender).Canvas.Brush.Color := clGreen;
    end;
  end;
end;

Если сделать так - то работать не будет.

[Filka]

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  I, J: Integer;
  AColor: TColor;
begin
  if (SubItem = 1) or (SubItem = 2) then
    if TryStrToInt(Item.SubItems[0], I) and TryStrToInt(Item.SubItems[1], J) then
    begin
      case SubItem of
        1:
          begin
            if I > J then
              AColor := clGreen
            else if I <= J then
              AColor := clRed
          end;
        2:
          begin
            if I >= J then
              AColor := clRed
            else if I < J then
              AColor := clGreen
          end;
      end;
      ListView1.Canvas.Brush.Color := AColor;
    end;
end;

[nibufep]

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

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  I, J: Integer;
  AColor: TColor;
begin
  if (SubItem = 1) or (SubItem = 2) then
    if TryStrToInt(Item.SubItems[0], I) and TryStrToInt(Item.SubItems[1], J) then
    begin
      case SubItem of
        1:
          begin
            if I > J then
              AColor := clGreen
            else if I <= J then
              AColor := clRed
          end;
        2:
          begin
            if I >= J then
              AColor := clRed
            else if I < J then
              AColor := clGreen
          end;
      end;
      ListView1.Canvas.Brush.Color := AColor;
    end;
end;

Окрашивается или только первый или только второй, в зависимости от того в каком порядке они были заполнены.

[Filka]

Где ваши наработки?