ListView Header Farbe (Win32)

[EWeiss]

Zitat:

TCustomListView

Win32

Danke. Nein das Handle kann man einfacher erfahren eine Zeile Code.
  HeaderHandle := ListView_GetHeader(WinHandle);

btw. komplett.

Delphi-Quellcode:

procedure TSkinListView.SubClass(WinHandle: hWnd);
begin

  FClientInstance := MakeObjectInstance(ClientWndProc);

  FPrevClientProc := Pointer(GetWindowLong(WinHandle, GWL_WNDPROC));
  SetWindowLong(WinHandle, GWL_WNDPROC, Integer(FClientInstance));

  FHeaderInstance := MakeObjectInstance(HeaderClientWndProc);
  HeaderHandle  := ListView_GetHeader(WinHandle);
  FPrevHeaderProc := Pointer(GetWindowLong(HeaderHandle , GWL_WNDPROC));
  SetWindowLong(HeaderHandle , GWLP_WNDPROC, Integer(FHeaderInstance));
end;

Ich habe Columns auf der ListView ich benötige den Hintergrund von allen Columns. (Scheint irgendein Frame zu sein.
Der schwarze Bereich wie gezeigt.

Nebenbei:
Ein Qual ein ListView selbst zu zeichnen. (Na was soll's hab sonst nix zu tun).
Muss ich wohl irgendwie selbst lösen.

gruss