diff --git a/android-client/PMA.Theme.pas b/android-client/PMA.Theme.pas
index f679b0a..a0accad 100644
--- a/android-client/PMA.Theme.pas
+++ b/android-client/PMA.Theme.pas
@@ -20,22 +20,28 @@ unit PMA.Theme;
 interface
 
 uses
-  System.UITypes, System.Classes, FMX.Types, FMX.Objects, FMX.StdCtrls;
+  // FMX.Graphics pour TBrush, que PaintBackground prend en parametre.
+  System.UITypes, System.Classes, FMX.Types, FMX.Graphics, FMX.Objects,
+  FMX.StdCtrls;
 
 const
-  // Ardoise et bleu. Le poste Windows accentue en cyan ; ici c'est le bleu
-  // d'Android - celui de la recherche globale et des applications systeme.
-  // Une application mobile a deux references legitimes, celle dont elle
-  // prolonge le service et celle du systeme qui l'heberge ; pour ce qui se
-  // touche, la seconde l'emporte.
-  COL_BG      = TAlphaColor($FF0F172A);   // fond general
-  COL_SURFACE = TAlphaColor($FF1E293B);   // blocs poses dessus
-  COL_RAISED  = TAlphaColor($FF334155);   // bouton au repos
-  COL_LINE    = TAlphaColor($FF334155);   // filet des cadres
-  COL_TEXT    = TAlphaColor($FFE2E8F0);
-  COL_MUTED   = TAlphaColor($FF94A3B8);
-  COL_ACCENT  = TAlphaColor($FF3B82F6);
-  COL_ON_ACC  = TAlphaColor($FFFFFFFF);   // texte sur fond accentue
+  // Releve sur la recherche globale du telephone, qui est la reference pour
+  // tout ce qui se touche - l'application doit ressembler a l'endroit ou elle
+  // tourne, pas seulement au service qu'elle prolonge.
+  //
+  // CE QUI FAIT CE STYLE, et qu'il faut tenir : un DEGRADE bleu en fond, des
+  // blocs qui ne sont que du BLANC TRANSLUCIDE pose dessus, AUCUNE bordure, de
+  // grands arrondis, du texte blanc. La profondeur vient de la transparence,
+  // pas des filets - c'est pour ca que les cadres ont disparu.
+  COL_BG_TOP  = TAlphaColor($FF3E6394);   // haut du degrade
+  COL_BG      = TAlphaColor($FF1B3563);   // bas du degrade, et repli uni
+  COL_SURFACE = TAlphaColor($1FFFFFFF);   // bloc : 12 % de blanc
+  COL_RAISED  = TAlphaColor($2EFFFFFF);   // bouton au repos : 18 %
+  COL_ACCENT  = TAlphaColor($4DFFFFFF);   // action principale : 30 %
+  COL_LINE    = TAlphaColor($00000000);   // plus de filet : garde pour l'API
+  COL_TEXT    = TAlphaColor($FFFFFFFF);
+  COL_MUTED   = TAlphaColor($B3E8F0FA);
+  COL_ON_ACC  = TAlphaColor($FFFFFFFF);   // le blanc reste lisible sur 30 %
 
 /// A appeler une fois, avant la creation de la forme.
 procedure ApplyDarkTheme;
@@ -53,16 +59,19 @@ procedure SetButtonEnabled(AButton: TRectangle; AEnabled: Boolean);
 /// Bloc de fond, coins arrondis, filet discret.
 function Surface(AParent: TFmxObject): TRectangle;
 
-/// Intitule de section : majuscules, petit, discret.
+/// Intitule au-dessus d'une valeur : petit et discret, sans majuscules.
 procedure SectionLabel(ALabel: TLabel);
 
+/// Applique le degrade bleu du fond. A poser sur le Fill de la forme.
+procedure PaintBackground(AFill: TBrush);
+
 /// Met un libelle a la palette. AMuted pour les intitules discrets.
 procedure Tint(ALabel: TLabel; ASize: Single; AMuted: Boolean = False);
 
 implementation
 
 uses
-  System.SysUtils, System.Types, FMX.Styles, FMX.Graphics, FMX.Controls;
+  System.SysUtils, System.Types, FMX.Styles, FMX.Controls;
 
 {$R 'theme\theme.res' 'theme\theme.rc'}
 
@@ -116,23 +125,31 @@ begin
   Result := TRectangle.Create(AParent);
   Result.Parent := AParent;
   Result.Fill.Color := COL_SURFACE;
-  // Filet discret plutot qu'aucune bordure : c'est lui qui detache un bloc du
-  // fond sans avoir a l'eclaircir, comme sur le poste Windows.
-  Result.Stroke.Color := COL_LINE;
-  Result.Stroke.Thickness := 1;
-  Result.XRadius := 10;
-  Result.YRadius := 10;
+  // AUCUNE bordure, et un grand arrondi : c'est la translucidite qui detache
+  // le bloc du fond. Un filet rendrait tout de suite l'air « application de
+  // bureau ».
+  Result.Stroke.Kind := TBrushKind.None;
+  Result.XRadius := 20;
+  Result.YRadius := 20;
 end;
 
-/// Intitule de section : majuscules, petit, discret. C'est ce qui donne au
-/// poste Windows sa lisibilite - l'oeil saute d'un intitule a l'autre sans
-/// confondre avec les valeurs.
+/// Intitule au-dessus d'une valeur. Ni majuscules ni petites capitales : rien
+/// n'est en majuscules dans la reference, le second plan s'y marque par la
+/// couleur et la taille seules.
 procedure SectionLabel(ALabel: TLabel);
 begin
   ALabel.StyledSettings := [];
-  ALabel.TextSettings.Font.Size := 11;
+  ALabel.TextSettings.Font.Size := 12;
   ALabel.TextSettings.FontColor := COL_MUTED;
-  ALabel.Text := ALabel.Text.ToUpper;
+end;
+
+/// Peint le degrade de fond sur une forme.
+procedure PaintBackground(AFill: TBrush);
+begin
+  AFill.Kind := TBrushKind.Gradient;
+  AFill.Gradient.Color := COL_BG_TOP;
+  AFill.Gradient.Color1 := COL_BG;
+  // Rien de plus : un TGradient neuf descend deja du haut vers le bas.
 end;
 
 function FlatButton(AParent: TFmxObject; const AText: string;
@@ -143,20 +160,16 @@ var
 begin
   Result := TRectangle.Create(AParent);
   Result.Parent := AParent;
-  Result.XRadius := 10;
-  Result.YRadius := 10;
+  // Pilule : l'arrondi vaut la moitie de la hauteur usuelle d'un bouton. Tout
+  // ce qui se touche est arrondi ainsi dans la reference.
+  Result.XRadius := 26;
+  Result.YRadius := 26;
   Result.Cursor := crHandPoint;
-  if APrimary then
-  begin
-    Result.Fill.Color := COL_ACCENT;
-    Result.Stroke.Kind := TBrushKind.None;
-  end
-  else
-  begin
-    Result.Fill.Color := COL_SURFACE;
-    Result.Stroke.Color := COL_LINE;
-    Result.Stroke.Thickness := 1;
-  end;
+  Result.Stroke.Kind := TBrushKind.None;
+  // La difference entre principal et secondaire tient a l'opacite du blanc,
+  // pas a une couleur : la reference n'a aucun accent colore.
+  if APrimary then Result.Fill.Color := COL_ACCENT
+              else Result.Fill.Color := COL_RAISED;
   Result.OnClick := AOnClick;
 
   LCaption := TLabel.Create(Result);
diff --git a/android-client/theme/make-style.ps1 b/android-client/theme/make-style.ps1
index ecbd73c..9325217 100644
--- a/android-client/theme/make-style.ps1
+++ b/android-client/theme/make-style.ps1
@@ -19,9 +19,9 @@ $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 = 'xFF1E293B'   # COL_SURFACE
-$border  = 'xFF334155'   # COL_RAISED, en bordure discrete
-$text    = 'xFFE2E8F0'   # COL_TEXT
+$surface = 'x2EFFFFFF'   # COL_RAISED : blanc translucide, sans bordure
+$border  = 'x00000000'   # plus de filet : la reference n'en a aucun
+$text    = 'xFFFFFFFF'   # COL_TEXT
 
 $lines = Get-Content $src
 $patched = 0
diff --git a/android-client/theme/pm-dark.style b/android-client/theme/pm-dark.style
index 9fcfe98..38c7299 100644
--- a/android-client/theme/pm-dark.style
+++ b/android-client/theme/pm-dark.style
@@ -2075,18 +2075,18 @@
     object TRectangle
       StyleName = 'background'
       Align = Contents
-      Fill.Color = xFF1E293B
+      Fill.Color = x2EFFFFFF
       Locked = True
       Height = 22.000000000000000000
       HitTest = False
-      Stroke.Color = xFF334155
+      Stroke.Color = x00000000
       XRadius = 24.000000000000000000
       YRadius = 24.000000000000000000
       Width = 107.000000000000000000
     end
     object TBrushObject
       StyleName = 'foreground'
-      Brush.Color = xFFE2E8F0
+      Brush.Color = xFFFFFFFF
     end
     object TBrushObject
       StyleName = 'selection'
@@ -2509,7 +2509,7 @@
     object TRectangle
       StyleName = 'background'
       Align = Contents
-      Fill.Color = xFF1E293B
+      Fill.Color = x2EFFFFFF
       Locked = True
       Height = 131.000000000000000000
       HitTest = False
@@ -2517,7 +2517,7 @@
       Padding.Top = 2.000000000000000000
       Padding.Right = 2.000000000000000000
       Padding.Bottom = 2.000000000000000000
-      Stroke.Color = xFF334155
+      Stroke.Color = x00000000
       XRadius = 10.000000000000000000
       YRadius = 10.000000000000000000
       Width = 334.000000000000000000
diff --git a/mainApk.pas b/mainApk.pas
index df68014..d53242a 100644
--- a/mainApk.pas
+++ b/mainApk.pas
@@ -237,8 +237,9 @@ begin
   Caption := 'Vault';
   // Le fond de la forme, et non celui du style : tout le reste est peint
   // par-dessus, et un gris herite se verrait entre les blocs.
-  Fill.Kind := TBrushKind.Solid;
-  Fill.Color := COL_BG;
+  // Qualifie : TForm a deja une methode PaintBackground, sans parametre, qui
+  // masque celle de l'unite.
+  PMA.Theme.PaintBackground(Fill);
   SecureScreen;   // avant tout affichage de contenu
   FVault := TVault.Create;
   FIcons := TObjectDictionary<Integer, TBitmap>.Create([doOwnsValues]);
@@ -765,7 +766,7 @@ begin
     SetLength(FRowCtls, Length(FRowCtls) + 1);
     FRowCtls[High(FRowCtls)] := LRow;
     FTotpValue.TextSettings.Font.Size := 28;
-    FTotpValue.TextSettings.FontColor := COL_ACCENT;
+    FTotpValue.TextSettings.FontColor := COL_TEXT;
     AddRowButton(LRow, 'Copy', -1, OnCopyTap);
 
     // Barre de progression sous le code, comme sur le poste : elle dit d'un
@@ -773,7 +774,7 @@ begin
     FTotpBar := TRectangle.Create(LRow);
     FTotpBar.Parent := LRow;
     FTotpBar.Align := TAlignLayout.None;
-    FTotpBar.Fill.Color := COL_ACCENT;
+    FTotpBar.Fill.Color := COL_TEXT;
     FTotpBar.Stroke.Kind := TBrushKind.None;
     FTotpBar.XRadius := 1;
     FTotpBar.YRadius := 1;