Cambiar fuente en el caption de columnas de un Listview

[ecfisa]

Hola FideRosado.

Código Delphi [-]
var
  BoldColumn : Integer = -1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.OwnerDraw := false;
  ListView1.ViewStyle := vsReport;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (BoldColumn = 0) then
    with Sender.Canvas.Font do
      Style := Style + [fsBold];
end;

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if (SubItem <> 0) and (SubItem = BoldColumn) then
   with Sender.Canvas.Font do
     Style := Style + [fsBold];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BoldColumn := StrToIntDef(Edit1.Text, -1);
  ListView1.Invalidate();
end;

Saludos