Перейти к содержанию
Fire Monkey от А до Я

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

Модераторы
  • Постов

    2 517
  • Зарегистрирован

  • Посещение

  • Победитель дней

    264

Весь контент Равиль Зарипов (ZuBy)

  1. TListView делает это автоматически, отрисовывает только видимые Item'ы
  2. Это файл, то есть динарные данные. Но на ваш TBinaryStream материться, говорит, что не знает что это. упс, TFileStream и писать в разрешенные папки. чтобы UAC не блочил
  3. Что возвращаете? Если бинарные данные пробуйте TBinaryStream если текст, то TStringStream Может и поможет
  4. возможно нет проблем только на XE 10, procedure TForm22.MapView1MapClick(const Position: TMapCoordinate); begin myCoordTap.Latitude := Position.Latitude; myCoordTap.Longitude := Position.Longitude; Form1.Show; end; на кнопке, второй формы // маркер по нажатию myDescrTap := TMapMarkerDescriptor.Create(myCoordTap, Edit1.Text); myDescrTap.Icon := TBitmap.Create; myDescrTap.Icon.Assign(Form22.ImageList1.Source[1].MultiResBitmap.Bitmaps[DeviceInfo.diScale].BitmapItem.Bitmap); {$IFDEF ANDROID} myDescrTap.Appearance := TMarkerAppearance.Billboard; {$ENDIF} // myDescrTap.Snippet := myRouteInfo.DistanceAsString + ', ' + myRouteInfo.DurationAsString; myMarkerTap := Form22.MapView1.AddMarker(myDescrTap); Close;
  5. а что за событие OnTap ? это я для примера привел, это событие которое вызывается при тапе на TMapView
  6. в чем проблема? при OnTap например вызываете вторую форму в синхронизации обязательно и на кнопке "Готово" отрисовываете маркер
  7. не понял суть проблемы, по нажатию на маркер возникает ошибка?
  8. как-то так Label1.Text:= floattostr(my.Descriptor.Position.latitude) + ', ' + floattostr(my.Descriptor.Position.longitude);
  9. пробуйте убить adb.exe и снова нажать на скан девайсов
  10. делал когда-то так, может что изменилось uses {$IFDEF ANDROID}REST.Authenticator.OAuth.WebForm.FMX{$ELSE}REST.Authenticator.OAuth.WebForm.Win var WebView: Tfrm_OAuthWebForm; ... procedure TForm1.FormCreate(Sender: TObject); begin WebView := Tfrm_OAuthWebForm.Create(self); WebView.OnTitleChanged := self.OAuth2_GoogleTasks_BrowserTitleChanged; end; ... procedure TForm1.OAuth2_GoogleTasks_BrowserTitleChanged(const ATitle: string; var DoCloseWebView: boolean); begin if Pos('Success code', ATitle) > 0 then begin AuthCode := Copy(ATitle, 14, Length(ATitle)); if (AuthCode <> '') then begin Memo1.Lines.Add(AuthCode); DoCloseWebView := true; WebView.Release; end; end; end; ... WebView.ShowWithURL(LURL);
  11. а как вы сделали чтобы сервис все время работал? а вариант в шторку кинуть уведомление? как в стандартном примере
  12. Как double? float в базе на каждый параметр (lat, lon)
  13. Обновил TMapsEngine с выходом Delphi 10 Seattle Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан модуль TMapsEngine_Seattle_10.zip
  14. код или картинку в студию, о чем ты говоришь?
  15. TListView нельзя на колонки разбить, это только TListBox может
  16. В какой кодировке у вас файл? with TStringList.Create do LoadFromFile('c:\q.txt', TEncoding.UTF8); так грузит текст в UTF-8 кодировке
  17. Darik1392, а вам не кажется что вы допустили ошибку, смотреть на свой скрин до полного просветления про вложенность компонентов знаете?
  18. проверил у себя, включил/выключил, ctrl+d и все снова показывается
  19. а я вам что дал? там они включаются и выбирается цвет
  20. так и не понял какие линии вам нужны...
×
×
  • Создать...