Im Paint solche Aktionen zu starten wird ein häßliches Flackern starten.
Am Flackerfreisten und elegantesten ist diese Methode für den Hintergrund:
Delphi-Quellcode:
procedure WM_EraseBkGnd(var Message : TWMEraseBkgnd); message WM_ERASEBKGND;
procedure T???.WMEraseBkGnd(var Message: TWMEraseBkgnd);
begin
with Message do
begin
BitBlt(hDC, ??????); // Bitmap reinkopieren
// oder mittels AlphaBlend-effect
Result := 1; // Hintergrund gezeichnet!
end;
end;
Die einzelnen Items mittels Owner-Draw anpassen