Ver Mensaje Individual
  #1  
Antiguo 01-10-2010
ses27coves ses27coves is offline
Miembro
 
Registrado: may 2010
Posts: 16
Reputación: 0
ses27coves Va por buen camino
Pregunta sobre DefaultDrawColumnCell(rect,DataCol,Column,State);

Hola de nuevo. tengo un apregunta. Porque al aplicar el procedimiento de abajo aparte de conseguir cambiar el color de la letras de la fila con un valor si en el campo verificado pone si, tambien se muestra la fila "activa, actual" en negrita?

Código Delphi [-]
procedure Tfrprincipal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if Column.Field.Dataset.FieldbyName('verificado').asstring = 'si' then
       dbgrid1.Canvas.Font.Color:= clHotLight;
    dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

El problema es que no quiero que este en negrita i no se de donde me viene.
Responder Con Cita