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

x11

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

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

  • Посещение

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

    13

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

  1. Решил проблему так: добавил пару строк while r.Res = mrNone do // wait for modal result Application.ProcessMessages; и получилось: function myInputQuery(const Caption, Text, AVal: String): TInputQueryResult; Var val: array of string; r: TInputQueryResult; begin SetLength(val, 1); val[0] := AVal; TDialogService.InputQuery(Caption, [Text], Val, procedure(const AResult: TModalResult; const AValues: array of string) begin case AResult of mrOk: begin R.Res := mrOk; R.OutV:= AValues[0]; end; mrCancel: begin R.Res := mrCancel; R.OutV:= ''; end; end; end ); while r.Res = mrNone do // wait for modal result Application.ProcessMessages; result := r; end; Я надеюсь, это нормально или это плохо?
  2. Пока всё было внутри модуля формы и внутри локальной процедуры, то запись добавлялась в таблицу. Решил сделать обёртку и перенёс код в общий модуль, чтобы использовать в других местах. На винде, всё норм, а на смартфоне ошибок нет, но запись не добавляется. type TInputQueryResult = record Res: TModalResult; OutV: string; end; ... ... ... function myInputQuery(const Caption, Text, AVal: String): TInputQueryResult; Var val: array of string; r: TInputQueryResult; begin SetLength(val, 1); val[0] := AVal; TDialogService.InputQuery(Caption, [Text], Val, procedure(const AResult: TModalResult; const AValues: array of string) begin case AResult of mrOk: begin R.Res := mrOk; R.OutV:= AValues[0]; end; mrCancel: begin R.Res := mrCancel; R.OutV:= ''; end; end; end ); result := r; end; Использование procedure TfmReference.actInsertExecute(Sender: TObject); Var sTableName, cap: string; res: TInputQueryResult; begin cap := comboRefType.Items[comboRefType.ItemIndex]; res := myInputQuery(cap, 'Добавить: ', ''); if res.Res = mrOk then begin if not res.OutV.IsEmpty then begin sTableName := GetTableName; sqlInsert.sql.Text := Format('Insert into %s (name) values(' + QuotedStr(res.OutV) + ')', [sTableName]); sqlInsert.Execute; if sqlInsert.Transaction.Active then sqlInsert.Transaction.Commit; actRefreshExecute(nil); end; end; end;
  3. В среде выбирал Style - "Android" и "Windows", но свойство Text в приложении не видно, оно скрыто. А как только запустил приложение на смартфоне, то вижу текст и рядом картинку. Т.е. как бы несоответствие.
  4. А какой это нужный? В списке нет ничего, связанного с image. А listboxitemstyle не помогает.
  5. у ListBox есть свойство DefaultItemsStyles.Itemstyle и я там выбрал listboxitemstyle Я так подумал, что один раз указал и хватит, каждому Item`у отдельно не нужно. А в справке пояснений нет.
  6. ну странно, что разработки запретили
  7. Если выключить HitTest, то под картинкой можно добавлять кнопку или меню для действий с картинкой.
  8. Хочу реализовать прокрутку фото с помощью TListBox. Пока что в дизайне добавил пару Item и кинул на них TImageViewer, ну и картинку туда вставил. В свойстве TListStyle указал Horizontal. На Windows не листается мышкой влево/вправо, но есть хотя бы полоса прокрутки внизу. На андроид-устройстве и не листается, и полосы прокрутки нет вообще. Это связано с этим вопросом http://fire-monkey.ru/topic/4301-выводотображение-нескольких-картинок-на-форме
  9. Странно получается. В конфигурации release я вижу, что в колонке "Local path" указан относительный путь к файлу, а в конфигурации debug указан тот же файл с абсолютным путём. В данном случае мну удобнее было бы использовать относительный путь, вдруг путь к папке проекта поменяется.
  10. В Deployment есть колонка "Local path" как там отредактировать данные? Delphi 10.1
  11. А вот если я кидаю на ListBoxItem компоненту TImageViewer и в неё загружаю картинку, то она отображается. Не будет ли это накладно по ресурсам, если будет 5-10 картинок?
  12. Решил попробовать использовать TListBox. В дизайне загрузил в свойство ItemData.Bitmap картинку, но картинка не отображается. ЧЯДНТ? Или ItemData.Bitmap не для отображения картинок?
  13. esegece - платные, просто идут в Delphi из коробки, + исходников нет, т.е. если нужна полная версия, то придется покупать.
  14. x11

    Добавить SDK 21

    Как всё запутано пока ничего не понял
  15. x11

    Добавить SDK 21

    Я думал, что SDK 25 - это и есть версия API - 25.
  16. x11

    Добавить SDK 21

    Нет, не каждый раз. Запустил Android SDK Manager, скачал нужные SDK и хочу их в Студию добавить.
  17. x11

    Добавить SDK 21

    Добавленную куда? У меня скачано несколько SDK: 21, 24, 25, 26. Не помню как, мне удалось в настройках Delphi добавить 25ю (или 24ю). Потом я скачал 21 и 26. И как мне их добавить?
  18. x11

    Добавить SDK 21

    Выбираю 26 - ошибка та же.
  19. x11

    Добавить SDK 21

    Всё равно та же ошибка. Выбираю 21, а мне пишет "A SDK Android SDK 25.2.5 32bit already exists"
  20. x11

    Добавить SDK 21

    аааа, слона-то я и не заметил ))) справа не обратил внимание на полосу прокрутки, а внизу еже есть список выбора Спасибо
  21. Попробовал запустить в режиме отладки. Step over - офигеть как медленно...
  22. Всё, получилось. Переподключил смартфон. Смартфон выдал ключ, я выбрал "всегда доверять этому компьютеру". Теперь всё норм.
  23. Удалил HTC Sync Manager. Теперь: List of devices attached FA3BBWG01738 unauthorized
×
×
  • Создать...