Hallo zusammen,
weiss jemand wofür
hier der Parameter Control gut ist ?
Code:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Service: IFMXCameraService;
Params: TParamsPhotoQuery;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService,
Service) then
begin
Params.Editable := True;
// Specifies whether to save a picture to device Photo Library
Params.NeedSaveToAlbum := True;
Params.RequiredResolution := TSize.Create(640, 640);
Params.OnDidFinishTaking := DoDidFinish;
Service.TakePhoto([B]SpeedButton1[/B], Params); [B]//Was hat der Button damit zu tun ?[/B]
end
else
ShowMessage('This device does not support the camera service');
end;
Zitat:
Service.TakePhoto(SpeedButton1, Params); //Was hat der Button damit zu tun ?
Natürlich löst der Button das aus, aber das Aufnehmen setzt doch nicht etwa rückwirkend irgendetwas im Button ?
Rollo