[erledigt]Listview Flat darstellen

[kiar]

hallo,

ich denke das thema hatten wir schon, aber irgendwie krieg ich das nicht hin, wie kann ich den Header auch auf flat stellen?

ratschläge und info's gerne willkommen.

danke raik

edit:

Delphi-Quellcode:

const
  LVM_GETHEADER = LVM_FIRST + 31;
var
  hHeader: THandle;
  style: dWord;
begin
  {to get the header handle for the listview}
  hHeader := SendMessage(ListView1.Handle, LVM_GETHEADER, 0, 0);

  {to get the current style attributes for the header}
  style := GetWindowLong(hHeader, GWL_STYLE);

  {to toggle the HDS_BUTTONS style}
  style := style xor HDS_BUTTONS;

  {to apply the new style}
  SetWindowLong(hHeader, GWL_STYLE, style);

  {to invalidate the listview}
  SetWindowPos(ListView1.Handle, Form1.Handle, 0, 0, 0, 0,
               SWP_NOZORDER or SWP_NOSIZE or SWP_NOMOVE or SWP_DRAWFRAME)
end;

gefunden im internet, gibt mir aber fehlermeldung bei lvm_first