Invalidate vermerkt nur das Neuzeichnen, fasst mehrere als "dreckig" markierte Bereiche zusammen und löst dann irgendwann ein neuzeichnen aus. Folgende Tipps:
1. Der Canvas deiner Form hat eine Eigenschaft ClipRect, welches den zu aktualisierenden Bereich enthält. Der Bereich ausserhalb dieses Rechtecks braucht nicht gezeichnet zu werden, alle Zeichenoperationen werden unterdrückt bzw. sind umsonst. Daher passe dein BitBlt() an:
1a. Du kannst im Paint überhaupt mal schauen, ob du den Bereich des BitBlt() überhaupt zeichnen musst
1b. Passe BitBlt() so an, dass er nur noch den wirklich nötigen Teil malt.
Delphi-Quellcode:
Var
lSectionRect,
lDrawRect: TRect;
Begin
lDrawRect := Rect(0, 0, FBuffer.Width, FBuffer.Height);
If IntersectRect(Canvas.ClipRect, lDrawRect, lSectionRect) Then
Begin
BitBlt(Canvas.Handle,
lSectionRect.Left,
lSectionRect.Top,
lSectionRect.Right - lSectionRect.Left,
lSectionRect.Bottom - lSectionRect.Top,
FBuffer.Canvas.Handle,
lSectionRect.Left,
lSectionRect.Top,
SRCCOPY);
End;
End;
2. Wenn du was neuzeichnen willst, dann markiere nicht immer die gesamte Form als "dreckig" mit Invalidate, sondern nur den Bereich, der wirklich neu gezeichnet werden muss (z.B. nur der Balken der sich geändert hat). Dazu nutze InvalidateRect()
/EDIT:
Du kannst ruhig mehrere InvalidateRect() Aufrufe machen - Windows fügt diese dreckigen Bereiche zusammen und optimiert die Malbereiche im Paint auch dahingehend. Das ist auch ein Vorteil zur Optimierung, da man so schon einige Paint Aufrufe sparen kann.