Gestures für Windows

[Der schöne Günther]

Hier einfach ein paar Buttons in eine Scrollbox geworfen.

Delphi-Quellcode:

program Project1;

uses
   System.SysUtils,
   Vcl.Forms,
   Vcl.Controls,
   Vcl.WinXPanels,
   Vcl.StdCtrls;

begin
   const form = TForm.Create(nil);

   const scrollBox = TScrollBox.Create(form);
   scrollBox.Parent := form;
   scrollBox.Align := TAlign.alClient;

   for var buttonIndex := 0 to Pred(100) do
      begin
         const button = TButton.Create(scrollBox);
         button.Caption := buttonIndex.ToString();
         button.Name := 'button' + button.Caption;
         button.Parent := scrollBox;
         button.Left := 10;
         button.Top := 10 + buttonIndex * 32;

         scrollBox.InsertControl(button);
      end;

   form.ShowModal();
end.

Und hier, wie das ganze als Video aussehen sollte:

https://imgur.com/a/G8BadjN

[himitsu]

Windows 11: [Druck] drücken und auf Video umstellen

[Der schöne Günther]

Ich weiß nicht, was man dann großartig auf so einem Video hätte sehen können.

Es ging ja im Endeffekt um den Finger auf dem Touchscreen, der das hin- und her schiebt. Wenn Windows das mit aufnehmen kann bin ich echt baff 🐸

[Alex_ITA01]

Ich habe das Beispiel aus dem Video oben getestet, da geht weder das Mausrad zum scrollen noch auf dem Maus-emulierten-Touch-Bildschirm das wischen.
Also scrollen nur möglich durch ziehen und klicken auf der Scrollbar selber.
Anbei mein eigener Test, vielleicht habt ihr ja noch eine Idee. Mir wäre ja das Wischen mit der Maus Recht.

[Alex_ITA01]

hat jemand eine Idee dazu ^^?

[Der schöne Günther]

Zitat von Alex_ITA01:

Also Browser und Editor lassen sich auch nicht scrollen.
Bekommt man das aber irgendwie hin, wenn das explizit programmiert/einstellt?
Würde gerne die Scrollbar mit zwei Fingern scrollen wenn ich die Finger in der Komponente "ziehen"

Wir hängen immer noch hier, oder? Es ist kein Touchbildschirm (oder du hast das Kabel immer noch nicht eingesteckt) und du suchst eine Möglichkeit, einen Touchbildschirm komplett nachzuprogrammieren?

[Alex_ITA01]

Also, es ist ein Touchbildschirm, der sich aber nur wie eine Mausemulation verhält. Daher bekomme ich das mit dem Touch und Gesten nicht hin wie ich dich verstanden habe.
Was ich jetzt gerne möchte, ist einfach auf meinem normalen Bildschirm vom Laptop mit der Maus das ziehen nach oben und unten innerhalb der Scrollbox (nicht auf der Scrollbar!), dass die eingestellten Gesten ausgeführt werden. Das macht er ja auch mit dem Beispiel oben allerdings würde ich gerne die Scrollbox soweit automatisch scrollen, wie ich mit der Maus das nach oben/unten ziehen durchgeführt habe aber das Feld Location gibt immer nur die Quellkoordinaten an und es gibt keine Zielkoordinaten womit man eine Differenz ausrechnen könnte und mit dieser Differenz die Scrollbox "nachscrollt".
Soweit verstanden was ich meine?
Wenn ich dieses Verhalten ordentlich programmiert/eingestellt bekomme auf einem normalen Laptop-Bildschirm, würde mir das für meinen externen Maus-emulierten-Touchbildschirm reichen.

[himitsu]

OnMouseDown
* Startpunkt merken

OnMouseMove
* entsprechend zum Start, bzw. letztem Move verschieben
* wenn weit genug am Rand (oben/unten), den Timer aktivieren

TTimer
* weiterverschieben

OnMouseUp
* aufhören

[Alex_ITA01]

Danke Himitsu, darum ging es aber nicht.
Ich wollte ja gerne mit den Gesten arbeiten und damit probieren.
Deine Lösung geht natürlich auch, war aber nicht meine Frage
Es sei denn, jemand sagt mir jetzt, es geht mit Gesten nicht und es gibt nur deine Lösung. Dann akzeptiere ich das auch aber wollte wie gesagt gerne mich in die Gesten einarbeiten

[Der schöne Günther]

Die Gesten werden dir nicht helfen, etwas wie Scrollen oder Zoomen zu emulieren. Die triggern erst, wenn du "fertig" gemalt hast, und dann passiert etwas.

Kein Mensch wird akzeptieren, erst mit dem Finger von unten nach oben zu streichen, und dann erst schiebt sich mit einem großen Sprung der Bildschirminhalt sobald jemand den Finger vom Glas nimmt.

Mach über und unter deine Scrollbox notfalls zwei Buttons zum Hoch ▲ und Runterscrollen ▼, das versteht jeder.


Oder du hast die Zeit und bastelst dir selbst einen Scrollmechanismus mit OnMouseDown, OnMouseMove, OnMouseUp und alldem.