Ta na mão !!!
procedure TFrmCadTipoTransacoes.grdPadraoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.RecordCount > 0 then
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName('Valor').AsFloat
>= 0 then // coloque aqui sua condição
begin
//TDBGrid(Sender).Canvas.Brush.Color := clWindows; Se você
quiser alterar a cor da linha
TDBGrid(Sender).Canvas.Font.Color := clBlue; // Altera a cor da
FONTE.
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else
begin
TDBGrid(Sender).Canvas.Font.Color := clRed;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Eduardo
Alessandro Magno de Paula escreveu:
>
> Galera,
>
> Não tenho acesso à internet para ver se já teve esta pergunta.
>
> Quer, mudar cor das letras no grid, dependendo de um valor no banco,
> exemplo
>
> Crédito quero colocar azul
> Débido quero colocar vermelho
>
> Alguém pode me dar uma dica??
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
