DBR Delphi-Ecke

// Hiermit kann man zur Laufzeit den Spaltenköpfen von TListView
// (ViewStyle = vsReport) eine formatierte Schriftart zuweisen.

// Getestet mit D4 unter XP

uses commctrl; 
 
var 
  lgf: TLogFont; 
  Header, NewFont: THandle; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Header := SendMessage(ListView1.Handle, LVM_GETHEADER, 0, 0); 
  lgf.lfFaceName := 'Arial'; 
  lgf.lfWeight := FW_Bold; 
  lgf.lfHeight := 18; 
  lgf.lfItalic := 1; 
  NewFont := CreateFontIndirect(lgf); 
  SelectObject(Header, NewFont); 
  SendMessage(Header, WM_SETFONT, NewFont, 1); 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if NewFont > 0 then 
    DeleteObject(NewFont) 
end;