É a primeira vez que estou postando, desde já agradeço por todas as vezes em que entrei neste forum e encontrei uma solução um problema. O problema da vez é mudar a cor da fonte de uma coluna específica. Exibir valores negativo em vermelho em uma coluna, em outra quando o valor for 'Débito', escrever em vermelho também. Com isso uma linha que possua valores positivos acaba ficando em vermelho se na linha anterior o valor do campo era negativo.
Pergunta
Black Sun
É a primeira vez que estou postando, desde já agradeço por todas as vezes em que entrei neste forum e encontrei uma solução um problema. O problema da vez é mudar a cor da fonte de uma coluna específica. Exibir valores negativo em vermelho em uma coluna, em outra quando o valor for 'Débito', escrever em vermelho também. Com isso uma linha que possua valores positivos acaba ficando em vermelho se na linha anterior o valor do campo era negativo.
procedure Tfrm_fluxo_caixa.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if IBQ_fluxo_caixa.FieldByName('SUBTOTAL').AsFloat < 0 then
begin
DbGrid1.Columns[4].Font.Color:= clRed;
end
else
begin
DbGrid1.Columns[4].Font.Color:= clBlack;
end;
end;
Obrigado
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.