diff --git a/mainApk.pas b/mainApk.pas index 71d4704..e0364cf 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -2534,20 +2534,31 @@ begin TApplicationEvent.EnteredBackground: FBackgroundAt := Now; + // LE MASQUAGE NE DEMANDE RIEN, LA RESTITUTION EXIGEAIT UN COFFRE OUVERT. + // + // C'est toute l'affaire : plus haut, il suffit de ne pas etre sur l'accueil + // pour que la vue disparaisse - coffre ouvert ou non. Ici, elle ne revenait + // que si le coffre l'etait. Consulter les REGLAGES coffre ferme, puis + // laisser le telephone se verrouiller, cachait donc la page pour de bon : + // au retour il ne restait que le fond de la fenetre, un aplat bleu sans + // rien dessus et sans rien pour en sortir. + // + // La vue revient donc dans tous les cas - mais APRES le verrouillage + // eventuel, pour ne jamais montrer une liste qu'on vient d'effacer. TApplicationEvent.BecameActive: - if FVault.Count > 0 then begin - if (FBackgroundAt > 0) and - (SecondsBetween(Now, FBackgroundAt) >= BACKGROUND_GRACE_SECONDS) then - LockVault - else + if FVault.Count > 0 then begin - // Retour a temps : on rend l'ecran quitte, pas un autre. La page a - // garde son etat, elle n'a ete que masquee. - FLayWeb.Visible := True; - FWeb.Visible := True; - Touch; + if (FBackgroundAt > 0) and + (SecondsBetween(Now, FBackgroundAt) >= BACKGROUND_GRACE_SECONDS) then + LockVault + else + // Retour a temps : on rend l'ecran quitte, pas un autre. La page a + // garde son etat, elle n'a ete que masquee. + Touch; end; + FLayWeb.Visible := True; + FWeb.Visible := True; FBackgroundAt := 0; end; end;