[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