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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

    2 517
  • Зарегистрирован

  • Посещение

  • Победитель дней

    264

Весь контент Равиль Зарипов (ZuBy)

  1. procedure CloseApp; begin {$IFDEF ANDROID} TAndroidHelper.Activity.moveTaskToBack(true); // MainActivity.finish; {$ELSE} Application.Terminate // Application.MainForm.Close; {$ENDIF} end; procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin inherited; if Key in [vkEscape, vkHardwareBack] then begin CloseApp; Key := 0; end; end;
  2. Забудьте про сервисы (в FMX) они не работают как положено в Андроиде
  3. Разве нужно разрешение чтобы писать в папку приложения? Или вы пишете на внешнюю память?
  4. вся справка тут, в виде демок https://github.com/rzaripov1990/ModernListView
  5. программно определять мышь или тач и в соответствии результата динамически присваивать события. Но это не точно, нужно тестить
  6. не парьтесь, скорее всего это связано с ресурсом из темы. но fmx морально устарел, он использует тему android holo
  7. ну еще вариант TTask.Run(procedure begin //тут отправляем данные на сервер через THTTPClient.Post TThread.Synchronize(TThread.CurrentThread, procedure begin // если нужно делаем что-то в основном потоке end) end)
  8. В андроиде 5+ появился из коробки киоскмоде, на стоке точно. можно перекрыть кнопку назад, но другие кнопки не перекрыть это максимум что вы можете сделать
  9. емба сломала это еще в Берлине, в Токио не починили. Службы "нормально" работают только в Сиетле
  10. ну незнаю, у меня работает procedure TForm3.Button1Click(Sender: TObject); var I: Integer; begin for I := 0 to 49 do ListBox1.Items.Add(I.ToString); end; procedure TForm3.Button2Click(Sender: TObject); begin ListBox1.ScrollToItem(ListBox1.ItemByIndex(ListBox1.Count - 1)); end;
  11. хотите облегчить себе жить? ваших коллег не следует допускать к бэкенду. изучите все вместе структуру json и приведите ответы сервера в порядок. я давно для себя придумал структуру ответов и незнаю горя для ошибки { "status": "ERROR", "text": "Тут текст ошибки" } для данных структура всегда одна - data ВСЕГДА массив, ну а в элементах массива уже что хотите { "status": "OK", "data": [ { "id": 1, "name": "asdasd" } ] } есть такая штука (писалось для себя), ну и не боитесь использовать де/маршалинг
  12. нуу, давайте так... массив - [], объект - {} или даже так
  13. смотрите код на джава, примеров уйма на стаке. сравните что в вашем коде выше не так, вот ссылочка для примера
  14. эмба вроде настаивает чтобы служба имела начало "com.embarcadero" а дальше всё кроме service
  15. если кратко то вот TTask.Run( procedure begin что-то качаем TThread.Synchronize(TThread.CurrentThread, procedure begin допустим выводим что скачали end); end);
  16. правильно сработал, это не массив а объект. смотрите внимательно
  17. нужно использовать нативный плеер, а не компонент TMediaPlayer В интернете были примеры
  18. данные сохраняются в проектном файле .dproj, откройте текстовым редактором и исправьте
×
×
  • Создать...