Равиль Зарипов (ZuBy)

специально для тех, у кого не получается пуши в iOS (10+)
следуя статье выполнить настройку проекта в консоли firebase
Рабочая связка Delphi Berlin Up2 + Xcode 8.1 (на момент написания была такая конфигурация и остается до сих пор такой)
Сегодня я собрал проект под iOS и выложил в АппСтор (проходит модерацию)
Вот скриншот с реального девайса, установленного через TestFlight
 

 
тыц

еще раз. Для windows подойдет вообще все что угодно, там диалоги вообще модальные.
В мобильных ОС используется ARC - автоподсчет ссылок. Почитайте.
При использовании Create(v), на форму начинает ссылаться компонент v, поэтому подсчет ссылок не дает ей самоубиться. Но это же говорит о том, что при закрытии она висит в памяти. Не особо страшно, но...
Если указать NIL, то форма будет убита сразу после выхода, и обращение к ней даст AV
Поэтому я и говорю, надо смотреть код. 

добавление Item'ов
for I := 0 to 20 do begin AItem := ListView1.Items.Add; with AItem do begin Text := 'Item Random ' + I.ToString; Detail := 'Detail for ' + Text; ButtonText := 'Custom Color'; Bitmap := Image1.Bitmap; end; ListView1.Adapter.ResetView(AItem); // fix TextButton ( TListViewTextButtonFix ) end; устраняем багу
procedure TForm1.ListView1UpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); begin TListViewTextButtonFix.Rendering(Sender, AItem, AHandled); // fix end; FMX.ListView.TextButtonFix.zip

версия для берлина
Раскраска ListView Кастомный цвет для определенного Item'a Отступы для разделителей  Определение Index'a верхнего Item'a Кол-во видимых элементов Показано как можно реализовать интерфейс день/ночь
ModernListView.rar
 

версия для Seatle ColorListView.zip
 
весь код для отрисовки кастомного цвета 
1) копируем себе и открываем FMX.ListView
2) Ctrl+F -> DrawItemsFill
3) Вставляем код
// отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... после
if FAlternatingColors and (AltIndex mod 2 = 1) then   FBrush.Color := FItemStyleFillAltColor; 4) Подключаем в своём проекте после стандартного FMX.ListView

Привет Всем!
Много тем на форуме про раскраску TListView, нашел в интернете решение и доработал его
Вот что получилось
   
LV_Helper.zip                                                                  ColorListView.zip
Доступно для Seattle
ListView1.SetColorItemSelected(TAlphaColorRec.Orangered); //выделенный ListView1.SetColorItemFill(TAlphaColorRec.Gray); // обычный цвет Item ListView1.SetColorItemFillAlt(TAlphaColorRec.Lightgrey); // альтернативный цвет Item ListView1.SetColorBackground(TAlphaColorRec.Black); // цвет самого TListView ListView1.SetColorItemSeparator(TAlphaColorRec.Lightgray); // Линия разделения Item'ов ListView1.SetColorText(TAlphaColorRec.Red); // Обычный текст ListView1.SetColorTextSelected(TAlphaColorRec.White); // выделенный текст ListView1.SetColorTextDetail(TAlphaColorRec.Yellow); // текст доп. инфы ListView1.SetColorTextHeader(TAlphaColorRec.Green); // текст заголовка ListView1.SetColorTextHeaderShadow(TAlphaColorRec.Lightgray); // тень текста   ListView1.SetColorButtonText(TAlphaColorRec.Orange); // цвет текста кнопки   ListView1.SetColorButtonTextPressed(TAlphaColorRec.Orangered); // цвет нажатой кнопки добавлено в Berlin
ListView1.SetColorPullRefresh(TAlphaColorRec.Orange); ListView1.SetColorPullRefreshIndicator(TAlphaColorRec.Orangered); ListView1.SetColorStretchGlow(TAlphaColorRec.Lime); ModernListView.rar

не используйте nil используйте Application
это легко проверить создайте вторую форму с параметром nil и закройте главную, выйдет ошибка.
а корректное завершение будет через Application
 
это справедливо для Windows

Как все запущено... deploy означает разместить на мобильном устройстве, изменения будут в файле на телефоне или планшете.
Посмотреть изменения можно или из программы, запросить 'select * from Tab_Parol', либо любой прогой из googleplay которая работает с sqlite.
Хотя нет, internal сторонними программами не посмотришь, надо из своей контролить.

А PopupMenu вообще в принципе на Андройде показывается?
Тут нужно самому рисовать менюшку. Например вот как-то так https://community.embarcadero.com/blogs/entry/creating-an-overflow-menu-on-android-463

Визуальные компоненты портят начинающих программеров...
Query_Parol - это что? DBTable? Тексты запросов в студию.
и транслитерация - плохой тон, почему бы не tbPassword?

Недостаток у ЛВ один (не один, но все же), не все умеют им пользоваться)
картинка там прекрасно растягивается, копайте свойства
 

Вот здесь почитай, возможно натолкнет на идею. http://fire-monkey.ru/topic/3601-фотография-стандартной-камерой-смартфона/?do=findComment&comment=25019
Здесь я получал реальный путь фотки, которая только что была сфотографированна.
Если нет идей, поищи как это сделано на Java для Android и адаптируй на Delphi - мы с этим тоже поможем..

Вы можете перевести "invalid class type cast"? можно использовать, например, любой онлайн переводчик...(google, яндекс)

вам знакомо non-blocking dialogs? курим мануальчик

тогда этот вариант не вариант ))
тогда можно воспользоваться наработками ZuBy FMX.NativeView
там есть возможность выводить окошки с собственным текстом кнопок. вот только найти не могу, где он это публиковал. вот такое можно выводить:

Приложение опубликовано в Google Play - https://play.google.com/store/apps/details?id=com.sinukeapps.locksmithery
Описывать изменения с последней здесь записи не буду, но работа по "допиливанию" ведется ))
Буду рад оценкам.

можно и хэш заменить
незнаю на сколько это оправдано вообще для приложении FMX...
когда публикуете приложении плей маркет предлагает методы защиты. не помню подробности, зайдите в консоль и почитайте

У TMS есть готовое решение: TTMSFMXSignatureCapture

Вот еще видео можно глянуть:  
Tutorial: Finger Writer with FireMonkey (Delphi DX10.1 Berlin) on Win10, OSX, iOS
Tutorial: Signatur Capture in Firemonkey XE5 (Delphi XE5) on Win, iOS and Android

procedure TForm1.FormCreate(Sender: TObject); var i: integer; aRectangle: TRectangle; aLabel: TLabel; aButton: TButton; begin VertScrollBox1.BeginUpdate; try for i := 1 to 30 do begin aRectangle := TRectangle.Create(VertScrollBox1); aRectangle.Parent := VertScrollBox1; aRectangle.Align := TAlignLayout.Top; aRectangle.Height := 60; aRectangle.Margins.Left := 10; aRectangle.Margins.Top := 15; aRectangle.Margins.Right := 15; aRectangle.TagString := 'Rectangle' + i.ToString; aLabel := TLabel.Create(VertScrollBox1); aLabel.Parent := aRectangle; aLabel.Align := TAlignLayout.Client; aLabel.Text := 'Label' + i.ToString; aLabel.Margins.Left := 10; aLabel.TagString := 'Label' + i.ToString; aButton := TButton.Create(VertScrollBox1); aButton.Parent := aRectangle; aButton.Align := TAlignLayout.Right; aButton.Text := 'Button' + i.ToString; aButton.TagString := 'Button' + i.ToString; aButton.Margins.Top := 5; aButton.Margins.Bottom := 5; aButton.Margins.Right := 10; end; finally VertScrollBox1.EndUpdate; end; end;  

Да. Если не хотите менять стандартные стили, то лучше использовать ListView c плиточным отображением, о котором писал Равиль в первом посте. Тем более, что в Ваших объявлениях (айтемах) должно отображаться много других полей.
Возможно, Вы сами сможете сделать такой вывод, ознакомившись с ранее обсуждавшимися темами:
 
 
 

Основные отличия:

TImageControl - при клике на нем во время выполнения десктоп-приложения открывается диалоговое окно открытия файла, где можно выбрать картинку для отображения в ImageControl. Отображаемая картинка автоматически масштабируется под размеры контрола.

TImageViewer  - наследник от TCustomScrollBox и имеет встроенные скроллбары. На десктопах изображение может смещаться с помощью мыши и масштабироваться  (колесиком мыши). Также в демках, идущих с RAD, есть пример как масштабировать изображение с помощью жестов на устройствах с тачскрином.  

Из стандартных иконку отображают: listboxitembottomdetail, listboxitemleftdetail, listboxitemnodetail, listboxitemrightdetail.
 
tstListbox1.zip

Тогда стандартные стили Вам не подойдут. Создавайте свой стиль для ListBoxItem на базе стандартного или "с нуля". Тут описано как это можно сделать.

Вот подправил пример. Создал mylistboxitemstyle в котором только 2 элемента - text и image. Этот стиль загружен в StyleBook1 и указан в Listbox1.DefaultItemStyles.ItemStyle. Можете редактировать этот стиль прямо в StyleBook, добавляя новые элементы и располагая их как Вам нужно.

 
tstListbox1.rar

вместе со студией идёт демка ScrollableForm, делайте по аналогии