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

1) paserver'a можно оставить два
2) в XCode загрузить SDK для IOS 8.4
3) а вот с миграцией будет жопа, приготовьтесь

Привет Всем!
Много тем на форуме про раскраску 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

правильно понимаете и этот модуль кроссплатформенный.
прежде чем ставить сторонние компоненты убедитесь что такого модуля нет в Delphi.

правильно понимаете и этот модуль кроссплатформенный.
прежде чем ставить сторонние компоненты убедитесь что такого модуля нет в Delphi.

procedure LoadStyleByName(const StyleName: string); var   MyStyle: TFmxObject; begin   if FileExists(StyleName) then   begin     MyStyle := TStyleStreaming.LoadFromFile(StyleName); TStyleManager.SetStyle(MyStyle);   end; end; использовать так, если в ComboBox'e указаны имена
OnChange
LoadStyleByName('путь/'+ComboBox1.Items[ComboBox1.ItemIndex]);

procedure LoadStyleByPlatform; const {$IFDEF ANDROID} StyleName = 'ANDROID'; {$ENDIF} {$IFDEF MSWINDOWS} StyleName = 'WINDOWS'; {$ENDIF} {$IFDEF MacOS} StyleName = {$IFDEF IOS} 'IOS'; {$ELSE} 'MACOS';{$ENDIF} {$ENDIF} var MyStyle: TFmxObject; begin if (FindResource(Hinstance, PChar(StyleName), RT_RCDATA) <> 0) then begin MyStyle := TStyleStreaming.LoadFromResource(Hinstance, StyleName, RT_RCDATA); TStyleManager.SetStyle(MyStyle); end; end; вот так загружается стиль из ресурсов, для определенной платформы

для пионеров:
при регистрации берут некий набор символов + логин + пароль и  вычисляют от полученной строки хэш MD5 или SHA1, получают строку 32 символа (md5) и хранят её на сервере
для аутентификации пользователь вводит логин и пароль, опять генерируется хэш и передается на сервер, который ищет его у себя и отвечает есть такой или нет
 
отлов обращений из разных мест должен включать в себя идентификатор места. а вот с этим проблемы. у мобильных устройств такой ID есть... у десктопов можно считать что нет. хотя можно взять CPU ID + BIOS + ComputerName и тоже захешировать. IP брать нельзя, он для всей локальной сети одинаковый...

что-то типа этого?

demoLV.zip

что-то типа этого?

demoLV.zip

что-то типа этого?

demoLV.zip

что-то типа этого?

demoLV.zip

что-то типа этого?

demoLV.zip

Гребанный ListView!! Как сказал один мудрый человек, жизнь никогда не будет прежней! Спасибо! 

кто вам такую неправду поведал? киньте в него камень 
 
в OnUpdateObjects делаем AItem.Height:= random(150);

да
Control.StyledData['data'] := 'храним данные'; Control.StyledData['data2'] := 2;

ахах) что ещё можно придумать?)

На официальном сайте написано:
 
 
нет, на все популярные платформы 

Как вам такой вариант?
procedure TForm1.ListView1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin if ListView1.GetItemRect( ListView1.ItemCount-1 ).Bottom = ListView1.Height then       Label1.Text := 'YES! Через одно место, но работает!'    else       Label1.Text := 'Это еще не конец...'; end;

Ярослав,
дабы отблагодарить за работу по компонентам предлагаю вам сделать кошелек QIWI. 
и обязательно указать его в разделе описания версий.
 
Время на создание у вас займет 1 минуту, а радости гораздо больше будет )).
Donate вещь бескорыстная и не накладывает на вас обязательства...но хоть какая-то мотивация.
 

Добрый день,
 
Определить, что TListBox (TScrollBox) прокручен до конца можно используя событие OnViewPortPositionChange. Это событие вызывается каждый раз при прокручивании контента. Этот метод возвращает текущее положение ViewPort - позиция окна, в котором отображаются текущие элементы TListBox. Об этом подробно описано в этой статье: "Платформонезависимый скроллинг в Fire Monkey"
 
Ниже приведен код, который проверяет, что TListBox прокручен до конца.
procedure TForm1.ListBox1ViewportPositionChange(Sender: TObject; const OldViewportPosition, NewViewportPosition: TPointF; const ContentSizeChanged: Boolean); begin if NewViewportPosition.Y > ListBox1.ContentBounds.Height - ListBox1.Height then ShowMessage('End!'); end;

Переделал маленько код от ZuBy из первой ссылки для ListView. Теперь дрожит меньше, картинка переворачивается. 
Пользуйтесь 
 
UpdateMe2PullRefresh.zip

Почему при изменении в FormMouseMove значение Y прыгает? Чем ниже опускаешься, тем больше эти прыжки (аж до 10 пикселей). Например, сдвигаешь на 1 пиксель вниз (пока тестирую на windows), а Y уменьшается на 10. Сдвигаешь еще на 1пикс вниз, Y возвращается к нормальному значению.
PS. Еще есть какая-то зависимость от количество элементов в listbox-e. Чем больше элементов, тем больше "прыжки".
 
PPS. после обработки напильником нормально работает 
http://fire-monkey.ru/topic/2023-pullrefresh/#entry10918

Обновление Списков (ListBox, ListView) как в популярных приложения
 

 
 
 
Скачать с офф. сайта
UpdateMe.zip

TScrollBox.ContentHeight использовать надо бы

uses Generics.Collections;