kvantum

Здравствуйте ! 

TListBox заполняется посредством добавления к нему TListBoxItem:

LBI := TListBoxItem.Create(ListBox);
...
ListBox.AddObject(LBI);

Как из ListBox извлечь его ListBoxItem, находящийся на i-позиции ?

К сожалению, свойства Objects TListBox не имеет, как это было в стандартном делфи.

Стили лежат тут "C:\Users\Public\Documents\Embarcadero\Studio\14.0\Styles", там есть папки "Android", "iOS".

Также все стандартные стили можно вытащить из "Bitmap Style Designer", как это сделать, читайте в разделе "Стили", например в теме "Где взять стандартный стиль в FireMonkey для iOS и Android, используемый по умолчанию?"

В том и дело, что стиль Light, который лежит у меня в данной папке, не содержит стилей для TListHeader и TSearchBox...

Но в целом направление понятно, спасибо большое !

В стилях для мобильных платформ дерево выглядит так:

Поделитесь пожалуйста стилями, если не затруднит.

В стиле, который вы подключаете, не прописаны свойства отображения для "ListBoxHeader1".

Возможное решение: прописать эти свойства или взять другой готовый стиль, с прописанными свойствами.

Какие Layout в стиле соответствуют ListBoxHeader и SearchBox ? Я не нашел. И потом ... в StyleLookup этих компонентов ничего не прописано.

Здравствуйте ! 

На форме есть TListBox, содержащий TListBoxHeader, TSearchBox и несколько TlistBoxItem.

В StyleBook1 загружен стандартный стиль LIght Или любой другой из ...\Documents\Embarcadero\Studio\14.0\Styles

Если свойство StyleBook формы приложения пусто - элементы списка отображаются корректно.

Если свойство StyleBook = StyleBook1, в который загружен глобальный стиль Light - элементы TListBoxItem списка "заезжают" под TListBoxHeader и TSearchBox.

Прошу посоветовать, как решить проблему. 

Example.zip

 

Вам необходимо просто указать путь до базы и всё должно заработать. (Посмотрите примеры, на которые я дал вам ссылку и всё станет понятно)

Пример для пути "assets\internal":

procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  FDConnection1.Params.Values['Database'] := 
      TPath.Combine(TPath.GetDocumentsPath, 'shoplist.s3db');
  {$ENDIF}
end;

 

Вам необходимо просто указать путь до базы и всё должно заработать. (Посмотрите примеры, на которые я дал вам ссылку и всё станет понятно)

Пример для пути "assets\internal":

procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  FDConnection1.Params.Values['Database'] := 
      TPath.Combine(TPath.GetDocumentsPath, 'shoplist.s3db');
  {$ENDIF}
end;

Спасибо большое ! 

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  SQLConnection.Connected:=true;
end;

На платформе Win32 все работает. Как правильно отдиплоить проект под Андроид ? На приведенном скришоте я включил файл БД в деплой-список.

НЕ смотря на то, что файл БД включен в список Deploy, при подключении к БД из приложения возникает сообщение "unable to open database file". Прошу помочь ! 

DBConnect.zip

О, шаманство !!! Спасибо большое, всё работает !

Загружать глобальный стиль в TStyleBook из файла при инициализации программы не нужно ? 

Здравствуйте ! 

В TStyleBook созданы стили для TLisboxItem и TListBox. При компилировании приложения для Win32 созданные стили видны, при компилировании приложения под Андроид стили заменяются на дефолтные.

Как перенести пользовательские стили на Андроид - платформу?

CustomStyle.zip