Discussion :

[ChPr]

Bonjour à toutes et à tous,

J'essaie de réaliser un clavier virtuel. Mais j'ai des comportements différents selon que je suis sous Windows ou Linux.

Dans l'exemple que j'ai joint, sous Windows, lorsque je fais un appui long (> 300 mS) sur le bouton "e", un panel avec 4 boutons ayant chacun un "e" accentué apparaît.

Si je maintiens la souris enfoncée et que je me déplace sur un de ces 4 boutons et que je relâche la souris, le caractère du bouton choisi s'affiche dans le TEdit et les 4 boutons disparaissent. Ce fonctionnement est obtenu grâce au "focus" que j'envoie au panel supportant les 4 boutons.

Sous Linux, le déplacement de la souris maintenue enfoncée sur un des 4 boutons qui apparaissent ne fait rien. Il faut que je relâche la souris et ré-appuie dessus pour que le caractère soit pris en compte et que les 4 boutons disparaissent.

J'aimerais avoir dans les deux environnements le comportement obtenu sous Windows.

Avez-vous une idée de la solution ?

Cordialement.

[BeanzMaster]

Salut Pierre,

Je viens tout juste de regarder ton code et voila la solution : BZ_Clav_Tact.zip directement inspiré par TOI !

Bonne soirée

A+

Jérôme

[ChPr]

... Je viens tout juste de regarder ton code et voila la solution : BZ_Clav_Tact.zip directement inspiré par TOI ! ...

Salut Jérome,

Je suis désolé, j'ai complètement zappé ta réponse qui s'est incluse 2 minutes avant la mienne.

Je viens de la voir et de la tester sous Windows et Linux avec succès. Je t'en remercie beaucoup, Je vais essayer d'inclure cela dans ma version définitive du clavier tactile.

Cordialement.

Pierre

[ChPr]

... Je vais essayer d'inclure cela dans ma version définitive du clavier tactile. ...

Dans mon clavier définitif, les touches supplémentaires, pour des besoins "ergonomiques", se trouvent au-dessus d'autres touches. Là, le comportement (sous Linux) ne semble plus cohérents. Parfois c'est la touche supplémentaire qui est prise en compte, d'autres fois c'est la touche qui est en-dessous selon l'endroit où on relâche la souris. Pour pallier cela, j'ai l'impression qu'il va falloir placer tout un tas de conditions qui feront que le codage va être difficilement compréhensible.

Donc, bien que le solution semble prometteuse, pour l'instant, je me mets cela sous le coude.

Cordialement.

Pierre

[BeanzMaster]

Salut Pierre

Salut Jérome,

Je suis désolé, j'ai complètement zappé ta réponse qui s'est incluse 2 minutes avant la mienne.

Je viens de la voir et de la tester sous Windows et Linux avec succès. Je t'en remercie beaucoup, Je vais essayer d'inclure cela dans ma version définitive du clavier tactile.

Cordialement.

Pierre

Pas de soucis

Dans mon clavier définitif, les touches supplémentaires, pour des besoins "ergonomiques", se trouvent au-dessus d'autres touches. Là, le comportement (sous Linux) ne semble plus cohérents. Parfois c'est la touche supplémentaire qui est prise en compte, d'autres fois c'est la touche qui est en-dessous selon l'endroit où on relâche la souris. Pour pallier cela, j'ai l'impression qu'il va falloir placer tout un tas de conditions qui feront que le codage va être difficilement compréhensible.

Donc, bien que le solution semble prometteuse, pour l'instant, je me mets cela sous le coude.

Cordialement.

Pierre

Bizarre normalement il ne devrait pas y avoir de soucis. Une piste vite fait, avec les panels contenant les touches supplémentaires fais attention à l'ordre des Z (clique droit dessus) passes les bien en avant plan. Si ces panels se superposent au Panel de ton composant (is sont donc créés et afficher sur la fiche et non le composant. Ce qui reviendrait à modifier dans mon exemple

la méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Panel2Click(Sender: TObject);
var
  ctrl: TControl;
  i : Integer;
begin
  if Panel2.ControlCount>0 then
    begin
      for i:= 0 to  Panel2.ControlCount-1 do
      begin
        Ctrl := Panel2.Controls[i];
        if Ctrl is TbitBtn then TbitBtn(Ctrl).Visible:= true;
      end;
    end;
end;

Vu que ton composant est un panel conteant d'autre panel c'est également cette méthode qui est à modifier. Ici il manquerai peut-être un niveau (en cliquant sur une touche, il faut prendre le parent cad ton composant)

Je dois filler. Je jetterai un coup d'oeil à ton composant dès que j'aurai un peu de temps

A+

[BeanzMaster]

Salut Pierre, j'ai eu un peu de temps ce soir, j'ai modifié un peu ton composant pour qu'il suive les normes et standard de code.J'ai également corrigé quelques oublis (Le Destructeur par exemple )

Il fonctionne aussi bien sous Windows que sous Linux
Reste plus qu'a le peaufiner un peu, comme le Resize afin que les touches puissent être plus petites (car la le clavier est énorme plus de 1400 pixel en largeur ).
Donner la possibilité de choisir les couleurs et les icônes des boutons. Et là il sera au top ce petit compo plus tôt pas mal du tout déja en l'état.


Une chose a laquelle il faut faire attention c'est de paramétrer l’événement "OnCloseQuery" de la Form, car si le clavier est toujours actif l'application ne se ferme pas si tu cliques sur la croix de fermeture de la fenêtre.

Voili voilou, testes et dis moi si cela fonctionne chez toi et sur ton Raspi

Bonne soirée

Jérôme

[ChPr]

Bien que le comportement soit différent sous Windows ou Linux (voir ci-avant), j'ai finalisé mon clavier tactile pour l'édition d'une ligne.
Si cela vous intéresse, si vous voulez l'utiliser ou voire le modifier, il se présente sous la forme d'un composant inclus dans un paquet. Voir les fichiers ci-joints.

Je l'ai testé sous Windows (XP) et Linux (Ubuntu) en cliquant avec la souris sur les touches du clavier virtuel et avec mon Raspberry Pi 3B+ avec un écran tactile de 7 ".

Cordialement.

Pierre