Discussion :

[Invité]

Bonjour,

je voudrai redéfinir ShortCutToText pour permettre la traduction des libellés de raccourcis associés aux actions dans le cas des touches de déplacement (ex: Droite, Gauche, Ctrl+Droite, etc.).

Je suis en Delphi 7 perso et je ne peux pas recompiler Menus.pas où se trouvent les définitions concernées, mais j'ai trouvé une astuce utilisant VirtualProtect pour remplacer une fonction pas une autre dynamiquement. Cf. http://www.sicomponents.com/forum/vi...ca984752d9a10e

Ca marche pour remplacer les appels de ShortCutToText que je fais explicitement mais pas ceux qui sont faits dans la VCL donc entre autres dans les menus.

Est-ce que quelqu'un peut décoincer le problème ou me dire si il n'y a pas d'issue de ce coté ?

Merci

[anapurna]

salut

j'ai pas bien compris ta question que veut tu faire exactement ?
voila une fonction qui transform un valeur hotkey en
string

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function ShortCutToString(const HotKey:word):string;
var
  shift:tshiftstate;
begin
  shift:=[];
  if ((wordrec(HotKey).hi shr 0) and 1)<>0 then
     include(shift,ssshift);
 
  if ((wordrec(HotKey).hi shr 1) and 1)<>0 then
     include(shift,ssctrl);
 
  if ((wordrec(HotKey).hi shr 2) and 1)<>0 then
     include(shift,ssalt);
  result:=shortcuttotext(shortcut(wordrec(hotkey).lo,shift));
end;

si par contre tu as une valeur en texte voici ce qu'il te faut :

Code :

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

TextToShortCut('Ctrl+N')

@+ Phil

[Invité]

j'ai pas bien compris ta question que veut tu faire exactement ?

Avant de discuter du comment, j'aurais peut être dû être plus précis sur mon besoin ! Alors voila : je développe un freeware qui est actuellement traduit en 6 langues (la 7ème en cours ). Jusqu'à présent, je n'utilisais pas les actions et je gérais les raccourcis à la main. Pas terrible, mais tout allait bien.

Maintenant, tout est fait avec des actions et l'interface permet d'associer un bouton ou un raccourci à chacune des commandes. C'est propre, c'est fait pour ça... sauf que les raccourcis ne sont pas traduits et une interface en russe avec des menus où les raccourcis clavier sont en français, c'est franchement moche !

Donc le besoin est le suivant : est-il possible de traduire les raccourcis clavier qui apparaissent dans les menus ou les boutons outils ?

[anapurna]

salut

a priorie je dirai oui
les constante de chaine des menus se trouve dans l'unités consts

@+ Phil

[Invité]

les constante de chaine des menus se trouve dans l'unités consts

Ok. Pour répondre à mon problème, il faudrait pouvoir changer dynamiquement la valeur d'une resourcestring. Je n'ai pas été assez précis et je n'ai pas dit que mon programme à un dialogue permettant de changer la langue de l'interface en cours d'exécution.

Donc la question est maintenant s'il est possible de changer la valeur d'une resourcestring en cours d'exécution. Un rapide googlage ne donne pas vraiment de réponse... merci pour toute suggestion.

[anapurna]

salut

et si tu redefini le ondrawitem de ton menu se serait pas plus facile

@+ Phil