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
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
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;
3 matches
Mail list logo