Skip to content

Commit

Permalink
Merge pull request #41 from adrianosantostreina/develop
Browse files Browse the repository at this point in the history
Develop
  • Loading branch information
adrianosantostreina authored Mar 15, 2023
2 parents 10df0fd + 0d8d7cc commit 45ba699
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 4 deletions.
3 changes: 3 additions & 0 deletions .vscode/settings.json
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
{
"delphiLsp.settingsFile": "file:///c%3A/Componentes/Mobile%20Permissions/Package/MobilePermissions.delphilsp.json"
}
8 changes: 4 additions & 4 deletions Source/MobilePermissions.Permissions.Android.pas
Original file line number Diff line number Diff line change
Expand Up @@ -5,10 +5,10 @@ interface
uses
{$IF CompilerVersion >= 33.0}
System.Permissions,
{$ENDIF}
{$IFEND}
{$IF CompilerVersion >= 35.0}
System.Types,
{$ENDIF}
{$IFEND}
{$IFDEF ANDROID}
Androidapi.Helpers,
Androidapi.JNI.Os,
Expand All @@ -29,7 +29,7 @@ interface
{$ELSE}
TPermissions = System.TArray<string>;
TPermissionsStatus = System.TArray<TPermissionStatus>;
{$ENDIF}
{$IFEND}

TMobilePermissionsAndroid = class(TMobilePermissionsBase, IMobilePermissions)
private
Expand Down Expand Up @@ -91,7 +91,7 @@ function TMobilePermissionsAndroid.Request(Permissions: TArray<string>): IMobile
{$IF CompilerVersion >= 33.0}
if (FAndroidVersion > 6) then
PermissionsService.RequestPermissions(Permissions, RequestPermissionsResultProc, nil);
{$ENDIF}
{$IFEND}
end;

procedure TMobilePermissionsAndroid.RequestPermissionsResultProc(const APermissions: TPermissions; const AGrantResults: TPermissionsStatus);
Expand Down

0 comments on commit 45ba699

Please # to comment.