LIstview.columns. und nun die höhe

[kiar]

wie kann ich bei einem VCL -listview die höhe des listview headers ändern ?

[OLLI_T]

HY Kiar!

Neuen Font setzen (der Einfachheit halber via Label1) und Neuzeichnen der Columns focieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var Wnd:HWnd; W:DWord;
begin
  Wnd:=ListView_GetHeader(LV.Handle); // Unit CommCtrl einbinden!
  SendMessage(Wnd,WM_SETFONT,Label1.Font.Handle,0);
  W:=LV.Columns[0].Width;
  LV.Columns[0].Width:=W+1;
  LV.Columns[0].Width:=W;
End;

Viel Spass damit

OLLI

[kiar]

hallo Olli_T,

das geht, ist aber nicht das was ich suche ich will einen zweizeiligen text in den header einfügen aber mit #13 geht es nicht.

ne andere idee??

raik