ListView Columns und OwnerDraw

[Nils_13]

Hi,

kann man die Columns einer ListView mit ViewStyle vsReport anders färben ? Wenn ja, wie ?

Habe gegooglet und das gefunden:

Delphi-Quellcode:

var HeaderHandle : HWND;
    hdi          : HD_ITEM;
    i            : Integer;
begin
  HeaderHandle := GetDlgItem(lv.Handle, 0);
  for i := 0 to lv.Columns.Count - 1 do
  begin
    hdi.mask := HDI_TEXT and HDI_FORMAT and HDI_WIDTH;
    hdi.fmt := HDF_LEFT and HDF_OWNERDRAW and HDF_STRING;
    hdi.cxy := Columns.Items[i].Width;
    hdi.cchTextMax := Columns.Items[i].Caption.Length();
    hdi.pszText := Columns.Items[i].Caption;
    Header_SetItem(HeaderHandle, index, hdi^);
  end;

Was ist HD_ITEM ? Das kennt mein Delphi nicht.

[ErazerZ]

uses CommCtrl;

[Nils_13]

Thx.

Ein Fehler ist noch übrig geblieben:

Delphi-Quellcode:

Header_SetItem(HeaderHandle, i, hdi^); 
[Fehler] code.pas(215): Zeigertyp erwartet

[mkinzler]

Vielleicht
Header_SetItem(HeaderHandle, i, ^hdi); ?

[Nils_13]

Delphi-Quellcode:

Header_SetItem(HeaderHandle, i, ^hdi);
[Fehler] Unit1.pas(216): Inkompatible Typen: '_HD_ITEMA' und 'Char'

[marabu]

Hallo Nils,

das Dach (^) ist einfach überflüssig.

Grüße vom marabu

[Nils_13]

Danke, jetzt wird der Code schonmal kompiliert. Was muss ich noch machen, dass ich die Farben verändern kann ?

Delphi-Quellcode:

var HeaderHandle : HWND;
    hdi          : HD_ITEM;
    i            : Integer;
begin
  HeaderHandle := GetDlgItem(lv.Handle, 0);
  for i := 0 to lv.Columns.Count - 1 do
  begin
    hdi.mask := HDI_TEXT and HDI_FORMAT and HDI_WIDTH;
    hdi.fmt := HDF_LEFT and HDF_OWNERDRAW and HDF_STRING;
    hdi.cxy := lv.Columns.Items[i].Width;
    hdi.cchTextMax := Length(lv.Columns.Items[i].Caption);
    hdi.pszText := PChar(lv.Columns.Items[i].Caption);
    Header_SetItem(HeaderHandle, i, hdi);
  end;

[Nils_13]

*push*

[marabu]

Hallo Nils,

dein Code setzt das Format HDF_OWNERDRAW, das Einfärben geschieht woanders. Ich vermute, dass da noch eine window procedure ist. Dort musst du bei der message WM_PAINT nachschauen.

Grüße vom marabu

[Nils_13]

Zitat von marabu:

Hallo Nils,

dein Code setzt das Format HDF_OWNERDRAW, das Einfärben geschieht woanders. Ich vermute, dass da noch eine window procedure ist. Dort musst du bei der message WM_PAINT nachschauen.

Grüße vom marabu

Das heißt genauer ? Diese Sachen gehen so langsam über meinen Wissensbereich hinaus....