Лидеры

Новые вести с полей. Проверена работа на Андроиде. Рендеринг прошел нормально. Добавлена возможность указывать межстрочный интервал для параграфов. Значительно переработаны настройки. Теперь можно задавать настройки для всех элементов в целом, для всех параграфов, так и локально для одного параграфа.

var BmpNew : TBitmap; begin BmpNew := TBitmap.Create; BmpNew.SetSize({нужный размер}, {нужный размер}); BmpNew.Canvas.BeginScene; try BmpNew.Canvas.Fill.Kind := TBrushKind.Bitmap; BmpNew.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch; BmpNew.Canvas.Fill.Bitmap.Bitmap := {ваш битмап}; BmpNew.Canvas.Clear(0); BmpNew.Canvas.FillEllipse(RectF(0, 0, {нужный размер}, {нужный размер}), 1); finally BmpNew.Canvas.EndScene; end; TImage{ваш объект}.Bitmap.Assign(BmpNew); end; думаю так

Запустил программу, поставил галочки GPS Enabled, Network Enabled, жму Load Providers и получаю широту и долготу. Но после этого они больше не меняются (хоть я и сижу на месте перед окном ) в отличии от варианта когда используется LocationSensor (с ним у меня маркер постоянно движется туда сюда). Почему так? Я тоже сделал реверс геокодинг вот так: private FGeocoder: TGeocoder; procedure OnGeocodeReverseEvent(const Address: TCivicAddress); procedure TForm1.OnGeocodeReverseEvent(const Address: TCivicAddress); begin TThread.Queue(nil, procedure begin Info.Text:=''; LbiAdminArea.ItemData.Detail := Address.AdminArea; LbiCountryCode.ItemData.Detail := Address.CountryCode; LbiCountryName.ItemData.Detail := Address.CountryName; LbiFeatureName.ItemData.Detail := Address.FeatureName; LbiLocality.ItemData.Detail := Address.Locality; LbiPostalCode.ItemData.Detail := Address.PostalCode; LbiSubAdminArea.ItemData.Detail := Address.SubAdminArea; LbiSubLocality.ItemData.Detail := Address.SubLocality; LbiThoroughfare.ItemData.Detail := Address.Thoroughfare; LbiSubThoroughfare.ItemData.Detail:= Address.SubThoroughfare; end); end; procedure TForm1.LSensorLocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); begin ///. .. try // реверсивная геолокация if not Assigned(FGeocoder) then begin if Assigned(TGeocoder.Current) then FGeocoder := TGeocoder.Current.Create; if Assigned(FGeocoder) then FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent; end; if Assigned(FGeocoder) and not FGeocoder.Geocoding then FGeocoder.GeocodeReverse(NewLocation); except Info.Text:='Ошибка Geocoder'; ClearAdress(); FGeocoder.Free; FGeocoder:=nil; end; end; И работает хорошо, но до первой ошибки. Если связь по WiFi или GPRS обрывается, то вываливается ошибка о Timeout-е и после этого на строку FGeocoder.GeocodeReverse(NewLocation); больше не попадает. Что я делаю не так? Круто! А какой компонент используется для отображения карт, TWebBrowser? Формулу для расчета по прямой я уже нашел (не думаю что она вообще может быть полезной ) А вот не поделитесь с общественностью кодом для расчета расстояния по дороге? (коли не жалко) PS. ZuBy, вообще ничего что я в этой теме столько пишу? если посмотреть в исходный код внимательно то можно обнаружить что дистанция стоит 10, а в родном TLocationSensor = 0 попробуйте поменять это значение и увидите разницу FLocationManager.requestLocationUpdates(TJLocationManager.JavaClass.GPS_PROVIDER, 10000, 10, locationListener, TJLooper.JavaClass.getMainLooper); FLocationManager.requestLocationUpdates(TJLocationManager.JavaClass.NETWORK_PROVIDER, 10000, 10, locationListener, TJLooper.JavaClass.getMainLooper); для геолокации не нужен браузер, просто запросы через TidHttp бывает полезной, кое где у меня используется пока это соответствует теме думаю никто против не будет компонентом могу поделится, но для того чтобы все заработало подготовьте API key Google, Appid, Appcode для Here Maps я позже выложу ссылку сюда

Еще вариант: Можно ли вывести изображение в виде ромба, круга и тд?

Вот уже в который раз обсуждается подобный вопрос... Я бы даже сказал - тот же самый! Почти каждый раз пишу одно и то же, но все упорно наступают на те же самые грабли. При этом пытаясь меня убедить в том, что делать то я что я пишу - необязательно, и при этом жалуются что у них с их вариантами - не получается достичь нужного результата. Отройте ссылку и в фрагменте кода найдите КЛЮЧЕВУЮ! строку: newItem.OnApplyStyleLookup := MissMessageApplyStyle; Смысл - переопределите событие OnApplyStyleLookup для создаваемых итемов, а внутри MissMessageApplyStyle (назовите как угодно..) - перерисовывайте содержимое. Т.е. - буквально, обновляйте содержимое "ручками". Тогда у Вас будет все работать как надо, картинки пропадать не будут, и т.д. и т.п. З.Ы. И да, еще. Если ваш итем ну очень сложный какой-то, например, с необходимостью отрисовки срок разными цветами или что-то еще сложнее - можете переопределить OnRepaint... З.З.Ы. В той же теме можете увидеть, насколько сложные итемы я создавал и что у них внутри есть, и все работает как надо...

Что за нативные способы? Можно код, если не секрет? вот оригинальный код, я же себе сделал компонент сразу с геокодингом и реверс геокодингом (через три сервиса here maps, google maps, yandex maps) +расчёт дистанции по дороге через google +расчёт дистанции по прямой AndroidGPS.zip

implementation uses IOUtils {$IFDEF IOS} ,iOSapi.Foundation, FMX.Platform.Ios, iOSapi.UIKit, Macapi.Helpers {$ENDIF} ; procedure TForm1.Button1Click(Sender: TObject); var fpath: string; begin fpath:= TPath.GetDocumentsPath + PathDelim + 'filename.extention'; OpenIn(fpath); end; procedure TForm1.OpenIn(path: string); {$IFDEF IOS} var controller : UIDocumentInteractionController; URL: NSURL; {$ENDIF} begin {$IFDEF IOS} URL := TNSUrl.Wrap(TNSUrl.OCClass.fileURLWithPath(StrToNSStr(path))); controller := TUIDocumentInteractionController.Wrap( TUIDocumentInteractionController.OCClass.interactionControllerWithURL(URL)); controller.presentOpenInMenuFromRect( WindowHandleToPlatform(self.Handle).View.frame, WindowHandleToPlatform(self.Handle).View,true); {$ENDIF} end;