diff --git a/mainApk.pas b/mainApk.pas index 5750dae..724a825 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -3466,7 +3466,12 @@ begin if FScanWatch <> nil then FScanWatch.Enabled := False; if FCam <> nil then FCam.Active := False; if FScanLay <> nil then FScanLay.Visible := False; + // LES DEUX COUCHES : la fenetre d'autorisation de la camera fait passer par + // WillBecomeInactive, qui masque aussi la vue web elle-meme - et BecameActive + // la laisse masquee pendant le scan. Ne rendre que le calque laissait l'ecran + // bleu du fond apres le premier scan. FLayWeb.Visible := True; + FWeb.Visible := True; end; procedure TForm8.DoCancelScan(Sender: TObject);