diff --git a/android-client/theme/make-style.ps1 b/android-client/theme/make-style.ps1
index 9325217..390eb8c 100644
--- a/android-client/theme/make-style.ps1
+++ b/android-client/theme/make-style.ps1
@@ -19,7 +19,10 @@ $src = 'C:\Program Files (x86)\Embarcadero\Studio\23.0\Redist\styles\Fmx\Dark.st
 $dst = Join-Path $PSScriptRoot 'pm-dark.style'
 
 # Doivent suivre les constantes de PMA.Theme.
-$surface = 'x2EFFFFFF'   # COL_RAISED : blanc translucide, sans bordure
+# Un champ est CREUX : moins de blanc qu'un bouton (18 %) et bien moins que
+# l'action principale (30 %). Sans cet ecart, une saisie ressemble a une
+# commande - le mot de passe avait l'air d'un bouton.
+$surface = 'x1AFFFFFF'
 $border  = 'x00000000'   # plus de filet : la reference n'en a aucun
 $text    = 'xFFFFFFFF'   # COL_TEXT
 
diff --git a/android-client/theme/pm-dark.style b/android-client/theme/pm-dark.style
index 38c7299..509de97 100644
--- a/android-client/theme/pm-dark.style
+++ b/android-client/theme/pm-dark.style
@@ -2075,7 +2075,7 @@
     object TRectangle
       StyleName = 'background'
       Align = Contents
-      Fill.Color = x2EFFFFFF
+      Fill.Color = x1AFFFFFF
       Locked = True
       Height = 22.000000000000000000
       HitTest = False
@@ -2509,7 +2509,7 @@
     object TRectangle
       StyleName = 'background'
       Align = Contents
-      Fill.Color = x2EFFFFFF
+      Fill.Color = x1AFFFFFF
       Locked = True
       Height = 131.000000000000000000
       HitTest = False
diff --git a/mainApk.pas b/mainApk.pas
index 56db60e..229f8ce 100644
--- a/mainApk.pas
+++ b/mainApk.pas
@@ -875,6 +875,11 @@ end;
 procedure TForm8.OnToggleSettings(Sender: TObject);
 begin
   FLaySettings.Visible := not FLaySettings.Visible;
+  // Sa place doit etre REPOSEE a chaque apparition : cree masque, FMX le
+  // replace en tete de la pile quand il devient visible, et les deux champs
+  // se retrouvaient au-dessus du titre. Index 0 le renvoie en bas, juste
+  // au-dessus du journal, ou on attend des reglages.
+  if FLaySettings.Visible then FLaySettings.Index := 0;
 end;
 
 procedure TForm8.OnToggleLog(Sender: TObject);