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

Hevard

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

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

  • Посещение

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

    8

Весь контент Hevard

  1. Бог мой, что стало с новым поколением? Ни читать, ни писать, ни думать... только - дайте! RAD Studio это среда разработки , в её компетенции не входит определять, под какое устройство Вы собираетесь кропать свой код. UniversalAdbDriverSetup.zip
  2. Выше добавил ещё книжку, для вообще начинающих... Но, думаю, не лишняя, судя по некоторым вопросам. P.S.: не забывайте "благодарить" и "голосовать". Теме полезно, мне приятно.
  3. MessageDlg (C++) - RAD Studio Code Examples (embarcadero.com) void __fastcall TForm4::Button1Click(TObject *Sender) { UnicodeString errorText = "This is a sample message for an error"; MessageDlg(errorText,mtError,mbAbortRetryIgnore,0); }
  4. Неужели так сложно не ссылки кидать, а приложить файлы? Среда разработки Delphi 10.3.pdf Delphi. Программирование для Windows, OS X, iOS и Android [2014].pdf Мобильная разработка в delphi.pdf Программирование_на_Delphi_для_школ.pdf
  5. В диалогах текст кнопок на английском, цвет радио-кнопок Emerald... Зачем тогда эти файлы string.xml и colors.xml!? Есть ли возможность менять вводные при помощи данных файлов, не редактируя FMX.Consts и без применения TStyleBook?
  6. Я обычно "сверху" ставлю UniversalAdbDriverSetup.zip
  7. Интересно, но проект увеличился на 2 мБ в версии 11.3
  8. Для переноса (компилирования) проектов из более ранней версии необходимо провести действия для Android 32-bit и Android 64-bit. В окне Projects (справа) выбрать Target Platforms -> Правой кнопкой щёлкнуть по Libraries и выбрать Revert System Files to Default. И не забудьте перенести debug.keystore из c:\Users\<USER>\AppData\Roaming\Embarcadero\BDS\21.0\ в папку ...\22.0\ Delphi: Community Edition - Embarcadero
  9. Сам спросил, сам ответил: var PackageManager: JPackageManager; ApplicationInfo: JApplicationInfo; VersionPackage,PackageName, Name_APK: JString; begin // APK Version PackageManager := SharedActivity.getPackageManager; ApplicationInfo := SharedActivity.getApplicationInfo; PackageName := SharedActivityContext.getPackageName; VersionPackage := PackageManager.getPackageInfo(PackageName, 0).versionName; Name_APK := PackageManager.getApplicationLabel(ApplicationInfo).toString;
  10. Подскажите, а как "вытащить" название приложения? (label)? Не нашёл ни в getPackageInfo, ни в getApplicationInfo
  11. Сменил ноутбук, переустановил Embarcadero и столкнулся с подобной ошибкой. Благо, старый диск в наличии. Перенёс этот debug.keystore, всё наладилось.
  12. Использовал такой пример: procedure TForm1.Button2Click(Sender: TObject); var zip: TZipFile; PackageName: JString; begin // Отключаемся от базы test_connect.Connected := False; // Получаем имя apk файла PackageName := SharedActivityContext.getPackageResourcePath; if TFile.Exists(JStringToString(PackageName)) then begin // Удаляем старый файл базы TFile.Delete(TPath.GetHomePath + PathDelim + 'test.db'); // Извлекаем новый файл базы zip := TZipFile.Create; zip.Open(JStringToString(PackageName), TZipMode.zmRead); zip.Extract('assets/internal/test.db', TPath.GetDocumentsPath, False); zip.Close; zip.free; end else showmessage('False'); // Подключаемся к базе test_connect.Connected := True; end; (взято от сих: Delphi разработка под Android: Обновляем файл базы данных без перезапуска приложения (delphifmandroid.blogspot.com)) Суть проблемы была в том, что были изменения и в базе, и в приложении. Но все новые версии устанавливались без переустановки новых *.db файлов. Собственно, данным примером положение исправилось.
  13. Вам к психологу обратиться не мешало бы! Тоже мне, доктор Хаус очередной. А если отвечать на Ваш вопрос по теме, то без разницы - и там, и там можно сделать запись татуировкой.
  14. Подскажите, а в чём принципиальная разница между типизированным файлом и JSON? Как это влияет на сохранение небольшого количества данных и использование в дальнейшем? Для записи в типизированный файл не нужны дополнительные библиотеки, в отличии от использования JSON.
  15. Это самому расписывать координаты и якоря?
  16. Доброго дня! Есть динамический массив, который надо выгрузить в файл. Не могу понять, каким методом. Под Win делал так: ... AssignFile(IndexFile, 'DB\Index.tmp'); Rewrite(IndexFile); ... (в динамическом цикле) // Запись в файл Writeln(IndexFile,IntToStr(I)+', ' // номер по порядку +IntToStr(QNum)+', ' // номер вопроса +IntToStr(URes)+', ' // ответ +IntToStr(RAns)); // правильный ответ // Запись массива IndexData[I,1] := I; // I строка, 1 столбец - номер по порядку IndexData[I,2] := QNum; // I строка, 2 столбец - номер вопроса IndexData[I,3] := URes; // I строка, 3 столбец - ответ IndexData[I,4] := RAns; // I строка, 4 столбец - правильный ответ end; CloseFile(IndexFile); Параллельно возник ещё вопрос: А закрывать файл после записи не надо теперь? Не нашёл ничего похожего на CloseFile.
  17. Добрый день! В RAD есть шаблоны на 5" и на 7". Как приложение определяет дюймовку экрана? Есть 2 телефона: Разрешение (пикс): 1920x1080 (5.2") Разрешение (пикс): 2340x1080 (6.3") В первом - шаблон 5", во втором - 7" Как так получается?
  18. Всё верно. В этом примере используются тоновые звуки стандарта CDMA
  19. Деплоим в assets\internal\ файл звука (мр3 или ogg), размещаем на Форме компонент MediaPlayer1 и используем: procedure TMainForm.MakeSound; begin {$IFDEF ANDROID} MediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, 'Button.ogg'); MediaPlayer1.Play; {$ENDIF} end; К примеру: procedure TMainForm.Button2Click(Sender: TObject); begin //==================== ... ... MakeSound; //====================== end;
  20. Есть приложение, есть БД к нему. Опыта ноль, буду рад любым вариантам решения.
  21. Глаза сломал в HEX редакторе... Вопрос решился изменением типа поля (в SQLite Studio) с Text на RTL Text.
  22. Доброго дня! Не могу понять, откуда возникают пустые строки в списке? В самой ячейке таблицы SQLite текст выглядит как: ~ при обнаружении на пути или в тоннеле препятствия или неисправности, угрожающей безопасности движения; ~ при необходимости подать напряжение на контактный рельс; ~ при крушении поезда и в других случаях, когда требуется помощь; ~ при потере поездом тормозного эффекта, если создается угроза наезда на препятствие или людей; В Win приложении отображается корректно, а под Андроид - возникают разрывы между предложениями. (пункт 2 был написан в "одну строку"... )
  23. Я не пойму, а в каком моменте идёт подключение к базе? BeforeConnect прописан, но в коде не указано .Conneсt :=True;
  24. Выбрано было всё верно, но работает оно, как-то странно. Я закрыл проект, открыл снова и стиль применился. Не знаю, от чего это зависит... (Бывает, что Панель компонентов живёт своей жизнью. ) И параллельно возник ещё вопрос - как сделать тему в цвет платформы? В Win установлена тёмная тема, а приложение - светлое.
×
×
  • Создать...