Cambiar fuente en el caption de columnas de un Listview

[ecfisa]

Hola Angel.

Un ejemplo:

int BoldColumn = -1; 

// ajustar ListView
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 ListView1->OwnerDraw = false;
 ListView1->ViewStyle = vsReport;
}

// tratar columna 0
void __fastcall TForm1::ListView1CustomDrawItem(TCustomListView *Sender,
  TListItem *Item, TCustomDrawState State, bool &DefaultDraw)
{
  if (BoldColumn == 0)
   Sender->Canvas->Font->Style = TFontStyles() << fsBold;
}

// tratar otras columnas
void __fastcall TForm1::ListView1AdvancedCustomDrawSubItem(
  TCustomListView *Sender, TListItem *Item, int SubItem,
  TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)
{
 if (SubItem != 0 && SubItem == BoldColumn)
    Sender->Canvas->Font->Style = TFontStyles() << fsBold;
}

// aplicar negrita a columna  (0..n-1)
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  BoldColumn = StrToIntDef(Edit1->Text, -1);
  ListView1->Invalidate();
}

Saludos