Thema: Delphi Gestures für Windows

Einzelnen Beitrag anzeigen

Alex_ITA01

Registriert seit: 22. Sep 2003
1.123 Beiträge
 
Delphi 12 Athens
 
#5

AW: Gestures für Windows

  Alt 5. Dez 2024, 14:10
Ja hast Recht, USB hat er auch wegen der Rückmeldung des Touchs.
Also mir selber würde es reichen, wenn er sich wie eine Maus verhält und ich mit der Maus auch hoch/runter ziehen/schieben kann und die Scrollbar eben mitwandert.

Habe jetzt ein GestureManager drauf gelegt und bei der Scrollbox verknüpft.

Delphi-Quellcode:
  case EventInfo.GestureID of
    sgiUp :
      begin
        ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + EventInfo.Distance;
      end;

    sgiDown :
      begin
        ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - EventInfo.Distance;
      end;
  end;

  Handled := True;
Leider ist die EventInfo immer nur das Feld Location (X/Y) gefüllt und zwar mit dem Wert, wo man zuerst geklickt hat und den "Zieh/Schiebevorgang" gestartet hat. Würde ja gerne entsprechend der Länge des "Wischens" auch die Scrollbox scrollen
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat