バックグラウンドプロセス化したアプリが Front に戻ってきたとき真っ黒問題に対処するコード

FixBackToFront.pas

//
// あんまり、おこらないかもしれない！
//
// IFMXApplicationEventService をTPlatformServices.Current.GetPlatformService から取り出して
// AppEventService.SetApplicationEventHandler(AppEvent); をして
// そのイベントハンドラで以下の様にする

function TLifecycleManager.AppEvent(
  iAppEvent: TApplicationEvent;
  iContext: TObject): Boolean;
begin
  Result := False;

  case iAppEvent of  
    TApplicationEvent.WillBecomeForeground: begin
      {$IFDEF ANDROID}
      // onWindowFocusChanged を呼ぶと TWindowManager.Render が呼ばれて再描画される
      TThread.Queue(
        TThread.Current, 
        procedure
        begin
          PANativeActivity(System.DelphiActivity)^.
            callbacks^.
            onWindowFocusChanged(System.DelphiActivity, 1);
        end
      );
      {$ENDIF}

      CallEvent(FOnWillBecomeForeground);
    end;
  end;
end;