Siehe :
42! (Die Antwort hier im Forum wenn kein Code gepostet wird und wir alle wieder nur raten
können)
Danke für die Erleuchtung.
Dafür ist mein Programm zu lang, um alles hier posten zu können.
Gibst Du Grafen frei oder nicht?
Nein, weder Grafen noch Grafinnen.
Wie sieht der OnPaint aus hast Du den überhaupt geändert? usw...
Mavarik
TForm1.OnPaint ist nicht belegt.
Einen kleinen Erfolg hatte ich immerhin: Beim Scrollen mit dem Mausrad hatte ich einen ähnlichen Effekt. Nach Studium von stahlis Beitrag habe ich die OnMouseWheelUp bzw. Down angepasst:
Delphi-Quellcode:
procedure TForm1.ArbeitsflaecheMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
YScrollbarPos := Arbeitsflaeche.VertScrollBar.Position;
Arbeitsflaeche.VertScrollBar.Position := YScrollbarPos + Raster;
// Application.ProcessMessages; // << Habe ich entfernt
Handled := True;
Arbeitsflaeche.Invalidate; // << Habe ich zugefügt
end;
Und jetzt klappt das Scrollen mit der Maus hervorragend.
Kann ich irgendwo das Schieben mit dem Scrollbalken abfangen?
Falls es keine einfache Lösung gibt, werde ich das Tracking auf False setzen, da es ja jetzt mit dem Scrollrad funktioniert.