Pessoal
Fiz uma rotina para que o dbgrid mude a cor conforme a condição do meu select. Algo assim no evento OnDrawColumnCell
if dtm.ZQPedidoAbertoquantaberta.value=0 then
begin
DBGPedidos.Canvas.Brush.Color:=clgreen;
DBGPedidos.Canvas.FillRect(Rect);
DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else
begin
DBGPedidos.Canvas.Brush.Color:= clred;
DBGPedidos.Canvas.Font.Color:= clWhite;
DBGPedidos.Canvas.FillRect(Rect);
DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
O resultado sai corretamente no DBGrid mas basta passar o mouse por cima que ele muda a cor de verde para vermelho. Alguém já passou por isso e pode me ajudar?
Obrigado desde já.