-
Постов
828 -
Зарегистрирован
-
Посещение
-
Победитель дней
13
Весь контент x11
-
Решил проблему так: добавил пару строк 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; Я надеюсь, это нормально или это плохо?
-
Пока всё было внутри модуля формы и внутри локальной процедуры, то запись добавлялась в таблицу. Решил сделать обёртку и перенёс код в общий модуль, чтобы использовать в других местах. На винде, всё норм, а на смартфоне ошибок нет, но запись не добавляется. 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;
-
В среде выбирал Style - "Android" и "Windows", но свойство Text в приложении не видно, оно скрыто. А как только запустил приложение на смартфоне, то вижу текст и рядом картинку. Т.е. как бы несоответствие.
-
А какой это нужный? В списке нет ничего, связанного с image. А listboxitemstyle не помогает.
-
Спасибо, помогло.
-
у ListBox есть свойство DefaultItemsStyles.Itemstyle и я там выбрал listboxitemstyle Я так подумал, что один раз указал и хватит, каждому Item`у отдельно не нужно. А в справке пояснений нет.
-
ну странно, что разработки запретили
-
Если выключить HitTest, то под картинкой можно добавлять кнопку или меню для действий с картинкой.
-
Хочу реализовать прокрутку фото с помощью TListBox. Пока что в дизайне добавил пару Item и кинул на них TImageViewer, ну и картинку туда вставил. В свойстве TListStyle указал Horizontal. На Windows не листается мышкой влево/вправо, но есть хотя бы полоса прокрутки внизу. На андроид-устройстве и не листается, и полосы прокрутки нет вообще. Это связано с этим вопросом http://fire-monkey.ru/topic/4301-выводотображение-нескольких-картинок-на-форме
-
Странно получается. В конфигурации release я вижу, что в колонке "Local path" указан относительный путь к файлу, а в конфигурации debug указан тот же файл с абсолютным путём. В данном случае мну удобнее было бы использовать относительный путь, вдруг путь к папке проекта поменяется.
-
В Deployment есть колонка "Local path" как там отредактировать данные? Delphi 10.1
-
А вот если я кидаю на ListBoxItem компоненту TImageViewer и в неё загружаю картинку, то она отображается. Не будет ли это накладно по ресурсам, если будет 5-10 картинок?
-
Решил попробовать использовать TListBox. В дизайне загрузил в свойство ItemData.Bitmap картинку, но картинка не отображается. ЧЯДНТ? Или ItemData.Bitmap не для отображения картинок?
-
esegece - платные, просто идут в Delphi из коробки, + исходников нет, т.е. если нужна полная версия, то придется покупать.
-
Я думал, что SDK 25 - это и есть версия API - 25.
-
Нет, не каждый раз. Запустил Android SDK Manager, скачал нужные SDK и хочу их в Студию добавить.
-
Добавленную куда? У меня скачано несколько SDK: 21, 24, 25, 26. Не помню как, мне удалось в настройках Delphi добавить 25ю (или 24ю). Потом я скачал 21 и 26. И как мне их добавить?
-
Всё равно та же ошибка. Выбираю 21, а мне пишет "A SDK Android SDK 25.2.5 32bit already exists"
-
аааа, слона-то я и не заметил ))) справа не обратил внимание на полосу прокрутки, а внизу еже есть список выбора Спасибо
-
Попробовал запустить в режиме отладки. Step over - офигеть как медленно...
-
Всё, получилось. Переподключил смартфон. Смартфон выдал ключ, я выбрал "всегда доверять этому компьютеру". Теперь всё норм.
-
Удалил HTC Sync Manager. Теперь: List of devices attached FA3BBWG01738 unauthorized