AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

[Erledigt]Hässlicher Effekt beim Scrollen

Ein Thema von Woodman · begonnen am 21. Mai 2015 · letzter Beitrag vom 23. Mai 2015
Antwort Antwort
Benutzerbild von Woodman
Woodman

Registriert seit: 17. Mär 2007
74 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

AW: Hässlicher Effekt beim Scrollen

  Alt 21. Mai 2015, 17:54
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.
Keep
Horst
Delphi 10.1 Berlin Starter unter Windows 10 - 1803
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.358 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Hässlicher Effekt beim Scrollen

  Alt 21. Mai 2015, 18:08
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.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz