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

x11

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

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

  • Посещение

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

    13

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

  1. Поднять такой же образ на виртуальной машине можно. Например, на BlueStacks. Ну и логировать конечно же можно. Например, logcat использовать. Вот есть целая тема: http://fire-monkey.ru/topic/55-средства-логирования-в-firemonkey/
  2. Я так понял, в примере нет ни header, ни footer?
  3. А что такое Adapter и с чем его едят? Что делает эта строка? Для чего она? item.Adapter.ResetView(item); В справке очень скудное и непонятное описание. И ещё про ResetView - что это и для чего? Когда применять? Спасибо.
  4. В сетке добавь поле, не привязанное к TDataSource. В этом поле и создавай переключатели. Примеров в сети валом.
  5. krapotkin, Вы хотя бы расскажите, в каком событии создаёте, а в каком заполняете Item`ы.
  6. Целый минифреймворк ради такой мелочи О_о
  7. Это всё равно уже ПОСТ-проверка. Потом начинаешь искать проблему, почему не грузится то или иное значение.
  8. Вот так делать, я считаю, нельзя FindObjectT<TListItemText>('T'); Что-то переименовал, удалил и забыл в коде поменять. И на этапе компиляции пропускаешь кучу ошибок.
  9. Опять вопрос по header/footer. Livebindibg видит хотя бы header, footer не видит. А как в коде туда что-то записать, я так и недопёр.
  10. Данные тянутся из базы и всё заполняется через LiveBinding. Item имеет разные метки, кнопки, картинку. Пришлось создать в SQL запросе новое поле из двух других, где данные на 100% уникальны и заполнять этим полем header. Кстати, LiveBinding подвал у Item`а не видит и непонятно как его заполнять.
  11. Так вот как отключить эту "группировку"?
  12. Наверное я не совсем понятно пояснил. Я имел ввиду, что в режиме DynamicApearance есть заголовок HEADER у всех Item`ом. Так вот если заголовок повторяется, то повторяющиеся заголовки не выводятся, а должны. На картинке "Заголовок3" повторяется 2 раза подряд, поэтому в красном прямоугольник название заголовка отсутствует, а оно должно быть в любом случае.
  13. А директива {$R *.dfm} где должна находиться?
  14. Всё встало на свои места. Объявление должно быть после implementation implementation {%CLASSGROUP 'FMX.Controls.TControl'} {$R *.dfm} Но я ручками ничего не переносил.
  15. а где должен быть {%CLASSGROUP 'FMX.Controls.TControl'} ? Экспериментировал и заметил, что у др. модулей данных объявление в другом месте
  16. Видать, надо это спрашивать у разработчиков FMX и/или Delphi.
  17. Если брать System.ImageList и нажать Сохранить, то System.ImageList автоматически добавляется в секцию USES.
  18. не знаю, не заметил... Я добавил в новый мультиплатформенный проект новый модуль данных. Кинул в него 2 ImageList Вот листинг Uses unit Unit2; interface uses System.SysUtils, System.Classes, System.ImageList, FMX.ImgList; я ничего руками не дописывал
  19. Вот полный текст pas файда модуля данных unit udmRepo; interface uses System.SysUtils, System.Classes, System.ImageList, FMX.ImgList; type TdmRepo = class(TDataModule) ImageList1: TImageList; imgListListView: TImageList; procedure DataModuleCreate(Sender: TObject); private { Private declarations } public procedure SetStyle; end; var dmRepo: TdmRepo; implementation uses FMX.Types, UDM, uShares, FMX.Dialogs, FMX.Styles, System.Types; {%CLASSGROUP 'FMX.Controls.TControl'} {$R *.dfm} procedure TdmRepo.DataModuleCreate(Sender: TObject); begin SetStyle; end; procedure TdmRepo.SetStyle; var aPlatformStyle, sStyle: String; aStyle: TFMXObject; begin aStyle := nil; if not dm.UniConnection1.Connected then try dm.UniConnection1.Connect; except on e:exception do begin ShowMessage('Ошибка подключения к базе: ' + sLineBreak + e.Message); exit; end; end;// try sStyle := dm.GetOption2Param(AppStyleParamName);// название стиля берем из базы if sStyle = 'Default' then begin sStyle := ''; exit; end; //если выбираем из ресурсов if sStyle <> '' then begin aPlatformStyle := constPlatform[TOSVersion.Platform] + sStyle; aStyle := TStyleStreaming.LoadFromResource(HInstance, aPlatformStyle, RT_RCDATA); aStyle.StyleName := sStyle; if not assigned(aStyle) then begin ShowMessage('Стиль не найден: ' + aPlatformStyle); exit; end; end;// if comboStyles.ItemIndex > 0 then TStyleManager.SetStyle(aStyle); end; end.
  20. Я же дал снимок - директив у второго датамодуля нет. Я создаю новый мультиплатформенный проект, добавляю в него новый модуль данных - проблем нет и Imagelist правильный. Но при добавлении проблемного модуля данных к этому проекту получаю ошибку, что свойства Source нет, а затем ошибку:
  21. У меня два датамодуля, во втором, именно, где и всплыла проблема, то же самое. Т.е. проблема в двух датамодулях.
  22. проверил - нет директив вообще никаких
  23. при создании нового всё отлично
×
×
  • Создать...