DBGrid .. n�o fica com fundo azul qd modifico a cor de fundo

Question

Amigos,  coloquei um DBGrid em uma tela de consulta de produtos e coloquei um c�digo no evento OnDrawColumnCell para modificar a cor de fundo da linha para verde caso o estoque esteja superior ou verm...

Massuda · Answer

Voc� deveria levar em conta o estado da linha ao fazer a mudan�a; por exemplo, se for para deixar com a apar�ncia default quando a linha estiver selecionada, ficaria assim...

procedure TfrmProdutos.dbgConsultaDrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
begin 
  // a princ�pio, isso n�o � necess�rio
  //inherited; 

  if not (gdSelected in State) then begin

    if cdsConsultarESTMIN.AsInteger > cdsConsultarESTOQUE.AsInteger then 
      dbgConsulta.Canvas.Brush.Color := $CCCCFF; 
    if cdsConsultarESTMAX.AsInteger < cdsConsultarESTOQUE.AsInteger then 
      dbgConsulta.Canvas.Brush.Color := clMoneyGreen; 
  end;
  // o correto seria chamar DefaultDrawColumnCell
  dbgConsulta.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;

F�rum DBGrid .. n�o fica com fundo azul qd modifico a cor de fundo #301476