[firebase-br] OFF Topic - db_grid IBO

[Washington]

Caros colegas

Já li aqui na lista sobre pintar as linhas do db grid do IBO de acordo com uma condição, mas ainda não encontrei a solução. Alguém achou alguma forma de fazer isto ?

Abaixo a minha rotina, colocada no evento ONGetCellProps, mas o problema que ao clicar no grid ele pinta o grid inteiro com a cor da condição.


procedure TfmAgenda.IB_GridAgendaGetCellProps(Sender: TObject; ACol,
  ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
begin
     if dmDados.IB_qryAgenda.BufferRowNum > 0 then
        begin
           if dmDados.IB_qryAgenda.FieldByName('pac_codigo').asInteger = 1 then    // para mostrar em vermelho o horário cancelado.
              begin
                 AColor:= clRed;
                 AFont.Color:= clWhite;
              end
           else
              begin
                 if dmDados.IB_qryAgenda.FieldByName('age_comparecido').asString = 'S' then
                    begin
                      AColor:= clGreen;
                      AFont.Color:= clWhite;
                    end
                 else
                    begin
                      AColor:= clWindow;
                      AFont.Color:= clBlack;
                    end;
              end;
        end;
end;

Atenciosamente

#######################
Washington A. Muller da Silva
http://wvoleibol.blogspot.com
washington.ams em gmail.com
#######################