Клетки в listView разным цветом

[Altera]

Как мне с моим listView сделать вот так-же

(Это download master, на самом деле там нет такой функции просто я для демонстрации сделал)
Мне нужно что-бы определённые клетки были нужного мне цвета...

[Alex Cones]

Может StringGrid, а не List View? \\\ Пардон, уже понял. Может юзать smallicons?
Мож попробовать DrawGrid? Хотя даже не знаю, есть ли у него смена цветов...

[Пепел Феникса]

события OnCustomDrawItem, OnCustomDraw
OnCustomDrawSubItem юзали?

подтверждаю!
OnCustomDrawItem OnCustomDrawSubItem
отлично работают(режим vsReport)

через дополнительные данные(указатели у итемов/субитемов) храним все что нужно для верной прорисовки одного и того же итема, и все

[Denager]

Altera, если использовать OwnerDraw?
Ссылки по теме
1, 2, 3

[Altera]

2Denager, там у них почему-то описание процедуры другое.
У меня

procedure Tmain_form.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

procedure Tmain_form.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);

procedure Tmain_form.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);

[Stilet]

Дружище, вот примерчик окраски :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 with ListView1.Items.Add do begin
  Caption:='111';
  SubItems.Add('45345');
 end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  var r:TRect;
begin
 if Item.Caption='111' then begin
   DefaultDraw:=false;
    r:=Item.DisplayRect(drBounds);
   with TListView(sender).Canvas do begin
    Brush.Color:=clRed;
    FillRect(r);
    TextOut(r.Left,R.Top,item.Caption);
   end;
 end else begin
   DefaultDraw:=true;
 end;
end;

end.

P.S. слегка некошерно конечно придумано, но работает нормательно

[Altera]

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

[Пепел Феникса]

вот держи.
если еще будут вопросы задавай

[Altera]

Сообщение от Пепел Феникса

вот держи.
если еще будут вопросы задавай

Не то что надо. Меня жутко бесит одна вещь!

procedure Twnd.lstCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
   if SubItem = 4 then
      sender.Canvas.Brush.Color := clRed
   else
      sender.Canvas.Brush.Color := clWindow;
end;

Эта сцука мне остальные субайтемы тоже красными делает. Надо не clWindow а clWhite писать. А мне это не нравится. Тем более что есть собычии onCustomDrawItem где устанавливается цвет и шрифт всего айтема.

//У меня Delphi 2009. Там много "нововведений"

[Пепел Феникса]

Altera, в моем коде у каждого итема/субитема свои данные
поэтому можно сделать чтоб именно один был красным.

ваш код красит все 4-ые субитемы красным(фон)

я скоро уезжаю поэтому написать код(с нуля) не смогу, но обывки какие нить могу.

вот последнее что смог.