как отобразить движение маркера без мигания. Пытаюсь сделать так:
while not dateset.Eof do Begin
bdcoord:=TMapCoordinate.Create(dateset.FieldByName('Latitude').AsFloat, dateset.FieldByName('longitude').AsFloat);
IFind:=false;
for Marker in FMarkers do
begin
if Marker.Descriptor.Snippet=dateset.FieldByName('driverid').AsString Then Begin
Marker.Remove;
SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString);
IFind:=true;
Break;
End;
end;
if not IFind then
SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString);
dateset.Next;
End;
но просто еще один маркер добавляется, а старый не удаляет. Если делаю как написано на форуме: сначала удаляю все
for Marker in FMarkers do
begin
Marker.Remove;
end;
FMarkers.Clear;
Вопрос
dim
как отобразить движение маркера без мигания. Пытаюсь сделать так:
while not dateset.Eof do Begin bdcoord:=TMapCoordinate.Create(dateset.FieldByName('Latitude').AsFloat, dateset.FieldByName('longitude').AsFloat); IFind:=false; for Marker in FMarkers do begin if Marker.Descriptor.Snippet=dateset.FieldByName('driverid').AsString Then Begin Marker.Remove; SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString); IFind:=true; Break; End; end; if not IFind then SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString); dateset.Next; End;
но просто еще один маркер добавляется, а старый не удаляет. Если делаю как написано на форуме: сначала удаляю все
for Marker in FMarkers do begin Marker.Remove; end; FMarkers.Clear;
то работает, но идет мигание маркеров
Изменено пользователем dimСсылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.