procedure TfrmClientePrincipal.ctrAgendaPaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
begin
      if DBCtrlGrid.datasource.dataset.FieldByName('STATUS').AsString = 'C'
then begin
        DBCtrlGrid.Color := $00D2D2FF;
      end else begin
        DBCtrlGrid.Color := clWindow;
      end;
end;

Att,

*Jhosef Marks de Carvalho*
*Blog: **http://www.jhosefmarks.com.br* <http://www.jhosefmarks.com.br>*
Jesus está voltando

*
*"E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar
a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
céus, e perdoarei os seus pecados, e sararei a sua terra." (2 Cr 7:14) *



Em 6 de setembro de 2010 15:08, Rubem Rocha
<rubem.ro...@dtmanaus.com.br>escreveu:

>
>
> Kd o código do evento????????
>
> Sds.
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Jhosef Marks
> Enviada em: segunda-feira, 6 de setembro de 2010 13:59
> Assunto: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado
> infinitamente
>
>
> Boa tarde a todos, tenho um TDBCtrlGrid com poucos registros (em torno de
> uns 10).
>
> No evento OnPaintPanel, eu fiz uns ifs para que de acordo com o status do
> registro fosse pintado de uma cor...
>
> Acontece que isso está travando o meu formulário... pois a função está
> sendo
> chamada infinitamente...
>
> Alguém já uso esse componente e teve algum problema?
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]



------------------------------------

-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    delphi-br-unsubscr...@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html


Responder a