Manchmal Probleme beim Neuzeichnen meiner Komponente

[daschaos]

Hallo,

hab folgendes Problem. ICh hab von TCustomPanel abgeleitet und nutze auch das OnPaint Event davon zum Neuzeichnen. Ich hab zusätzlich ein Flag IsDirty, welches mir angibt, ob die Ausgabe komplett neu berechnet werden muss oder ob ich lediglich mein DoubleBufferdBitmap zeichnen muss, weil sich nichts geändert hat an der Ausgabe, nur lediglich das Bild erneuert werden muss weil ein anderes Fenster über meine Komponente geschoben wurde. Das funktioniert auch meistens ganz gut, nur manchmal zeichnet er sich dann doch nich neu, z.B. wenn ich mir den Hint anzeigen lasse ist dieser Bereich dann ungültig. Hab irgendwie das Gefühl das OnPaint-Event wird manchmal nich ausgelöst....

Kann man da generell was zu sagen, was ich da für MAßnahmen treffen könnte?

Meine Paint-Prozedur sind ungefähr so aus:

Delphi-Quellcode:

procedure TCustomTreemapChart.Paint;
var
  OldCursor: TCursor;
begin
  if IsDirty then
  begin
    try
      OldCursor := Screen.Cursor;
      Screen.Cursor := crAppStart;

      FDoubleBufferedBitmap.Height := Width;
      FDoubleBufferedBitmap.Width := Height;

      DrawChart(FDoubleBufferedBitmap.Canvas, ClientRect);
      Canvas.Draw(0, 0, FDoubleBufferedBitmap);

      MakeDirty;
    finally
      Screen.Cursor := OldCursor;
    end;
  end//IsDirty
  else
    BitBlt(Canvas.Handle, 0, 0, Width, Height, FDoubleBufferedBitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

Für jeden Tip dankbar!

Liebe Grüße,
Laura