Cambiar fuente en el caption de columnas de un Listview

[Angel.Matilla]

¿Se puede cambiarla fuente sólo del caption de un columna de un TListView? Para ponerlo, por ejemplo, en negrilla.

[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 :)

[FideRosado]

hola amigos , pueden poner este ejemplo para delphi 7 por favor..

[ecfisa]

Hola FideRosado.


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 :)