Quando você muda a propriedade color, o evento OnPaintPanel é chamado
novamente, o que gera uma sequência infinita de chamadas recursivas.
Você precisa atribuir nil ao evento OnPaintPanel no início da
implementação e reatribuir ctrAgendaPaintPanel no final para evitar isso
(de preferencia usando try..finally).
Mas acho que você não quer mudar a cor do DBCtrlGrid inteiro dependendo
do Status (pelo código, me parece que é isso que q vc está fazendo).
Deve haver algum objeto em tempo de execução que represente o painel do
registro corrente no grid. Se houver, é a cor desse painel que você
precisa mudar.
[]'s
--
Dirlei Dionísio
Novo artigo: Sorteio de ingresso para o Dev In Rio
http://MaisQueBomCodigo.blogspot.com
Em Seg, 2010-09-06 às 15:14 -0300, Jhosef Marks escreveu:
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, ento eu ouvirei dos
cus, 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.brescreveu:
Kd o cdigo 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 formulrio... pois a funo est
sendo
chamada infinitamente...
Algum j uso esse componente e teve algum problema?
[As partes desta mensagem que no continham texto foram removidas]
[As partes desta mensagem que no continham texto foram removidas]