Перейти к содержанию
Fire Monkey от А до Я

Лидеры

  1. yooSee

    yooSee

    Пользователи


    • Баллы

      4

    • Постов

      33


  2. mmover

    mmover

    Пользователи


    • Баллы

      3

    • Постов

      26


  3. Brovin Yaroslav

    Brovin Yaroslav

    Администраторы


    • Баллы

      1

    • Постов

      2 124


  4. Евгений Корепов

    Евгений Корепов

    Пользователи


    • Баллы

      1

    • Постов

      738


Популярный контент

Показан контент с высокой репутацией 07.02.2019 во всех областях

  1. yooSee

    Runtime permissions in Delphi 10.3 Rio

    Всем привет, вот и я решил внести свою лепту в жизнь форума и сегодня мы разберемся с разрешениями на Delphi Rio под Андроид. Для примера мы будем использовать разрешения на чтение и запись с памяти устройства, для начала в нашем проекте выставим в Delphi>Project>Application>Uses Permissions галочки на Read External Storage и Write External Storage. в uses проекта добавьте следующее uses System.Permissions, Androidapi.Jni.Os, Androidapi.Helpers, далее создадим переменные var Form: TForm; .... FPermissionWrite: string; FPermissionRead: string; в Form.Create добавим следующий код procedure TForm.FormCreate(Sender: TObject); begin FPermissionWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE); //Значение на запись FPermissionRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE); //Значение на чтение end; и теперь сам не посредственно запрос на подтверждение наших прав procedure TForm.Button1Click(Sender: TObject); begin PermissionsService.RequestPermissions ([FPermissionWrite, FPermissionRead], nil); end; //это вызовет окно с запросом разрешения прав ну и для проверки бросим на форму TMemo и пару TButton , в них реализуем сохранение и чтение из файла с памяти устройства procedure TForm.Button1Click(Sender: TObject); begin Memo1.Lines.LoadFromFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')); end; procedure TForm.Button2Click(Sender: TObject); begin Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')); end; P.S. Напоминаю что для работы TPath нам понадобится подключить в Uses uses System.system.ioutils; Надеюсь материал будет полезен! video_2019-02-08_00-11-36.mp4 Permissions.zip
    4 балла
  2. mmover

    ClientWidth и ClientHeight

    cw := Grid1.Content.Width; ch := Grid1.Content.Height;
    3 балла
  3. Евгений Корепов

    PUSH и Android8

    Этот замкнутый круг разорвали в Rio, переходите на последнюю версию среды и пуши будут работать.
    1 балл
  4. Паршенко Виктор

    ClientWidth и ClientHeight

    клиентские размеры есть у TCommonCustomForm (в следствии и у наследников, TForm) FWinService: IFMXWindowService; ... function TCommonCustomForm.GetClientHeight: Integer; begin Result := round(FWinService.GetClientSize(Self).Y); end; function TCommonCustomForm.GetClientWidth: Integer; begin Result := round(FWinService.GetClientSize(Self).X); end;
    1 балл
  5. Brovin Yaroslav

    Описание TfgProgressDialog

    Описание Назначение: Компонент предназначен для визуального отображения хода выполнения длительной операции. При этом пользовательский интерфейс блокируется диалоговым окном до окончания выполнения задачи. В отличии от TfgActivityDialog этот компонент используется в том случае, когда мы можем каким-либо способом оценить длительность выполнения операции. Поддерживаемые платформы: iOS, Android Демо проект: Samples\ProgressDialogDemo\ProgressDialogDemo.dproj Скриншоты Работа под iOS: Работа под Андроид (Выше, чем GingerBread 2.3): Работа под Андроид (GingerBread 2.3):
    1 балл
Эта таблица лидеров рассчитана в Москва/GMT+03:00
×
×
  • Создать...