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]

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

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....

[EWeiss]

[quote="Nils_13"]

Zitat:

Zitat von marabu

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

Es geht auch so.

Code:

    Dim i As Integer
    picBg.Width = lv.Width
    picBg.Height = lv.ListItems(1).Height * (lv.ListItems.Count)
    picBg.ScaleHeight = lv.ListItems.Count
    picBg.ScaleWidth = 1
    picBg.DrawWidth = 1
    picBg.Cls
    For i = 1 To lv.ListItems.Count
    
       If lv.ListItems(i).Checked = True Then
         picBg.Line (0, i - 1)-(1, i), &HC0FFFF, BF
       Else
         picBg.Line (0, i - 1)-(1, i), &HFF8080, BF
       End If
    Next
    

    lv.Picture = picBg.Image

Allerdings in VB mußt du nur übersetzen habe jetzt leider nicht die zeit dazu das für dich zu machen.

picBg ist ne PicBox mußt du eine alternative in Delphi finden.
lv = Listview mit lvwReport das gleiche wie vsReport in Delphi

gruß

[Nils_13]

Das ist leider nicht das, was ich suche. Ich bin auf der Suche nach einer Möglichkeit, die Columns oder auch Header genannt anders zu färben.

[marabu]

Hallo Nils,

in deinem Eröffnungsbeitrag hast du mitgeteilt, dass du eine Lösung aus dem Internet gefischt hast. Nachdem dir geholfen wurde diese Quelle zu übersetzen, schreibst du, dass sich dieser Lösungsansatz deinem Verständnis entzieht. Wenn du auf Erklärungen zu diesem Code wartest, dann musst du den Link mitteilen. Wenn du aber nach einer plug-and-play Lösung suchst, dann musst du dir mal alternative ListViews anschauen. VirtualStringGrid und EasyListView könnten da interessant für dich sein.

Grüße vom marabu

[Nils_13]

Auf Fremdkomponenten möchte ich verzichten. Ich habe den Code von dieser Seite. Wenn ihr jetzt mehr mit meinem Problem anfangen könnt und mir helfen könnt, würde ich dann auch noch gerne den geeignetsten Ort für die Messages wissen.

[marabu]

Hallo Nils,

nach den Hinweisen auf der verlinkten Seite hast du die Wahl: Entweder du leitest eine neue Komponente von T(Custom)ListView ab, welche einen message handler für WM_DRAWITEM bereit stellt (vielleicht aufbauend auf der erweiterten ListView von Peter Below), oder du arbeitest mit window subclassing, wozu du in der DP zahlreiche Beispiele finden kannst.

Freundliche Grüße

[Nils_13]

Hi,

müsste ich DrawItem hier einbauen ?

Delphi-Quellcode:

procedure TPBExListview.WMNotify(var Msg: TWMNotify);
begin
  inherited;
  case Msg.NMHdr^.code of
    HDN_ENDTRACK:
      DoEndColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
    HDN_BEGINTRACK:
      DoBeginColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
    HDN_TRACK:
      DoColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
  end;
end;

[marabu]

Hallo Nils,

WM_NOTIFY ist nicht WM_DRAWITEM - du wirst schon einen eigenen message handler spendieren müssen.

Freundliche Grüße

[Nils_13]

Hallo,

Delphi-Quellcode:

procedure TPBExListview.WMDrawItem(var Msg: TWMDrawItem);
begin
  inherited;
  ...
end;

Was könnte dort denn dann rein ? Wie schon gesagt: Das ist Neuland für mich.

[Nils_13]

Keiner eine Idee ? :(

[_frank_]

evtl. hilft dir
http://www.experts-exchange.com/Prog..._20190554.html,
http://www.openitpower.com/wenzhang/97/7556_1.html
oder
http://groups.google.de/group/borlan...461d2bc03fe6b5
weiter...

sag bescheid, wie dus gemacht hast, gibt scheinbar nicht viel zu dem Thema...

Gruß Frank

[Nils_13]

Ich habe PBExListview weiterentwickelt:

Delphi-Quellcode:

private
  FColumnBrushColor : TColor;
  [...]

protected
  procedure WMDrawItem(var Message : TWMDrawItem); message WM_DRAWITEM; 
  [...]

published
  property ColumnBrushColor : TColor
      read FColumnBrushColor write FColumnBrushColor;
  [...]

[...]

procedure TColumnListView.WMDrawItem(var Message : TWMDrawItem);
var State     : TOwnerDrawState;
    SaveIndex : Integer;
begin
  with Message.DrawItemStruct^ do
  begin
    State := TOwnerDrawState(WordRec(LongRec(itemState).Lo));
    SaveIndex := SaveDC(hDC);
    FCanvas.Handle := hDC;
    FCanvas.Font   := Font;
    FCanvas.Brush.Color  := FColumnBrushColor;
    if itemID = DWORD(-1) then FCanvas.FillRect(rcItem)
    else DrawItem(Items[itemID], rcItem, State);
    FCanvas.Handle := 0;
    RestoreDC(hDC, SaveIndex);
  end;
  Message.Result := 1;
end;

Setzt man allerdings die Komponente auf die Form, tut sich nichts. Warum ?