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

Danilo danrgomes em gmail.com
Qua Nov 30 10:28:06 -03 2011


Olá

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

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


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

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


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

Abraço
Danilo



Mais detalhes sobre a lista de discussão lista