diff --git a/mainApk.pas b/mainApk.pas index 1d139be..0b19178 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -2949,8 +2949,14 @@ begin // garde son etat, elle n'a ete que masquee. Touch; end; - FLayWeb.Visible := True; - FWeb.Visible := True; + // SAUF PENDANT UN SCAN : la fenetre d'autorisation de la camera fait + // passer l'app par ici APRES que le scan a demarre, et la page revenait + // par-dessus l'apercu - camera ouverte mais invisible au premier essai. + if not FScanning then + begin + FLayWeb.Visible := True; + FWeb.Visible := True; + end; FBackgroundAt := 0; end; end;