Как изменить MapProvider в TMapView при использовании LazMapViewer?

Delphi , Графика и Игры , Картография

Наложение полупрозрачных областей в LazMapViewer: от идеи к реализации

В этой статье мы рассмотрим вопрос наложения полупрозрачных областей на карту в LazMapViewer, компоненте для Lazarus/Delphi, предназначенном для отображения карт. Изначально задача кажется нетривиальной, но благодаря обсуждению на форуме Lazarus и вкладу активных участников, решение было найдено и реализовано.

Проблема:

Необходимо наложить на карту, отображаемую в LazMapViewer, полупрозрачную область, заданную координатами широты и долготы. При этом важно, чтобы наложенная область не скрывала подлежащую карту и другие элементы, такие как треки. Пример использования: визуализация контролируемого воздушного пространства.

Решение и его эволюция:

Первоначально, единственным способом рисования с альфа-каналом в LazMapViewer был метод DrawBitmap из DrawingEngine. Предложение использовать пользовательский сервер карт казалось излишне сложным.

Альтернативным решением, предложенным участниками форума, было использование библиотеки BGRABitmap для рисования тайлов карты. Это позволило бы использовать возможности BGRABitmap для работы с прозрачностью.

Другой подход заключался в преобразовании координат широты/долготы в экранные координаты и рисовании заполненного полигона на канве.

Реализация с использованием TMapLayer и TMapArea (или TGPSComboLayer и TGPSArea):

В итоге, решение было реализовано непосредственно в LazMapViewer. Начиная с ревизии r9377, компонент поддерживает рисование полупрозрачных областей.

Для этого используются классы TMapLayer и TMapArea (или TGPSComboLayer и TGPSArea). TMapLayer служит контейнером для областей и треков, а TMapArea определяет полупрозрачную область.

Пример кода (создание области программно):

procedure TForm1.AddAreaToMap(MapView: TMapView; const AreaPoints: array of TPointD; Color: TColor; Opacity: Single);
var
  MapLayer: TMapLayer;
  MapArea: TMapArea;
  MapPoint: TMapAreaPoint;
  i: Integer;
begin
  // Создаем слой для областей
  MapLayer := TMapLayer.Create(MapView);
  MapView.Layers.Add(MapLayer);

  // Создаем область
  MapArea := TMapArea.Create(MapLayer);
  MapLayer.Areas.Add(MapArea);

  // Настраиваем стиль области
  MapArea.LineColor := clNone; // Убираем обводку
  MapArea.FillColor := Color;
  MapArea.Opacity := Opacity;

  // Добавляем точки к области
  for i := Low(AreaPoints) to High(AreaPoints) do
  begin
    MapPoint := TMapAreaPoint.Create(MapArea);
    MapArea.Points.Add(MapPoint);
    MapPoint.Latitude := AreaPoints[i].Y; // Y соответствует широте
    MapPoint.Longitude := AreaPoints[i].X; // X соответствует долготе
  end;
end;

// Пример использования:
procedure TForm1.FormCreate(Sender: TObject);
var
  AreaPoints: array[0..3] of TPointD;
begin
  // Определяем координаты области (широта/долгота)
  AreaPoints[0] := PointD(30.5, 50.4);
  AreaPoints[1] := PointD(30.6, 50.5);
  AreaPoints[2] := PointD(30.7, 50.4);
  AreaPoints[3] := PointD(30.6, 50.3);

  // Добавляем полупрозрачную область на карту
  AddAreaToMap(MapView1, AreaPoints, clRed, 0.5);
end;

В этом примере:

1. Создается слой TMapLayer.
2. Создается объект TMapArea и добавляется на слой.
3. Задаются параметры области: цвет заливки (FillColor), прозрачность (Opacity) и цвет обводки (LineColor).
4. Добавляются точки, определяющие контур области. Важно помнить, что Latitude соответствует Y (широте), а Longitude соответствует X (долготе).

Альтернативное решение (TGPSComboLayer и TGPSArea):

Можно использовать TGPSComboLayer и TGPSArea из модуля mvGpsObj. Эти классы являются "оригинальными" и не предназначены для прямого использования в дизайнере.

Важные моменты:

• Цвет обводки: Важно явно указывать цвет обводки (LineColor) для области. Если не указать, цвет может быть унаследован от предыдущей области, что может привести к нежелательным результатам. Рекомендуется устанавливать LineColor в clNone для отсутствия обводки или в другой подходящий цвет.
• Обновление LazMapViewer: Убедитесь, что вы используете версию LazMapViewer, поддерживающую полупрозрачные области (начиная с r9377).
• Координаты: Помните, что Latitude соответствует Y (широте), а Longitude соответствует X (долготе).

Дополнительные возможности:

• Рисование треков: Аналогично областям, можно добавлять треки (TMapTrack или TGPSTrack) на карту.
• События OnDrawPoint/OnDrawTrack/OnDrawArea: Эти события позволяют перехватывать процесс рисования точек, треков и областей и добавлять собственную логику.
• Наследование от TGPSObj: Можно создать собственный класс, унаследованный от TGPSObj, и переопределить его методы GetArea и Draw для реализации кастомного рисования.

Заключение:

Благодаря совместным усилиям участников форума Lazarus, задача наложения полупрозрачных областей на карту в LazMapViewer была успешно решена. Использование TMapLayer и TMapArea (или TGPSComboLayer и TGPSArea) позволяет легко добавлять на карту полупрозрачные области, заданные координатами широты и долготы. При этом важно учитывать некоторые нюансы, такие как явное указание цвета обводки. Предложенные решения и примеры кода помогут вам реализовать эту функциональность в ваших проектах на Delphi и Pascal.

Создано по материалам из источника по ссылке.

В статье рассматривается реализация наложения полупрозрачных областей на карту в LazMapViewer с использованием классов TMapLayer и TMapArea (или TGPSComboLayer и TGPSArea), демонстрируя примеры кода и важные моменты для успешной реализации.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Картография ::