Discussion :

[SergioMaster]

Titillé par la curiosité (comme d'hab) et ayant découvert que le dictionnaire offline était bien chargé j'ai tenté quelques expériences simples
je vous propose en direct un téléchargement Pièce jointe 665036 (D12.2 mais je pense qu'avec D12.1 ça passe)
le but est de changer la direction d'un flêche (un SVG dont je change la rotation)

Pièce jointe 665037
mauvaise idée, peut-être, avoir mis la zone de saisie en bas

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm2.edtCmdChangeTracking(Sender: TObject);
begin
  if Sametext(edtCmd.text, 'Arret') OR Sametext(edtCmd.text, 'Arrêt') then
  begin
    // fonctionne pas ?
    SkSvg1.Visible := false;
    edtCmd.text := emptystr;
  end;
 //   SkSvg1.Visible := true; // évidemment ça pouvait pas !!!!
    if Sametext(edtCmd.text, 'Gauche') then
    begin
      SkSvg1.RotationAngle := 0;
      edtCmd.text := emptystr;
    end;
    if Sametext(edtCmd.text, 'Avant') then
    begin
      SkSvg1.RotationAngle := 90;
      edtCmd.text := emptystr;
    end;
    if Sametext(edtCmd.text, 'Arrière') then
    begin
      SkSvg1.RotationAngle := -90;
      edtCmd.text := emptystr;
    end;
    if Sametext(edtCmd.text, 'Droite') then
    begin
      SkSvg1.RotationAngle := 180;
      edtCmd.text := emptystr;
    end;
end;

Problématiques :
Arrêt ne semble pas fonctionner, mais il me manque peut-être un re-dessin (je viens juste d'y penser, et après nouveau essais c'est ça)
Hors ligne, je reste bien en mode saisie et le "clavier" à l'écoute. En ligne, la saisie perd le focus (là encore je viens de penser : "et si je rajoutais un focus ?" )
Maintenant, au démarrage, il faudrait que le clavier soit directement à l'écoute : ça, ça sent le JNI a plein nez

[papyvore]

Code :

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

1
2
3
4
 
SkSvg1.Visible := false;
edtCmd.text := emptystr;
exit;

sinon il passe à la suite

Code :

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

SkSvg1.Visible := true;

[SergioMaster]

Oui, merci, j'avais finalement trouvé la "faille".
Entre temps j'ai "amélioré" cette partie pour la rendre plus interlope et surtout plus simple

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TForm2.edtCmdChangeTracking(Sender: TObject);
var cmd : integer;
begin
  Memo1.Lines.add(edtCmd.text);
  if Length(edtCmd.text) > 7 then
    edtCmd.text := emptystr;
  if vox.IndexOfName(edtcmd.text)>-1 then
    begin
      cmd:=StrToIntDef(vox.Values[edtCmd.Text],-1);
      SkSvg1.Visible := True;
      case cmd of                         // case pour me laisser des latitudes 
       -1 : SkSvg1.Visible := false;
       else SkSvg1.RotationAngle:=cmd;
      end;
      edtcmd.text:=EmptyStr;
    end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var f : String;
    svc : IFMXLocaleService;
begin
if SupportsPlatformService(IFMXLocaleService,svc) then
 begin
   f:=Format('commandes_%s',[svc.GetCurrentLangID]);
 end;

{$IFDEF ANDROID}f:=TPath.Combine(Tpath.GetDocumentsPath,f);{$ENDIF}
{$IFDEF MSWINDOWS}f:=TPath.Combine(Tpath.GetAppPath,f);{$ENDIF}
vox:=TstringList.Create;
Vox.CaseSensitive:=false;
vox.Sorted:=true;
if FileExists(f) then vox.LoadFromFile(f)
else begin
  vox.AddPair('Arrêt','');
  vox.AddPair('Arret','');
  vox.AddPair('Stop','');
  vox.AddPair('Avant','90');
  vox.AddPair('Arrière','-90');
  vox.AddPair('Droite','180');
  vox.AddPair('Gauche','0');
  vox.SaveToFile(f);
 end;
end;

et maintenant, il me faudrait découvrir comment détecté la langue. Mais, en priorité, mettre la saisie en vocal sans intervention de mes doigts.

[Edit]pour la langue, c'est fait partie en bleu