[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