Canvas does not allow drawing

30/08/2004

Ae galera, seguinte.
Tenho uma aplicação que usa o componente Bars da DevExpress sendo herdade de um formulário Base e muitos componentes TTimer que necessitam aplicar configurações na tela repetidamente.

Acontece que com Win98 ele me apresenta esse erro:Canvas does not allow drawing. Já procurei em alguns lugares e as respostas não me ajudaram muito, pois disseram q isso ocorre por falta de recurso do Win98.

Gostaria de saber se alguém passou por esse problema e se alguém poderia me dar uma luz de como resolver essa parada.

Obrigado a todos,
Evandro


Evandro_covre

Respostas

30/08/2004

Jax

Tente manter todas as chamadas para desenhar em uma única procedure.
Declare uma variável global do tipo Boolean.
Use a variável para que apenas uma chamada seja executada por vez.

Declaração:
var
  IsDrawing : Boolean;


Implementação:
procedure Form1.DoDraw;
begin
  if IsDrawing then Exit;
  IsDrawing := True;
  try
    { Seu código vai aqui }
  finally
    IsDrawing := False;
  end;
end;


Agora é so fazer a chamada somente para a procedure.


Responder Citar