das hätte ich eigentlich aber ist trotzdem ein sehr komisches Verhalten
Unten ist der Code zum anzeigen des SettingsForm
Man sieht auf dem Handy (iPhone 14 Pro) das er die Kamera zwar ausschaltet (Das grüne Licht ist weg) das Bild bliebt dann stehen (da ja CameraComponent.Active := False) steht aber das Setting Form wird nicht angezeigt.
Dann gehe ich einfach normal raus, wieder rein, und ich sehe das Settings form.
In 1 von 10 Fällen funktioniert es das es sofort angezeigt wird.
Beim beenden des Settings Form ist es blöder, da wird die Kamera nicht mehr angezeigt, und es dauert länger (mehrere Versuche) bis ich den normalen Screen wieder sehe
Delphi-Quellcode:
procedure TCameraForm.actShowSettingsExecute(Sender: TObject);
var
SavedCameraActive: Boolean;
begin
SavedCameraActive := CameraComponent.Active;
SettingsForm.Camera := CameraComponent;
CameraComponent.Active := False;
SettingsForm.lbiFormat.ItemData.Detail := fImageFormat;
SettingsForm.ShowModal(procedure (AResult: TModalResult)
begin
CameraComponent.Active := SavedCameraActive;
fImageFormat := SettingsForm.lbiFormat.ItemData.Detail;
end);
end;