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

Активность

Лента обновляется автоматически

  1. Вчера
  2. В манифесте создал intent-filter для обработки ссылок моим приложением, т.е. если пользователь например из мессенджера пытается открыть ссылку с моим доменом, то система предлагает выбор, открыть в приложении или в браузере. Связь с сервером я создал, манифест поправил. В версиях до Android 12 работает как надо (автоматически определяет мой домен), а вот начиная с 12 нет. Всегда открывает в браузере. В документации google есть обработка как спросить пользователя привязать ссылки к приложению, как сделать такой опрос в FMX? https://developer.android.com/training/app-links/verify-site-associations#request-user-associate-app-with-domain
  3. Последняя неделя
  4. CustomEditor не говорит? только едитор... один (1). если на много строк то что-то другое надо кастом дроу....
  5. Спасибо, но ровно то же самое, появляется только после 2х кликов
  6. type TSpinBoxEx=class(TSpinBox) protected procedure SetData(const Value: TValue); override; end; { TSpinBoxEx } procedure TSpinBoxEx.SetData(const Value: TValue); begin if Value.IsType<string> then Self.Value := StrToFloatDef(Value.AsString,0) else inherited SetData(Value); end; procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin if Column.Index=1 then Control:=TSpinBoxEx.Create(self); end;
  7. Razmir

    SpinBox не отображается в TColumn

    Всем доброго, вопрос такой.RAD Studio 11.2 Нашел как создать свой тип ячейки таким образом: type TSpinBoxCell = class(TSpinBox) private ............................... protected constructor Create(AOwner: TComponent); override; end; ............................... constructor TSpinBoxCell.Create(AOwner: TComponent); begin inherited; ............................... end; procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var XSpin: TSpinbox; begin if Column.Index=5 then begin XSpin:= TSpinBoxCell.Create(nil); XSpin.TagObject := Column; XSpin.text:='1'; Control := XSpin; end; end; Проблема в том, что spinbox не отображается пока не кликнешь по ячейке 2 раза, ну и после перехода на другую ячеку он опять исчезает и соответственно не видно результата. Что надо сделать, чтобы это исправить? Заранее благодарю.
  8. Доброго времени суток. Иной раз "лучше поздно, чем никогда". Тоже недавно столкнулся с этой проблемой (некорректная работа UPPER в SQLite). При поиске наткнулся на эту статью: https://habr.com/ru/sandbox/98493/ Автор, к сожалению, неизвестен. Но на ее основе удалось сформировать несколько функций в среде Delphi. Если кому-то поможет - буду рад. См. здесь: https://roamer55.ru/main_programming/delphi/delphi_10_2_vcl/d10_funcs_db/d10_funcs_db_sqlite/d10_funcs_db_sqlite_upper/
  9. Доброго времени суток. Иной раз "лучше поздно, чем никогда". Тоже недавно столкнулся с этой проблемой (некорректная работа UPPER в SQLite). При поиске наткнулся на эту статью: https://habr.com/ru/sandbox/98493/ Автор, к сожалению, неизвестен. Но на ее основе удалось сформировать несколько функций в среде Delphi. Если кому-то поможет - буду рад. См. здесь: https://roamer55.ru/main_programming/delphi/delphi_10_2_vcl/d10_funcs_db/d10_funcs_db_sqlite/d10_funcs_db_sqlite_upper/
  10. По первой ошибке необходимо в файле dx.bat из AndroidSDK отредактировать последнюю строку. Поменять -Djava.ext.dirs= на --class-path=. Должно выглядеть вот так - call "%java_exe%" %javaOpts% --class-path="%frameworkdir%" -jar "%jarpath%" %params% Это несовместимость новых версий jdk c jdk8, которая используется RAD Studio
  11. Ещё раньше
  12. Ну у вас в настройках sdk API-Level location версии 26, а был наверное 29 и выше вот ошибки и небыло
  13. Да, этот параметр там есть, но не понятно почему раньше ошибки не было? AndroidManifest.xml я не редактировал. Этот файл как я понял в папке с приложением всегда есть.
  14. Нигде в деплоймент не указана внешняя память ??????? Вообще то requestLegacyExternalStorage это параметр у вас в AndroidManifest.xml
  15. Нигде в деплоймент не указана внешняя память
  16. android-26 requestLegacyExternalStorage в Added in API level 29
  17. Всем доброго времени! Никак не получается решить проблему с компиляцией андроид приложения в Delphi 10.4. После установки VisualStudio с Xamarin в Delphi 10.4 при копмиляции начали сыпаться ошибки. Можект кто сталкивался? [PAClient Error] Error: E2312 Unable to execute '"C:\Users\Public\Documents\Embarcadero\Studio\21.0\CatalogRepository\AndroidSDK-2525-21.0.40680.4203\build-tools\28.0.2\aapt.exe" package -f -M "D:\!Delphi\2022_10.4\Android\Debug\Project1\AndroidManifest.xml" -F "D:\!Delphi\2022_10.4\Android\Debug\Project1\bin\Project1-unsigned.apk" -I "C:\Users\Public\Documents\Embarcadero\Studio\21.0\CatalogRepository\AndroidSDK-2525-21.0.40680.4203\platforms\android-26\android.jar" -S "D:\!Delphi\2022_10.4\Android\Debug\Project1\res" -A "D:\!Delphi\2022_10.4\Android\Debug\Project1\assets" "D:\!Delphi\2022_10.4\Android\Debug\Project1\library" "D:\!Delphi\2022_10.4\Android\Debug\Project1\classes"' (Error 1) [PAClient Error] Error: E2312 D:\!Delphi\2022_10.4\Android\Debug\Project1\AndroidManifest.xml:20: error: No resource identifier found for attribute 'requestLegacyExternalStorage' in package 'android'
  18. 0. нафега лишние преобразования image? 1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0 2. streamы надо иногда перематывать... position=0
  19. Добрый день. Пытаюсь загрузить изображение в базу MySql, в итоге загружается лишь часть изображения (в вложении слева оригинал, справа что загрузилось). Что в коде сделано неправильно? var fs:TMemoryStream; begin Im_cert.Bitmap.Assign(image); try Fauthorization.Uq.SQL.Clear; Fauthorization.Uq.SQL.Add('insert u1133772_default.certificates'); Fauthorization.Uq.SQL.Add('(id_o_u,attachment ) VALUES ( '); Fauthorization.Uq.SQL.Add('''' + id_user + ''', '); Fauthorization.Uq.SQL.Add(':image)'); fs := TMemoryStream.Create; Im_cert.Bitmap.SaveToStream(fs); Fauthorization.Uq.Params[0].LoadFromStream(fs, ftBlob); Fauthorization.Uq.ExecSQL; fs.Free; Fauthorization.Uq.Active := false; showmessage('Загружено'); Если поставить Fauthorization.Uq.Params[0].Assign(image); происходит аналогично. Если fs_on:=Tfilestream.Create(opendialog1.filename,fmOpenRead); Fauthorization.Uq.ParamByName('image').LoadFromStream(fs_on,ftBlob); То все загружается нормально, но нужно загрузить bitmap не по названию файла.
  20. Привет всем. Отправляю SMS из своего преложения: Procedure _SendSMS (Target, Messagestr :String); Var smsManager :JSmsManager; smsTo :JString; begin smsManager := TJSmsManager.JavaClass.getDefault; smsTo := StringToJString(target); smsManager.sendTextMessage(smsTo, Nil, StringToJString(messagestr), Nil, Nil); End; Отправляется и приходит нормально. Шас смотрю в content://sms/sent Uri := StrToJURI('content://sms/sent'); Cursor := SharedActivity.GetContentResolver.query(Uri, Nil, Nil, Nil, Nil); Date_SentIdx := Cursor.GetColumnIndex(StringToJstring('date_sent')); StatusIdx := Cursor.GetColumnIndex(StringToJstring('status')); While (Cursor.MoveToNext) Do Begin Date_Sent := JStringToString(Cursor.getString(Date_SentIdx )); Status := Cursor.getInt(StatusIdx); End; и есть большая проблема - в поле date_sent всегда пусто Если отправляю на несушествуюшии номер, то даже в поле status всегда -1. Если тож само отправляю в телефоне из стандартного приложения, то нормально - date_sent с датои, и status с кодом заполнен если номер несушествуюшии... Android 7.0 Delphi 10.4.2 Android API Level вроде как 24 Есть идеи как ето лечить? WBR Janex
  21. я замечаю логику во время создания "FormCreate"и создания, все происходит в голове, как ты сказал. Действительно, Спасибо!
  22. Вид выбора вы указали в момент клика. В момент рисования вас это не волнует абсолютно. Чтобы получить помощь, приложите уже свой код. Пока что мы обсуждаем неизвестно что.
  23. Спасибо за объяснение! Но я решил использовать ListView1.Selected, потому что мы должны указать вид выбора. Но, как вы и предположили, я заменил весь свой код, и теперь ничего не выбрано, ничего не появляется. .это безумие, но я знаю, что если я буду упорствовать, я пойму свои недостатки и буду прогрессировать.
  24. Не используй много форм: одна форма - много фреймов
  25. Забыл указать. Мерцание только на Андроиде. (разные версии от 10-й до 12-той)
  26. Уважаемые эксперты, столкнулся с неприятным мерцанием форм на показе и деактивации после перехода на Александрию 11. Раньше такого не было. Сейчас создал пустой тестовый проект чтобы проверить. procedure TForm1.Button1Click(Sender: TObject); var AForm: TForm1; begin AForm := TForm1.Create(nil); AForm.Show; //мерцание тут OR AForm.ShowModal(procedure(ModalResult: TModalResult) //мерцание тут begin //AForm.Free; end); end; procedure TForm1.Button2Click(Sender: TObject); begin ModalResult := mrOk; //мерцание тут OR Hide; //мерцание тут Close; end; Формы пустые, пробовал разные заливки и что угодно. Оно мерцает и все! А на рабочем проекте просто показывается рабочий стол на полсекунды при любом показе/закрытии новой формы. Подскажите куда копать, не форумах не могу найти ничего.
  1. Загрузить ещё активность
×
×
  • Создать...