Cambiar el estilo en un DBGrid

[sizne]

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:

Lista.Font.Style := fsBold;

Este msj me aparece:

incompatible types:'TFontStyles'and'TFontStyle'

Saludos!

[[Lepe]]

Si no recuerdo mal...

Lista.Font.Style := [fsBold];

[*Caro*]

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