Ir para conteúdo
Fórum Script Brasil

Black Sun

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Posts postados por Black Sun

  1. É 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...