Re: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado infinitamente

2010-09-06 Por tôpico Jhosef Marks
gt; Enviada em: segunda-feira, 6 de setembro de 2010 14:54 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado > infinitamente > > > Quando você muda a propriedade color, o evento OnPaintPanel é chamado > nov

Re: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado infinitamente

2010-09-06 Por tôpico Dirlei
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 t

Re: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado infinitamente

2010-09-06 Por tôpico Jhosef Marks
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;