From 4347dba8d93dc7dcfb34af6b9d2905bb5e5357e8 Mon Sep 17 00:00:00 2001
From: r-zakarya <82443831+r-zakarya@users.noreply.github.com>
Date: Sun, 16 Aug 2026 22:23:27 +0100
Subject: [PATCH] feat(android): the system bars join the gradient

The app sat in a frame that did not belong to it: a grey status bar above, a WHITE navigation bar below, under a blue background. The reference bathes both in the same gradient, and that is what makes an app look like it occupies the screen rather than being placed on it.

Each bar takes one end of the gradient - top colour above, bottom colour below - so the continuity is exact. The FLAG_SECURE condition moved from the uses clause into the body of SecureScreen, since the same JNI imports now serve the bars, which must work in debug too.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
---
 android-client/PMA.ScreenGuard.pas | 44 ++++++++++++++++++++++++++++--
 mainApk.pas                        |  3 ++
 2 files changed, 45 insertions(+), 2 deletions(-)

diff --git a/android-client/PMA.ScreenGuard.pas b/android-client/PMA.ScreenGuard.pas
index 1a227b0..09b1a1b 100644
--- a/android-client/PMA.ScreenGuard.pas
+++ b/android-client/PMA.ScreenGuard.pas
@@ -15,12 +15,23 @@ unit PMA.ScreenGuard;
 
 interface
 
+uses
+  System.UITypes;
+
 /// A appeler une fois, au demarrage, depuis le thread principal.
 procedure SecureScreen;
 
+/// Teinte les barres systeme - etat en haut, navigation en bas.
+///
+/// Sans cela l'application flotte dans un cadre qui ne lui appartient pas :
+/// barre d'etat grise, barre de navigation BLANCHE sous un fond bleu. La
+/// reference les fait baigner dans le meme degrade, et c'est ce qui donne
+/// l'impression que l'application occupe l'ecran plutot que d'y etre posee.
+procedure TintSystemBars(ATop, ABottom: TAlphaColor);
+
 implementation
 
-{$IF DEFINED(ANDROID) AND NOT DEFINED(DEBUG)}
+{$IF DEFINED(ANDROID)}
 uses
   // System.SysUtils : sans elle, TAndroidHelper.GetJActivity reste un appel
   // non expanse et le compilateur le signale a chaque usage.
@@ -29,6 +40,9 @@ uses
 
 procedure SecureScreen;
 begin
+  // La condition est ICI, dans le corps, et non sur la clause uses : celle-ci
+  // sert aussi a TintSystemBars, qui doit fonctionner en debug.
+{$IFNDEF DEBUG}
   // setFlags touche la fenetre : thread d'interface obligatoire.
   CallInUIThread(
     procedure
@@ -37,11 +51,37 @@ begin
         TJWindowManager_LayoutParams.JavaClass.FLAG_SECURE,
         TJWindowManager_LayoutParams.JavaClass.FLAG_SECURE);
     end);
+{$ENDIF}
 end;
 {$ELSE}
 procedure SecureScreen;
 begin
-  // Rien a faire : ni Windows ni une compilation de debogage.
+  // Rien a faire : ce n'est pas Android.
+end;
+{$ENDIF}
+
+{$IF DEFINED(ANDROID)}
+procedure TintSystemBars(ATop, ABottom: TAlphaColor);
+begin
+  CallInUIThread(
+    procedure
+    var
+      LWindow: JWindow;
+    begin
+      try
+        LWindow := TAndroidHelper.Activity.getWindow;
+        // Les deux couleurs different : le haut prend le depart du degrade,
+        // le bas son arrivee, pour que la continuite soit exacte.
+        LWindow.setStatusBarColor(Integer(ATop));
+        LWindow.setNavigationBarColor(Integer(ABottom));
+      except
+        // Une barre non teintee n'empeche rien de fonctionner.
+      end;
+    end);
+end;
+{$ELSE}
+procedure TintSystemBars(ATop, ABottom: TAlphaColor);
+begin
 end;
 {$ENDIF}
 
diff --git a/mainApk.pas b/mainApk.pas
index 229f8ce..d70a77e 100644
--- a/mainApk.pas
+++ b/mainApk.pas
@@ -240,6 +240,9 @@ begin
   // Qualifie : TForm a deja une methode PaintBackground, sans parametre, qui
   // masque celle de l'unite.
   PMA.Theme.PaintBackground(Fill);
+  // Les barres systeme prennent les deux extremites du degrade, pour que
+  // l'ecran soit d'un seul tenant.
+  TintSystemBars(COL_BG_TOP, COL_BG);
   SecureScreen;   // avant tout affichage de contenu
   FVault := TVault.Create;
   FIcons := TObjectDictionary<Integer, TBitmap>.Create([doOwnsValues]);