[firebase-br] Off topic - Colorir grid ibo conforme condição

Carlos H. Cantu listas em warmboot.com.br
Qua Nov 30 11:12:31 -03 2011


Vc deve definir as cores usando o parametro AColor  passado
no método, ex:

     if qcontas.BufferFieldByName( 'tipo' ).Asstring <> 'A then
      begin
       AColor := clred;
      end
     else
      begin
      AColor := clBlack;
      end;

[]s
Carlos H. Cantu
www.FireBase.com.br - www.firebirdnews.org
www.warmboot.com.br - blog.firebase.com.br

D> Olá

D> Por favor se possível alguém já conseguiu colorir uma linha da Tib_Grid
D> conforme a condição

D> Exemplo
D>          se field tipo "A" deixa linha vermelha
D>          se field tipo "B" deixa linha preta


D> Já tentei a linha abaixo que funciona porém fica executando (fica piscando
D> a grid para o usuario) o tempo inteiro e temo por dar erro.

D> procedure TFrmPesqCrediario.IB_Grid2GetCellProps(Sender: TObject; ACol,
D>   ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
D> begin
D>  if (QContas.Active = true) then
D>  BEGIN
D>    inc(conta);
D>    with DsContas.DataSet do
D>   begin
D>    BufferRowNum := IB_Grid2.DataRow[ ARow ];
D>    if BufferRowNum > 0 then
D>     begin
D>      if qcontas.BufferFieldByName( 'tipo' ).Asstring <> 'A then
D>       begin
D>        IB_Grid2.Font.Color := clred;
D>       end
D>      else
D>       begin
D>       IB_Grid2.Font.Color := clBlack;
D>       end;
D>     end;
D>   end;
D>  END;
D> end;


D> Alguém teria uma outra sugestão ?
D> Obrigado pela atenção

D> Abraço
D> Danilo
D> ______________________________________________
D> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
D> Para saber como gerenciar/excluir seu cadastro na lista, use:
D> http://www.firebase.com.br/fb/artigo.php?id=1107
D> Para consultar mensagens antigas: http://firebase.com.br/pesquisa





Mais detalhes sobre a lista de discussão lista