Zawuza

Друзья! Рады сообщить, что уже вот-вот, на днях генератор отчетов FastReport FMX получит поддержку RAD Studio 10.2 Tokyo! 
А еще хотим представить свое инновационное решение - FastReport Desktop Green Edition без функции печати! https://www.fastreport.ru/ru/news/385/
Мы бы не знали о проблеме постоянных заминов бумаги и заправки принтеров без вашего фидбека! Спасибо за вдохновение! 
 

В Токио снова появилась кнопка Apply

У формы (да и не только у нее) есть BeginUpdate - EndUpdate. 

имелось в виду https
Если для других протоколов подключить библиотеку Indy, то в мобилках не пропустят же в Store

Ссылка: http://blog.rzaripov.kz/2017/02/firebase-android-ios.html
Автор: Зарипов Равиль @ZuBy
Описание: Настройка пуш уведомлении через сервис Firebase для ANDROID и IOS

Тут: https://community.embarcadero.com/all-events/viewevent/1127-livebinding-for-vcl-developers

HitTest = True ???

Авторство всецело не мое, только правки вносил, т.к. в разных версиях студии код вел себя по-разному. 
Прощу прощения за то, что выкладываю в неудобной форме, просто из моего проекта сейчас это будет уже достаточно проблематично вытащить.
 
Код для использования:
На форме лежат Мемо, кнопки открытия/закрытия, эдит для отправляемых текстов и кнопка отправить. в паблике у формы добавляем объект GPort: TComPort; // ****************************************************************************** // ПРОЦЕДУРЫ РАБОТЫ С COM ПОРТОМ // открываем порт procedure TFormChannels.OpenPort(PortNum: Byte); begin GPort := TComPort.Create(PortNum, br9600); GPort.OnRead := FormChannels.OnRead; GFlagOpen := true; FormChannels.ButtonClosePort.Enabled := true; end; // закрываем порт procedure TFormChannels.ClosePort; begin GPort.Free; end; // отправляем в порт данные procedure TFormChannels.WritePort(strWrite: string); var arrBytes: array of Byte; i: Integer; begin if GFlagOpen = False then // проверяем, открыт ли порт OpenPort(strtoint(edtPort.Text)); // если нет, то открываем SetLength(arrBytes, Length(strWrite)); for i := Low(arrBytes) to High(arrBytes) do arrBytes[i] := Ord(strWrite[i + 1]); GPort.Write(arrBytes); arrBytes := nil; end; // читаем данные из порта procedure TFormChannels.OnRead(Sender: TObject; ReadBytes: array of Byte); var i: Integer; begin memRead1.Lines.BeginUpdate; for i := Low(ReadBytes) to High(ReadBytes) do begin if i > Low(ReadBytes) then memRead1.Text := memRead1.Text; // + '.'; memRead1.Text := memRead1.Text + char(ReadBytes[i]); end; // подчищаем заполняющийся Мемо if memRead1.Lines.Count > 5 then begin // memRead1.Clear; memRead1.Lines.Delete(0); memRead1.Lines.Delete(1); end; memRead1.Lines.EndUpdate; end; procedure TFormChannels.ButtonClosePortClick(Sender: TObject); begin ClosePort; end; // открываем порт кнопкой procedure TFormChannels.ButtonOpenPortClick(Sender: TObject); begin OpenPort(strtoint(edtPort.Text)); end; // отправляем в порт данные кнопкой procedure TFormChannels.btnWriteClick(Sender: TObject); begin WritePort(FormChannels.edtWrite.Text); end; // КОНЕЦ ПРОЦЕДУР РАБОТЫ С COM ПОРТОМ // ****************************************************************************** ComPort.zip

вполне можно без компонентов пользоваться просто WinApi
portNum='\\.\COM28'; CommHandle:= CreateFile(portNum,GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0); ссылка

решение как я и предполагал простое. У ListBox есть свойство GroupingKind. Так вот по дефолту оно стоит Plaint (без зазоров) а когда меняешь на  Grouped появляются полосочки как я и хотел.
странно что никто на форуме этого не знал...
 

Тут недавно был по UI вебинарчик, где и по созданию кастомных контролов проходились кратко

Чего-то вы вообще не в ту степь полезли.
Не надо подменять понятия и считать что кто-то сделает за вас всю работу. Еще раз - язык программирования, фреймворк, набор каких-либо исходников и т.п. не является устойчивым к взлому. Устойчивость придают усилия программиста, который намеренно защищает критичные участки своего кода различными доступными ему средствами. Это и только это придает устойчивость.
 
Чтобы начали ломать софт на FMX - софт должен стать популярным. Вероятность популяризации софта в какой-то мере пропорциональна количеству написанного софта. Количество написанного софта тем больше, чем популярнее язык/фреймворк. Посему - фразу следует построить так "Когда (если) FMX станет популярным - появится и взломанный софт, написанный на нем".
Все правильно.

) Откуда Вы все это знаете )
Спасибо!!! Так и есть.
Вставил код:
--------------------------
Uses ...Registry, Windows...;
...
Var
Reg: TRegistry;
...
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\',True);
 Reg.WriteInteger(ExtractFileName(ParamStr(0)),11000);
 Reg.Free;
 Webbrowser1.Navigate('maps.google.com');
...
--------------------------
Теперь все работает
 
PS: тестирую для версии IE 11 // Reg.WriteInteger(ExtractFileName(ParamStr(0)),11000);

Можешь попробовать такой вариант:
 

Вот это, мне кажется, должно ТС подойти

Работу с прибором сделать в потоке. Результаты поток через Queue отдает в основной поток. И уже в потоке - Sleep, это будет точнее чем таймер, который (к слову) на винде весьма не точен.

да, смысл вопроса ускользает
если нужно оставить прибор в покое на N мсек, заведите таймер, или сделайте поток, в нем сначала Sleep(N) а потом - запуск следующего шага

ModernLV.getVisibleCount

Ссылка: http://yaroslavbrovin.ru/object_life_cycle_in_delphi_part_1_windows_osx-ru/ Автор: Ярослав Бровин С появлением мобильных платформ в мире Delphi, произошли серьезные изменения в жизненном цикле объектов. Послужившие причиной многих проблем и вопросов, а как правильно кроссплатформенно удалять объекты. В этой статье детально рассматриваем жизненный цикл объектов на разных платформах и даём ответы на важные вопросы, которые могут побеспокоить даже опытных Delphi разработчиков.

Есть примитивы синхронизации блокирующие только запись. Запись делают потокобезопасным. В этом случае не будет лока данных на чтение из других потоков, если запись не залочена. В отличии от критической секции, которая всегда лочит данные.
Еще есть LockFree концепция, которая сводит почти к минимому использование блокировок. Главная идея - это использование атомарных функций и специальных флагов помечающих актуальность данных.

Кто-то ждет что делфи "оживет", а кто-то пишет на ней и радуется жизни. 

Возможно, я рискую задать глупый вопрос, но что плохого в том, что Embarcadero переходит на аутсорсинг и переносит разработку из Испании и России в Украину? Оптимизация издержек. Главные архитекторы вроде Марко Канту остаются же, не?
ИМХО, продукт будет жить и развиваться (за счет продаж корпоративным клиентам).
TMS вон наклепали кучу компонентов для FMX. Если бы это было невыгодно, они бы не выпускали заплатки каждую неделю.
Delphi хоронят с 2000-х годов, а курилка жив еще.
Есть ли еще среды программирования, которые компилят программы под четыре разные операционки?

В рамках конкурса Device Lab от Google подготовил кейс «Маячки Eddystone для контроля расхода электроэнергии».
Ознакомиться можно по ссылке — http://singro.ru/eddystone-beacons-electro-energy/ и в ближайшее время на «Хабрахабре».

С помощью компонента TBeacon решены задачи:
— поиск ближайших маячков;
— работа с маячками в сервисе Android; 
— фильтрация маячков по технологии Eddystone, ссылкам, идентификаторам.
— привязка маячков к геокоординатам и базе данных приборов учета электроэнергии.
 
Черпайте идеи и задавайте вопросы.
Буду рад ответить на них.
 
UPD:
Наша работа заняла второе место в конкурсе Google Device Lab. Прочитать об этом можно на хабре.

К сожалению, тоже нет, они всего лишь делают redirect туда, где твой apk залит   К тому же, тебе нужно интегрировать SDK контакта и реализовать взаимодействие с ВК (приложение для ВК же). По ссылке, что я скинул, все кратко описано
Если хочешь взглянуть на эту платформу, то в мобильном приложении контакта нажми кнопку "Игры".
P.S. Не нашел, пробегая глазами документацию, что должно быть обязательно залито в Google Play или App Store.