Как в ListView изменить цвет columns со стандартоного clBtnFace на нечто другое ?

Наверное поставить OwnerDraw в True и самому нарисовать))) У ListView множество различных событий ответственных за перерисовку. Есть из чего выбрать)))))))))))

Цитата

Наверное поставить OwnerDraw в True и самому нарисовать))) У ListView множество различных событий ответственных за перерисовку. Есть из чего выбрать)))))))))))

Ты знаешь я перерыл весь компонент ListView
но события отвечающее за column'sы не нашёл.

OwnerDraw не помогает.

По-моему у него (Column) даже HWND нету либо не найти. Скажете как найти HWND скажу как закрасить.

Да нет у него Handle и все тут!
пиши свой
или спроси мож у кого есть готовый :-)

primer koda v C++Builder. v Delphi pohozje.
pered FillRect u Canvas.Brush nado pomenjatj Color

void __fastcall TFormTranslatorDlg::ListBoxLanguagesDrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State)
{
ListBoxLanguages->Canvas->Font->Charset = ListBoxLanguages->Font->Charset;
ListBoxLanguages->Canvas->Font->Name = ListBoxLanguages->Font->Name;
ListBoxLanguages->Canvas->Font->Size = ListBoxLanguages->Font->Size;
ListBoxLanguages->Canvas->FillRect(Rect);
ListBoxLanguages->Canvas->TextOut(Rect.Left+2, Rect.Top, ListBoxLanguages->Items->Strings[Index]);
}

Вообще речь то вроде о ListView а не о ListBox'е...

В натуре о ListView и единственный способ, это менять системный цвет.

Согласен, но тогда вообще все окна в системе начинают перерисовываться...

вот, надумал

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls; type  TForm1 = class(TForm)    ListView1: TListView;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} uses CommCtrl; var  oldProc: Pointer; function newProc(hw: HWND; msg: UINT; wP: WPARAM; lP: LPARAM): LRESULT; stdcall; var  ph: PNMCustomDraw;  c: TCanvas; begin  case msg of    WM_NOTIFY: begin      ph := Pointer(lP);      if (ph.hdr.code = NM_CUSTOMDRAW) then begin        case ph.dwDrawStage of          CDDS_PREPAINT: Result := CDRF_NOTIFYITEMDRAW;          CDDS_ITEMPREPAINT: begin            c := TCanvas.Create;            c.Handle := ph.hdc;            c.Brush.Color := clWindow;            c.Pen.Color := clWindow;            c.Pen.Style := psSolid;            c.Rectangle(ph.rc);            InflateRect(ph.rc, -1, -1);            c.Brush.Color := clMoneyGreen;            c.Pen.Color := clGreen;            c.Pen.Style := psDot;            c.Rectangle(ph.rc);            InflateRect(ph.rc, -1, -1);            DrawText(c.Handle, PChar(Form1.ListView1.Columns[ph.dwItemSpec].Caption),  Length(Form1.ListView1.Columns[ph.dwItemSpec].Caption), ph.rc, DT_END_ELLIPSIS or DT_VCENTER or DT_CENTER);            c.Free;            Result := CDRF_SKIPDEFAULT;          end;        else          Result := CallWindowProc(oldProc, hw, msg, wP, lP);        end;      end      else        Result := CallWindowProc(oldProc, hw, msg, wP, lP);    end;  else    Result := CallWindowProc(oldProc, hw, msg, wP, lP);  end; end; procedure TForm1.Button1Click(Sender: TObject); var  hh: Integer;  r: TRect; begin  hh := ListView1.Handle;  oldProc := Pointer(GetWindowLong(hh, GWL_WNDPROC));  SetWindowLong(hh, GWL_WNDPROC, Integer(@newProc));  r := Rect(0, 0, ListView1.Width, 100);  InvalidateRect(ListView_GetHeader(ListView1.Handle), @r, True); end; end.

далеко от совершенства, но все в ваших руках ;) лучше всего это засунуть в класс TListViewEx, посимпатишней тогда будет... и проще сделать, не нужно будет GetWindowLong, SetWindowLong...

cully Удивил! Слушай а там возле скролла кусок колонки не окрашевается.

Вариант, который _почти_ устраняет этот недостаток (почти - потому что хэдер самой правой
колонки без названия рисуется хоть и нужным цветом, но с 3D рамкой...):

Код

function newProc(hw: HWND; msg: UINT; wP: WPARAM; lP: LPARAM): LRESULT; stdcall; var ph: PNMCustomDraw absolute lp; c: TCanvas; handled : boolean; begin  handled := false;  if msg = WM_NOTIFY then    if (ph.hdr.code = NM_CUSTOMDRAW) then    begin      c := TCanvas.Create;      c.Handle := ph.hdc;      case ph.dwDrawStage of        CDDS_PREPAINT:          begin            c.Brush.Color := clMoneyGreen;            c.Brush.Style := bsSolid;            c.Pen.Style := psSolid;            c.Pen.Color := clMoneyGreen;            c.Rectangle(ph.rc);            Result := CDRF_NOTIFYITEMDRAW;            handled := true;          end;        CDDS_ITEMPREPAINT:          begin            c.Brush.Style := bsClear;            c.Pen.Color := clWindow;            c.Pen.Style := psSolid;            c.Rectangle(ph.rc);            InflateRect(ph.rc, -1, -1);            c.Pen.Color := clGreen;            c.Pen.Style := psDot;            c.Rectangle(ph.rc);            InflateRect(ph.rc, -1, -1);            DrawText(c.Handle, PChar(Form1.ListView1.Columns[ph.dwItemSpec].Caption),  Length(Form1.ListView1.Columns[ph.dwItemSpec].Caption), ph.rc, DT_END_ELLIPSIS or DT_VCENTER or DT_CENTER);            Result := CDRF_SKIPDEFAULT;            handled := true;          end;      end;      c.Free;    end;  if not handled then Result := CallWindowProc(oldProc, hw, msg, wP, lP); end;

Можно в CDDS_PREPAINT сделать Result := CDRF_NOTIFYITEMDRAW + CDRF_NOTIFYPOSTPAINT,
и тогда в case надо добавить CDDS_POSTPAINT и там попробовать что-нибудь поделать.

P0s0l а что нельзя их так перекрасить чтоб свойсво 3D не утрачивалось?

Хэдеры с названиями ты можешь красить как угодно, хоть с 3D, хоть без 3D.
А вот самый крайний хэдер без названия почему-то получается только с 3D, без 3D - нельзя...
Причем цвет 3D в нем идет от стандартного цвета, т.е. если ты захочешь рисовать заголовки, например, зеленым цветом, то 3D грани у крайнего хэдера будут немного выделяться...
(в обычной цветовой схеме 3D грани серые, а не зеленоватые)

Тогда как перекрасить Хэдеры с названиями в 3D ?

Ато там Flat тут 3d ну некрасиво.