beklexx
Пользователи-
Постов
67 -
Зарегистрирован
-
Посещение
Весь контент beklexx
-
ну тут уж от зума зависит точность ... ибо от середины карты до края экрана может быть и километр и поболее))
-
что-то похожее я реализовал чуток другим способом... при нажатии на маркер я показываю юзеру кнопку (создать новое положение маркера) после нажатия на которую я убираю маркер и жду события OnMapClick, которое создаст новый маркер procedure TFGPS.MapView1MapClick(const [Ref] Position: TMapCoordinate); begin if NOT(WaitTapForGPS) then exit; WaitTapForGPS:= False; GPS_X:= Format('%2.6f', [Position.Latitude]); GPS_Y:= Format('%2.6f', [Position.Longitude]); MarkerAdd(GPS_X, GPS_Y, 'New GPS coord'); end; Правда у меня чуток другая задача... а разве в вашем случае возвращаемый TMapMarker из события OnMarkerDragEnd не содержит в себе новые координаты?
-
ясно... спасибо
-
ну вот в сообщении... вставка кода, там в списке C CSS SQL и т.д. паскаля нету
-
слушайте, а как вставить в сообщение код на паскале ?
-
У меня вот так работает procedure TFVisit.ListView1ButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin if AObject.ClassName = 'TListItemTextButton' then begin ........ end; end;
-
Так OnChange на то и OnChange ... может вас устроит OnClosePopup ?
-
ммм... я так понимаю что на форме 5 лежит TRectangle под именем left... бывает, когда переработаешь, отдохнуть вам надо бы... пивка там
-
Здравствуйте товарищи. Помогите выявить одну проблему, а то уже не знаю как с этим бороться, странно что даже гугл не помогает. В общем есть несколько клиентов на андроиде, так вот они изредка перестают цепляться к datasnap серверу. Причём не все сразу, к примеру один отвалился а другие норм работают. Решается только методом полного сброса смартфона и закачки клиента обратно. Как я понял это происходит если ставят какой либо другой софт на смартфон, кодировка или ещё что изменяется. Как это выявить я так и не допёр, есть какое мнение? Заранее благодарю.
-
я ещё не тестил, но судя по коду предоставленному Русланом, как то так: procedure TFrmMain.LocationSensorLocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); var Lat,Lon:String; lSensorType : String; begin lSensorType := GetLocationSensorType(LocationSensor); if lSensorType = 'Triangulation' then exit; Lat:=Format('%2.6f',[NewLocation.Latitude]); Lon:=Format('%2.6f',[NewLocation.Longitude]); // выполняем что то там end;
-
Если знать как определяются координаты (по ЖПС или по сотовым вышкам), то можно выбирать какие координаты использовать, а какие отбрасывать... Узнать тип сенсора можно вот так function getLocationSensorType(const ASensor : TLocationSensor) : String; begin with ASensor do case Sensor.SensorType of TLocationSensorType.GPS: result := 'GPS'; TLocationSensorType.Static: result := 'Static'; TLocationSensorType.Lookup: result := 'Lookup'; TLocationSensorType.Triangulation: result := 'Triangulation'; TLocationSensorType.Broadcast: result := 'Broadcast'; TLocationSensorType.DeadReckoning: result := 'DeadReckoning'; TLocationSensorType.Other: result := 'Other'; else result := 'Unknown'; end; end; procedure TFrmMain.LocationSensorLocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); var Lat,Lon:String; lSensorType : String; begin Lat:=Format('%2.6f',[NewLocation.Latitude]); Lon:=Format('%2.6f',[NewLocation.Longitude]); lSensorType := GetLocationSensorType(LocationSensor); Memo1.Lines.Add('Lat='+Lat+' Lon='+Lon+' lSensorType='+lSensorType); end; однако он мне выдает lSensorType=GPS всегда, даже в случае отключения GPS на устройстве... не знаю почему а тут Triangulation это и есть тип сенсора от вышек?
-
эхх... System.Sensors.TCustomMotionSensor.Motion Platform Support This property is only supported on Windows. Platform Details Android Android provides different types of motion sensors. Each type of sensor supports a different set of properties: The Accelerometer3D sensor provides the AccelerationX, AccelerationY and AccelerationZ properties. The Gyrometer3D sensor provides the AngleAccelX, AngleAccelY and AngleAccelZ properties. The GravityAccelerometer3D sensor provides the AccelerationX, AccelerationY and AccelerationZ properties. The LinearAccelerometer3D sensor provides the AccelerationX, AccelerationY and AccelerationZ properties. iOS iOS provides different types of motion sensors. Each type of sensor supports a different set of properties: The Accelerometer3D sensor provides the AccelerationX, AccelerationY and AccelerationZ properties. The MotionDetector sensor provides the AccelerationX, AccelerationY, AccelerationZ, AngleAccelX, AngleAccelY and AngleAccelZ properties. Windows Complete support. инфа... http://docwiki.embarcadero.com/Libraries/XE8/en/System.Sensors.TCustomMotionSensor http://docwiki.appmethod.com/appmethod/1.17/libraries/en/System.Sensors.TCustomMotionSensor.Motion печалька...
-
к сожалению нет
-
Я сталкивался ... SetMultiByteConversionCodePage не спасло... выставил nvarchar и на телефоне(sqlite) и на сервере(ms sql server) и всё нормализовалось.
-
ну тогда и я присоединяюсь к вопросу ... если есть более шустрый вариант, то оч не помешало бы
-
1. Если xe5, то с android 5 печаль... 2. Менять надо "AndroidManifest.template.xml" в корневой папке проекта, а не "AndroidManifest.xml" из вложенных папок
-
так на что время то уходит... на открытие другой базы, подкачку в мемтейбл или на заполнение листвью?
-
ну и во избежание небольшого тормоза при первом открытии: http://fire-monkey.ru/topic/1495-tmultiview-kak-izbezhat-zaderzhki-pri-pervom-poiavlenii-tmultivie/?p=7293