[Erledigt]Hässlicher Effekt beim Scrollen

[Woodman]

Zitat von Mavarik:

Zitat von Woodman:

Zitat von Mavarik:

42!

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.

Zitat von Mavarik:

Gibst Du Grafen frei oder nicht?

Nein, weder Grafen noch Grafinnen.

Zitat von Mavarik:

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.

[stahli]

Freut mich.
Mit so etwas habe ich mich auch schon öfter herumgeschlagen, da die VCL nicht unbedingt auf genaue und sinnvolle Reaktionen ausgelegt ist.

Wenn Du keinen ScrollEvent findest könntest Du im Paint die Scrollbar.Position abfangen und mit dem letzten vermerkten Stand abgleichen.
Gibt es eine Differenz, kannst Du ein Invalidate auslösen.

Es wird dann natürlich häufiger gezeichnet aber dann sollte das Problem so auch lösbar sein.