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!