Mudar a cor de uma linha apenas de um DbGrid .... If
Galera é o seguinte, tenho uma tabela em pradox e visualiso seus dados em um DBgrid, tenho uma coluna como Estoque.
Quero fazer : Se o valor de estoque = 0 a linha inteira deste item receba a fonte destacado em vermelho por exemplo, acho que essa eh baba mas não sei,
Valew desde ja a força !!!!!!!!
Quero fazer : Se o valor de estoque = 0 a linha inteira deste item receba a fonte destacado em vermelho por exemplo, acho que essa eh baba mas não sei,
Valew desde ja a força !!!!!!!!
Thiago
Curtidas 0
Respostas
Orlando Frade
30/10/2003
No evento onDrawColumnCell do seu grid coloque o seguinte:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const
Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If table1.FieldByName(´Estoque´).AsInteger = 0 then // condição
Dbgrid1.Canvas.Font.Color:= clRed; // coloque aqui a cor desejada
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
Espero ter te ajudado.
fradeneto@elo.com.br
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const
Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If table1.FieldByName(´Estoque´).AsInteger = 0 then // condição
Dbgrid1.Canvas.Font.Color:= clRed; // coloque aqui a cor desejada
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
Espero ter te ajudado.
fradeneto@elo.com.br
GOSTEI 0