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