Rusland

Ну значит я правильно указываю имя... странно что не реагирует... кстати и не стартует, если я пытаюсь вызывать сервис так: procedure TFrmMain.StartService(); var LIntent: JIntent; begin LIntent := TJIntent.Create; LIntent.setClassName(TAndroidHelper.Context.getPackageName(), TAndroidHelper.StringToJString('com.embarcadero.DService')); LIntent.setAction(StringToJString('StopIntent')); TAndroidHelper.Activity.startService(LIntent); end; А по поводу TLocationSensor в сервисе - какая у вас Delphi? В 10.1 вроде решена проблема. А в 10 версии тоже есть решение - я его тут выкладывал. Если нужно поищу.

Видимо я не правильно задаю имя сервиса, потому что ничего не происходит )

В OnStartService у меня прописано только function TAndroidServiceDM.AndroidServiceStartCommand(const Sender: TObject; const Intent: JIntent; Flags, StartId: Integer): Integer; begin ProcessWait(Intent, StartId); // запускаю поток Result := TJService.JavaClass.START_STICKY; end; Как тут Intent обработать?

Ошибся, никакого перезапуска не происходит, просто телефон слабенький и при переключении на Настройки-Приложения, программа успевала закрыться... из-за этого и видел перезапуск )

Pax Beach, попробовал - сервис перезапускается.

Вебинар 2016 04 27 Что нового в RAD Studio 10 1 Berlin

RAD Studio 10.1 Berlin Hotfix for DataSnap This hotfix resolves an issue with DataSnap servers failing with an error when applying updates from a client or requesting a refresh. The error raised is "Invalid variant type conversion". Updated on May 3rd, 2016 to remove extraneous files.

Попробуйте скачать отсюда

andysova, установите ADB-драйвер и сможете работать в студии

Да, переделал вот так: var IItem:TListItemImage; TItem:TListItemText; k:integer; begin LsvAl.BeginUpdate; for k := 0 to LsvAl.ItemCount-1 do begin IItem:=LsvAl.Items[k].Objects.FindDrawable('Imp1') as TListItemImage; TItem:=LsvAl.Items[k].Objects.FindDrawable('TxtNum') as TListItemText; if (k mod 2)<>0 then begin if (IItem<>nil) then IItem.Bitmap:=Image2.Bitmap; if (TItem<>nil) then TItem.TextColor:=$FFFF2346; end else begin if (IItem<>nil) then IItem.Bitmap:=Image1.Bitmap; if (TItem<>nil) then TItem.TextColor:=$FF009DFE; end end; LsvAl.EndUpdate; end; Создаю его в DesignTime - в редакторе ListView (появился в Berline) Ну так я и хотел чтобы он скопировал только данные. Объект то уже создан, я просто меняю ему bitmap. И assign не объясняет почему вдруг сменился битмап у Image.

Не знаю почему, но похоже проблема в присваивании через Bitmap.Assign Если присваивать так TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap:=Image1.Bitmap; то проблема решается.

В проекте 2 Image, 2 Button, 1 ListView. Вид ListView: Пытаюсь менять картинку в Item. Делаю это следующим образом: for k := 0 to LsvAl.ItemCount-1 do begin if (k mod 2)=0 then begin TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image2.Bitmap); // <- иногда зависает на Android TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FFFF2346; end else begin TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image1.Bitmap); TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FF009DFE; end end; Во-первых, часто, но не всегда, на Андройде ловлю Segmentation fault (при обращении к памяти). Во-вторых, раскрашивается всё, вплоть до самого Image1 из которого я беру картинку (отчего я вообще в шоке ). Как делать правильно? До: После: PS. Прикладываю готовый проект LsvAl.zip

ZuBy, а где вы читали про Custom Fonts?

Тут сказано: Но как это использовать не знаю

Тоже задался этим вопросом, компоненту нет смысла скачивать карты каждый раз заново при каждом перезапуске программы. Как его "научить" сохранять скаченное в кэш?

Планируется ли мировой тур на 2016 как и в прошлые годы или политика нового руководства изменилась?

Сысоев Максим, а нет ли под Android какой-нибудь программы аналогичной Spider?

umkes, PrintScreen ImageList-а можете выложить? Хотя не надо, в Windows же работает Интересно, а если закомментировать этот участок, то картинка вообще приходит? bmp1.Width := ClientWidth + bmp2.Width * 10; i := 0; bmp1.Canvas.BeginScene(); while (i * bmp2.Width) < bmp1.Width do begin bmp1.Canvas.DrawBitmap(bmp2, RectF(0, 0, bmp2.Width, bmp2.Height), RectF(i * bmp2.Width, 0, (i + 1) * bmp2.Width, bmp2.Height), 1 ); inc(i); end{ while }; bmp1.Canvas.EndScene;

Не верно я написал, стиль не слетает. Просто если текст отсутствует, то процедура и "обнуляет" высоту item-а - а под ним белым-бело. Это то и сбило с толку. Теперь проверяю чтобы Height не стал меньше чем был изначально. А так вариант Ярослава годный и удобный ИМХО. Только чтобы принудительно заставить отработать, мне приходится после присвоения значения (после ListBox1.EndUpdate;) делать: ListBoxItem1.RecalcSize; Всем спасибо.

ZuBy, umkes в какой момент надо вызывать ваши функции? После присвоения текста делать расчет и задавать новую высоту?

Сделал по тому как указано в той теме и стиль с Item-а слетел. У меня для него прописан Stylelookup - задан серый фон, белый шрифт, а получается по умолчанию.

Так вот и не понятно как ее посчитать? Приведите пожалуйста свой вариант, как вы считаете для ListBox и ListView?

У меня стоит WordWrap=true. Бывает так что текста больше чем обычно и он весь не помещается и обрезается. Как программно определить что текст не умещается?

Обсуждался здесь на форуме такой вопрос... насколько помню, ответ был: "никак".

Можно ли как-то сделать чтобы по нажатию Enter на виртуальной клавиатуре фокус бы убивался?