Gestures für Windows

[Alex_ITA01]

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

[Der schöne Günther]

Ich glaube, dein erstes Problem ist doch, dass Ding überhaupt anzuschließen und zu schauen wie es sich verhält:

1. Als Maus-Emulation
2. Als Touch

Das entscheidet dann auch, ob du dir über überhaupt einen GestureManager etwas hinmurksen musst, vielleicht lieber einfach doch ▲ und ▼ Buttons über- und unterhalb deine Scrollbox packst oder ob du einfach Windows easy selbst darin scrollen lassen kannst.

[jaenicke]

Die Frage ist, ob der Touchscreen echten Touch kann oder lediglich eine Maus emuliert. Das sollte in dessen Unterlagen stehen.

Du kannst dich mit RegisterTouchWindow für Touchnachrichten registrieren. Du solltest mit Tools wie dem Window Detective prüfen, was da für Nachrichten ankommen.

[Der schöne Günther]

Das sieht man ja eigentlich schon, wenn man nur mal irgendwo auf den Bildschirm tappt, muss man sich keine Software für schreiben:

Maus ist ... wie Maus. Offensichtlich.

Ist es wie Touch, bleibt kein Mauszeiger dort stehen wo man hingetippt hat, sondern nur so ein kleiner Kreis, der schnell wieder verschwindet. Auch kann man z.B. in einem Webbrowser oder Notepad oder anderen Programmen ganz normal scrollen.

[jaenicke]

Ganz so einfach ist es nicht. Es gibt auch Monitore bzw. Treiber, die sich wie eine Maus verhalten, aber visuell wie Touch aussehen. Ich habe 11 Jahre lang für solche Systeme entwickelt. Da gibt es so viele Varianten...

[himitsu]

Ja, die ganz Billigen/Einfachen, emulieren gern einfach nur eine Maus.

Aber viele verhalten sich so oder so
* Tippst du auf eine Fläche, welche sich als Touch registriert hat (RegisterTouchWindow), dann wird es Touch,
* und bei anderen Flächen verhält es sich wie eine Maus.

Zitat:

Leider ist die EventInfo immer nur das Feld Location (X/Y) gefüllt und zwar mit dem Wert

Es waren im TouchManager aber auch ein paar Gesten eingerichtet, bzw. Standardgesten aktiviert?

[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:
Screenshot 2024-12-05 171204.jpg
https://imgur.com/a/G8BadjN

[himitsu]

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