x64: TDPFSLComposeViewController.SLComposeViewControllerCompletion
Delphi iOS Native Components
Brought to you by:
b_yaghobi
The following code looks suspicious for x64. I'd recommend changing FOnComposeEvent.
procedure TDPFSLComposeViewController.SLComposeViewControllerCompletion( SLComposeViewControllerResult: TSLComposeViewControllerResult );
begin
GetSharedApplication.keyWindow.rootViewController.dismissViewControllerAnimated( true, presentViewControllerCompletion );
if Assigned( SLComposeViewControllerResult ) and Assigned( FOnComposeEvent ) then
FOnComposeEvent( Self, Integer( SLComposeViewControllerResult ) ); //!! TODO x64
end;
Hi Sebastian
Fixed.
Thank you for feedback.
Regards