Solo una columna del Grid

[muli]

Quisiera que dado el valor de un campo(false/true) una columna del grid se pusiera de negrita, el tema es que soy capaz de ponerle un color distinto pero lo de negrita lo tengo atragantado.

Saludos.

[ContraVeneno]

Control.Font.Bold.Enabled := True;


Contro.Font.Bold.Enabled := UnDataset.FieldByname('UnCampo').AsBoolean;


no se que estaba pensando.

[*Caro*]

Hola muli, para poner en negrita:

Código Delphi [-]
  DBGridRegistros.Canvas.Font.Style := [fsBold];

Saluditos

[roman]

Empezado por ContraVeneno

Código Delphi [-]
Control.Font.Bold.Enabled := True;

Empezado por Caro

Código Delphi [-]
DBGridRegistros.Canvas.Font.Style := [fsBold];

Yo lo haría ligeramente distinto:

Código Delphi [-]
DBGridRegistros.Canvas.Font.Style := DBGridRegistros.Canvas.Font.Style + [fsBold];

para no machacarnos algún otro estilo presente.

// Saludos

[ContraVeneno]

changos... eso me pasa por contestar "de memoria"... no se que estaba pensando.

[muli]

Si todas las opciones son validas, pero para el registro entero (la linea), pero yo necesito para una sola columna.

Código Delphi [-]
IF tabla.fieldbyname('negrita').AsBoolean=True then
Begin
  DBGrid.Columns[0].Font.Style:=DBGrid.Columns[0].Font.Style+[fsBold];
End;

Me pone todos los registros en la columna 0 en negrita. y yo solo quiero los que cumplan la condición.

Saludos.

[*Caro*]

Hola de nuevo muli, te pone todos los registros en negrita, por que en tu codigo le dices que te lo ponga toda la columna 0 en negrita. Debes hacerlo en el evento OnDrawColumnCell.

Código Delphi [-]
procedure TFListadoAlbFacturas.DBGridDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if (Column.Index = 0) then
  begin
   if tabla.fieldbyname('negrita').AsBoolean=True then
    begin
     DBGrid.Canvas.Font.Style := DBGrid.Canvas.Font.Style + [fsBold];
     
     // Pintamos la celda
     DBGrid.DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;
  end;

Saluditos