Fix RequestConsent calls/comment

DelphiWorlds · Feb 21, 2024 · b583db9 · b583db9
1 parent 14a6127
commit b583db9
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/Demos/AdMob/Unit1.pas b/Demos/AdMob/Unit1.pas
@@ -95,8 +95,13 @@ constructor TForm1.Create(AOwner: TComponent);
 
 procedure TForm1.ConsentButtonClick(Sender: TObject);
 begin
-  // Use RequestConsent(False) if you need to opt out of UMP
+  // Use RequestConsent(True) if you need to OPT OUT out of UMP
+  {$IF CompilerVersion > 35}
   AdMob.RequestConsent;
+  {$ELSE}
+  // UMP not supported on Delphi 11
+  AdMob.RequestConsent(True);
+  {$ENDIF}
   // **** NOTE: Ads will not start until RequestConsent has been called ****
 end;