[firebase-br] Pintar linha do IB_Grid

[Visão On-Line - Jones Kleber]

Olá grupo,

Estou precisando pintar algumas linhas apresentada no IB_Grid em função 
de uma situação. Observe o exemplo abaixo.

Alguem poderia me ajudar.


procedure TDFM_CadastroF10.IB_Grid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin

   if dfm_cadastro.tb_cadastro.fieldbyname('vencimento').asdate <date then
      begin
          ib_grid1.canvas.brush.color := clRed;

          ib_grid1.canvas.fillrect(rect);

          
IB_Grid1.DefaultDrawCell(acol,arow,rect,state,ib_grid1.GetCellDisplayText(acol,arow) 
,taLeftJustify    );// (rect,column.field,state);
        end
       ;
 
end;


Essa rotina só funciona quando eu navego no grid.

Estou usando D7+IBO 4.5Ai

-- 
Antes de imprimir este e-mail pense em sua responsabilidade e 
compromisso com o meio ambiente.

 

Atenciosamente,

Jones Kleber M. dos Santos

(24) 9968-7136

E-mail: jones em visao-ol.com.br

  MSN: jones_visao em hotmail.com

Skype: visaoonline

 

Visão On-Line Assessoria e Informática Ltda.

Tel:(24) 2252-3017 / 2255-3712

*e-mail**:* visao em visao-ol.com.br <mailto:visao em visao-ol.com.br> *Home 
Page**:* www.visao-ol.com.br <http://www.visao-ol.com.br/>