Foros Club Delphi - Cambiar el estilo en un DBGrid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cambiar el estilo en un DBGrid (https://www.clubdelphi.com/foros/showthread.php?t=68012)

Cambiar el estilo en un DBGrid

Holas a todos!
Alguien puede indicarme....por favor...
Este es mi codigo, pero me aparece error al cambiar de estilo de fuente...

Código Delphi [-]  if Qinscripcion.FieldByName('EstadoE').AsString = 'Inactivo' then
  begin
    Lista.Canvas.Font.Color:=clNone;
    Lista.Canvas.Brush.Color:=clAqua;
    Lista.Font.Style  :=  fsBold;
  end;
  if ((DataCol = 1)or(DataCol = 10)or (DataCol = 2)or(DataCol = 3)or(DataCol = 4))then
   Lista.DefaultDrawColumnCell(Rect,DataCol,Column,State);

Aqui esta el error:

Cita:

Lista.Font.Style := fsBold;

Este msj me aparece:

Cita:

incompatible types:'TFontStyles'and'TFontStyle'

Saludos!

Si no recuerdo mal...

Lista.Font.Style := [fsBold];

Hola sizne, es como te indica Lepe, añadiendo los corchetes ya que TFontStyles es un conjunto de TFontStyle, para añadir o quitar sobre lo que ya tienes puedes hacerlo de esta forma:

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

  Lista.Font.Style  :=  Lista.Font.Style - [fsBold];

Saluditos