master webs

также сделана паджинация  смысл в чем   если список пустой отправляю на сервер exemple.com/limit/0-20 
 вытаскиваю первые  20 записей  при следующем запросе  поскольку я знаю количество строк в списке  меняю 0  на количество итемов и таким образом вытаскиваю следующие  20 записей
для перестраховки в основном конфиге можно хранить общее количество записей в бд чтобы знать когда  достигнут конец списка
такой момент я так понял вы очищаете ListView но в принципе насколько я заметил при такой подгрузке тормозов нет даже со списком  около 5000 итемов
p/s такой варинт кстати должен подойти даже если подгружать по частям  так как в место  0 можно указывать id записи в базе и подгружать после  нужное количество
или до id - нужное количетво
PP/S: самое трудное было разработать правильную структуру API на сервере  если серверная часть сделана логически правильно. Написать  обработку в проекте намного проще процентов на 80 ))

для ios достаточно прописать в .plist  прописал руками все заработало.
 iOS9Fix в berline не работает 
документацию по Custom Fonts не нашел  хотя тоже читал что есть такая возможность

Edit1.Anchors := [TAnchorKind.akTop, TAnchorKind.akRight];  

windows 10 64x
ссылка на инсталятор https://www.embarcadero.com/ru/products/rad-studio/thank-you

ставил через веб инсталятор все нормально поставилось
скачивал на офф сайте

windows 10 64x
ссылка на инсталятор https://www.embarcadero.com/ru/products/rad-studio/thank-you

procedure OpenGPSSettings; // uses Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers, Androidapi.JNI.Provider; {$IFDEF ANDROID} var Intent: JIntent; {$ENDIF} begin {$IFDEF ANDROID} Intent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS); TAndroidHelper.Activity.startActivity(Intent); {$ENDIF} end;  

попробуйте вот так
procedure FontAwesomeApply(const Control: TControl); var i: Integer; begin if Control is TControl then begin FontAwesomeAssign(TControl(Control)); if Control is TStyledControl then TStyledControl(Control).ApplyStyleLookup; end; for i := 0 to Control.ControlsCount - 1 do FontAwesomeApply(Control.Controls[i]); end;  

Шаблон проекта с кастомным шрифтом FontAwesome
Намного удобней и менее затратно использовать Шрифт с Иконками, чем заботиться о качестве картинок, скейлах, их хранении и загрузке
Поэтому давно перешел на шрифты, пару скриншотов (без использования картинок)

Seattle CustomFont.7z
Berlin CustomFont(Berlin).zip
 
WINDOWS/MACOS - установить шрифт в систему
IOS - в деплой добавить шрифт и с помощью IOS9Fix прописать в .plist следующее:
ANDROID - в деплой добавить шрифт (Remote Path -> assets\internal) и подключить к проекту измененные файлы FMX.FontGlyphs.Android.pas, FMX.FontGlyphs.pas

в теме начали сравнивать Visual Studio, Lazarus
месяц назад купил prof версию и не желею есть подписка на год , если человек  занимается разработками отбить затраты не сотавит труда хотите  бесплатно качайте Android Studio и x-code

кстати у меня приложение на фреймах главная форма всегда пустая и фреймы подгружаю динамически нет никаких проблем и загрузка приложения намного быстрее 

Шаблон для проектов с покраской статус бара для мобильных платформ
   
UPDATE: StatusBarColor.7z
UPDATE2: StatusBarColor_update.zip
 

Elite Developers – Show us your Cool Apps! Join our club of elite developers by showcasing your app and enter to win $2,000 in Embarcadero Credits!
How does it work? 1) Submit a title for your cool app 2) Provide a description for your submission 3) Share your short video URL or request a recording (Date & Time) 4) MVPs & Embarcadero Evangelists vote 5) Winner each month - $2,000 toward any of our products  
This contest awards prizes and showcases cool applications built using Embarcadero's RAD Studio, Delphi and C++Builder. We are looking for cool applications across all industries including personal use, using any type of application you can build with our products. Your cool app can use VCL, FireMonkey, DataSnap, EMS, FireDAC, InterBase and any other components, libraries, services, sites, infrastructures, APIs, devices and other capabilities.
  As part of your contest entry, we want you to create a 5 minute video (or please request a date/time with David I and/or Jim McKeeth for a recording session and we'll help you) that shows your cool code, UI, technology, component use, architecture, algorithms, data structures, unique solution to a problem, business solution, game, world changing idea and any other app that you want to show off.   The contest will be an ongoing monthly contest so there is no specific deadline for submission. We will be giving each monthly winner a $2000 coupon that can be used towards the purchase of Embarcadero products from our shop site  (starting May 1, 2016), while the contest is running.  In addition, we will highlight the winning submission on our YouTube channel along with other submissions so that your fellow Embarcadero community members will be able to admire your work.   You only need to submit your cool app once. Embarcadero developer relations team, Embarcadero software consultants and Embarcadero MVPs will vote each month to determine the monthly winner. Embarcadero employees are not eligible to enter the contest. Embarcadero MVPs are allowed to enter the contest but will not be allowed to vote for their own entry.   For examples of short application videos, check out the Digifort IP Surveillance System video by Eric Bonihla (Digifort) and the Visualizing Mathematical Functions video by Anders Ohlsson (Embarcadero MVP).

You can use any screen recording software to create your 5 minute Cool App Contest video. At Embarcadero we use Camtasia for Windows and Camtasia for Mac by TechSmith (they have trial versions available if you are interested). TechSmith has tutorials available for Camtasia for Windows and Camtasia for Mac. Your video should be recorded and rendered at or near 1920x1080 resolution. Please make sure that your IDE editor’s text font size is set to 12 point or larger (David I likes to use Lucida Console 14 point).   If you intend to enter, please use the submission form (short survey) to tell us about your Embarcadero Cool App. Bookmark this survey page URL and start your cool app entry (or entries) today and then update your submission(s) when you have completed your video or want to request a date/time with us for a recording session.   The submission (Survey Monkey) form can be found at https://www.surveymonkey.com/r/V99D7YR   We like all types of applications – desktop, mobile, server, cloud, personal, professional, industrial, etc.  There is no limit to the type of application, except that it must be a cool app. The app does not have to be a for sale app. The app does not have to be open source based.  The app can be used inside a company or delivered to specific users.  The app just has to be wonderful. There are no other rules except what is in the email, what is in the submission/survey form header and the final question that has you put your name, email and company to give us permission to publicly showcase your app (whether it wins a monthly prize or not) and to use some or all of the textual information and other information you provide as part of us showing your cool app video to the world. We look forward to seeing all of the cool apps our Embarcadero community members have built!
If you have any questions or need additional information, please contact me.   David Intersimone "David I" davidi@embarcadero.com   Просмотр полной статьи

Fonepad
Fonepad 7
Fonepad 8
Fonepad ME371MG
Fonepad Note 6
Lenovo Mobile K900
Lenovo TAB S8
MeMO Pad 7
MeMO Pad 8
MeMO Pad FHD 10
MeMO Pad ME181CX
Transformer AiO P1801 P1801-T
Transformer AiO P1802 P1802-T
Transformer Pad (TF103C) K010
Transformer Pad (TF103C) K010_3
Transformer Pad (TF103CE) K010E
Transformer Pad (TF103CE) K010E_1
Transformer Pad (TF103CG) K018
Transformer Pad (TF303CL) K014
Transformer Pad (TF303K) K01B
Transformer Pad Infinity (TF701T) K00C
Transformer Pad Infinity TF700KL
Transformer Pad K010_1
Transformer Pad TF300T TF300T
Transformer Pad TF300TG TF300TG
Transformer Pad TF300TL TF300TL
Transformer Pad TF502T TF502T
Transformer Pad ‏(TF103C)
Transformer Pad ‏(TF103CG)
Transformer Pad ‏(TF303CL)
Venue 7
VivoTab Note 8 ‏(M80TA)
Xolo_X900
ZenFone 2 (ZE500CL) ASUS_Z00D
ZenFone 2 (ZE550ML) Z008_1
ZenFone 2 (ZE551ML) Z00A
ZenFone 2 (ZE551ML) Z00A_1
ZenFone 2 ‏(ZE550ML)
ZenFone 2 ‏(ZE551ML)
ZenFone 4 (A400CG) ASUS_T00I
ZenFone 4 (A450CG) ASUS_T00Q
ZenFone 4 ‏(A400CG)
ZenFone 4 ‏(A450CG)
ZenFone 5 (A500CG) ASUS_T00F1
ZenFone 5 (A501CG) ASUS_T00J1
ZenFone 5 (A502CG) ASUS_T00K
ZenFone 5 ASUS_T00F
ZenFone 5 ASUS_T00J
ZenFone 5 ‏(A501CG)
ZenFone 5 ‏(A502CG)
ZenFone 6 (A600CG) ASUS_T00G
ZenFone 6 (A601CG) ASUS_Z002
ZenFone 6 ‏(A600CG)
ZenFone C (ZC451CG) ASUS_Z007
ZenFone C ‏(ZC451CG)
Zenfone Go (ASUS_Z00SD) ASUS_Z00SD
Zenfone Go (ASUS_Z00VD) ASUS_Z00VD
Zenfone GO ASUS_X013D_1
Zenfone GO ASUS_X013D_2
Zenfone GO ASUS_X014D_1
Zenfone GO ASUS_X014D_2
Zenfone MAX (ZC550KL) ASUS_Z010
ZenFone Selfie (ZD551KL) ASUS_Z00U_1
ZenFone Selfie (ZD551KL) ASUS_Z00U_2
ZenFone Zoom
ZenFone Zoom (ZX551ML) Z00X
ZenFone Zoom (ZX551ML) Z00X_1
ZenFone Zoom ‏(ZX551ML)
ZenPad 10 (Z300C) P023_1
ZenPad 10 (Z300C) P023_2
ZenPad 10 (Z300CG)  P021
ZenPad 10 (Z300CG) P021_1
ZenPad 10 (Z300CL) P01T_1
ZenPad 7.0 (Z370C) P01W
ZenPad 7.0 (Z370CG) P01V_1
ZenPad 7.0 (Z370CG) P01V_2
ZenPad 7.0 (Z370KL) P002_2
ZenPad 7.0(Z370KL) P002_1
Zenpad 8 LTE P024_2
Zenpad 8 LTE P024_3
Zenpad 8 LTE P024_4
Zenpad 8.0 (Z380C) P022_1
Zenpad 8.0 (Z380C) P022_2
Zenpad 8.0 (Z380KL) P024_1
ZenPad C 7.0 (Z170C) P01Z
ZenPad C 7.0 (Z170C) P01Z_2
ZenPad C 7.0 (Z170CG) P01Y
ZenPad C 7.0 (Z170CG) P01Y_2
ZenPad C 7.0 (Z170MG) P001
ZenPad C 7.0 (Z170MG) P001_2
ZenPad C 7.0 P01Y_S
ZenPad S 8.0
ZenPad S 8.0 (Z580C) P01M_2
ZenPad S 8.0 (Z580CA) P01M_1
ZenPad S 8.0 (Z580CA) P01M_3
ZenPad S 8.0 ‏(Z580CA)
 

TksChatView
component for building iOS style chat applications

Можно помучаться с TListView, но я остановился на TPresentedScrollBox и стилизованных Label'ах (облачки сообщений, под разные scale на png 9patch), скорость скролла хорошая, плюс есть боунсы и тд.
Приложил исходники проекта, также в архиве отдельно chat.style
procedure TForm2.ChatUp(UsID: integer; LastId: integer; CText: string); var   Labb: TLabel;   Marg: Single;   LT: TLayout; begin   LT := TLayout.Create(PR);   LT.Parent := PR.Content;   LT.Margins.Top := 2;   LT.Align := TAlignLayout.Top;   LT.Position.Y := PR.ContentBounds.Height + 50;   Marg := PR.Width * 0.20;   Labb := TLabel.Create(PR);   Labb.Parent := PR;   Labb.Align := TAlignLayout.Top;   Labb.AutoSize := True;   Labb.WordWrap := True;   Labb.TextSettings.WordWrap := True;   if UsID = 0 then   begin     Labb.Margins.Left := Marg;     Labb.Margins.Right := 4;     Labb.TextAlign := TTextAlign.Trailing;     Labb.StyleLookup := 'labelchat_green';   end   else   begin     Labb.Margins.Right := Marg;     Labb.Margins.Left := 4;     Labb.TextAlign := TTextAlign.Leading;     Labb.StyleLookup := 'labelchat_white';   end;   Labb.NeedStyleLookup;   Labb.Text := ' ' + CText + ' ';   LT.Height := Labb.Height + 4;   Labb.Parent := LT;   if UsID = 0 then     Labb.Align := TAlignLayout.Right   else     Labb.Align := TAlignLayout.Left; end; Первые признаки шизофрении:

Chat.zip

Notification.SoundName

в демках компонента ListView  есть  пример  и тамже есть исходник

версия для 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

делал подобную загрузку картинки загружал на телефон при открытии списка товаров  или категории они загружались только 1 раз при повторном обращении проверял есть ли картинка если нет  загружал с сервера, скорость работы в разы  выше чем когда загрузка идет раз за разом 

procedure TFPreOrder.ListViewFill(LV: TListView; FDSource: TFDQuery; TextField, DetailField, TagField: string; IsClear: boolean); var i, index: integer;     item: TListViewitem; begin   if LV.Selected <> nil     then index:= LV.Selected.Index     else index:= -1;   if FDSource.IsEmpty then     begin //      ShowMessage('Нет данных!');       LV.Items.Clear;       exit;     end;   if IsClear then LV.Items.Clear;   try     LV.BeginUpdate;     for i:= 1 to FDSource.RecordCount do       begin         FDSource.RecNo:= i;         item:= LV.Items.Add;         item.Text:= FDSource.FieldByName(TextField).AsString;         item.Detail:= FDSource.FieldByName(DetailField).AsString;         item.Tag:= FDSource.FieldByName(TagField).AsInteger;       end;   finally     LV.EndUpdate;   end;   if index = -1 then exit;   if LV.Items.Count >= index then LV.ItemIndex:= index; end; я обычно так заполняю... ну TFDQuery на TFDMemTable только сменить
 
зы. ну и заполнение 
ListViewFill(ListView1, tbPreOrder, 'Name', 'Qty', 'GoodId', True);

Win 7, 64 бит, Офис 2003.
 
ваша ошибка думаю надо в сторону офиса копать )

самый простой вариант
 
procedure TForm1.FormResize(Sender: TObject);
begin
// Orientation
if (Height > Width) then
Label7.Text := 'Orientation: Portrait'
else if (Height < Width) then
Label7.Text := 'Orientation: Landscape';
end;
источник http://delphifmandroid.blogspot.com/2014/01/blog-post.html

Добрый день!
 
В теме про наш продукт http://fire-monkey.ru/topic/1519-1c-papyc-mobilnoe-prilozhenie-dlia-masterov-priemschiko/ меня просили поделиться исходным кодом компонента TabControl с поддержкой слайда табов пальцем. С удовольствием делюсь
В составе архива сам компонент и пример его использования.
FMXUI.zip