Ir para conteúdo
Fórum Script Brasil

Black Sun

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Black Sun postou

  1. Valeu, funcionou perfeitamente. Tem como concatenar um sinal "-" antes dos valores negativos? Desde já obrigado pela força. Abraço
  2. É 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
×
×
  • Criar Novo...