Version imprimable
Bonsoir,
je viens de migrer un projet Firemonkey en Delphi 11.3. tout fonctionne bien sauf les touches de fonctions. Les touches F1, F2, etc sont inopérantes. Quelqu'un a eut le problème ?
Pour être sur que ce ne soit pas lié à mon projet, j'ai essayé de créer un nouveau projet tout bête : une fiche, une action avec un shorcut F2, un bouton auquel j'associe l'action. L'appui sur F2 est inopérant :(
C'est hyper important sur ce projet que cela fonctionne
Merci pour votre attention
@++
Dany
vais vérifier de mon côté
Les F1...F12 sous Windows ou une autre plateforme ?
Bonjour,
oui, il s'agit de la plateforme Windows. Pardon.
Merci
@++
Dany
Bonjour,
J'ai fait le test également, même résultat les touches F1-F12 ne sont pas bien traitées
Le problème a déjà été signalé pour la version 11.2 RSP-39902
a priori c'est un traitement des shortcuts qui pose problème je cite
Citation:
The bug is in FMX.ActnList.pas, line 679. In the "IsSameShortcut" function, it is checking to see if the key pressed matches a given shortcut. It tries to "Normalize" the key pressed by converting it to upper case:
{{ NormilizedKey := Ord(Chr(AKey).ToUpper);}}
This works great if the key pressed is a regular keyboard character.
But the integer values for F1 through F11 are 112 through 122. When converted to chars, they become 'p' through 'z'. Then are converted to uppercase 'P' through 'Z' and then back to integers 80 through 90.
So "IsSameShortcut" will always return false for function keys F1 through F11.
En attendant un patch, voici ce qu'il est possible de faire.
1- ouvrir le fichier FMX.ActnList en cliquant dans la liste des uses, logiquement, il sera en lecture seule.
2- sauvegarder ce fichier dans le répertoire des sources de l'application, ce fichier sera alors modifiable.
3- ajouter l'unité ainsi crée au projet.
4- Modifier la ligne 679 située dans la région 'TCustomAction' en if AKey<112 then NormilizedKey := Ord(Chr(AKey).ToUpper) else NormilizedKey:=AKey; et les raccourcis F1-F12 fonctionneront.
Je n'ai testé que ce code, il est certainement à améliorer pour ne tester que Akey entre 112 et 122 etc.. C'est surtout la démarche qui est à prendre en compte
Autre code testé
Code:if AKey in [112..122] then NormilizedKey:=AKey else NormilizedKey := Ord(Chr(AKey).ToUpper);
Bonsoir,
Un grand merci à toi ! ça marche imppec.
Mais pourquoi Embarcadero ne l'a pas corrigé depuis la 11.2 ?
@++
Dany
Parce que je pense que ma solution est un peu "simpliste", elle fonctionne pour mon clavier (102 touches) mais qu'en est-il pour un 83-84 touches ?Citation:
Envoyé par skywaukers
De plus, est-ce que c'est compatible avec Mac et Linux :?: je n'ai pas testé pour le dernier et ne peut pour le premier.
À moins que ce soit une histoire avec les SecondaryShortCuts (si j'ai bien compris, il s'agit des raccourcis générés par les &quelquechose des menus et autres libellés). Du coup la question que je me pose est : est-ce que l'on s'attend à ce qu'un &a et un &A réagissent pareil ou non ? Par curiosité, je suis allé voir dans les codes sources des versions antérieures le traitement est totalement différent et sensible à la casse (ce que Ord(Chr(AKey).ToUpper) empêche)
Normalement les codes étendus (et c'est le cas ici) ne changent pas quelque soit la disposition ou la langue du clavierCitation:
Envoyé par SergioMaster
Ce qui n'est pas le cas lorsque l'on travaille avec les scans codes, là par contre ça change en fonction de la disposition du clavier
Bonsoir,
oui je comprends parfaitement que c'est compliqué de tout prendre en compte, avec le multi-plateforme. Ce que je comprends moins c'est que ce n'est pas une nouveauté, loin de là. ça fonctionnait très bien jusqu'à la 11.2. Donc à priori ils ont fait des modifications en profondeur, je pense quand même qu'il y a un trou quelque part dans les tests, on est pas dans un fonctionnement vicieux, aléatoire, difficile à reproduire. J'avais vu le lien vers la rsp que tu cite, mais mes identifiants ne me permettent pas d'accéder au contenu. Cependant le message que j'avais trouvé sur un autre forum date un peu et la personne l'a remontée sur la version 11.2.Citation:
Envoyé par SergioMaster
Bon, mais je reconnais que c'est facile de porter un regard critique sans connaitre toute l'histoire :)
En tout cas encore merci, je me voyais déjà obligé de réinstaller la 11.1..
@++
Dany