Вопрос по MapWindowGIS и TMap for delphi
Добавлено: 18 мар 2011, 11:42
Подскажите как работать с компонентом TMap под delphi библиотеки MapWindowGIS.
В инете не могу найти информацию по этому компоненту (сам компонент - http://devdelphi.ru/?p=400 устанавливается в delphi после установки MapWindow GIS).
Кинул в компонент карты областей России (shp карты - http://gis-lab.info/projects/osm-export.html).
Нужно расставить точки (скажем города) на этой карте (наверное создать отдельный shp слой в приложении MapWindow GIS и подгрузить его в компонент TMap).
Затем выводить текстовую и графическую информацию при выборе любой из этих точек, скажем щелкнул на Москву и он выдал инфу по ней.
И второй вопрос:
Начал писать прогу на Delphi руководствуясь статьей http://devdelphi.ru/?p=465
Выборочно подгрузил в TMap карты
(Алтайский край, Иркутская область, Кемеровская область, Кировская область, Красноярский край, Курганская область, Новгородская область, Омская область, Оренбургская область, Пензенская область, Пермский край, Республика Алтай, Республика Башкортостан, Республика Марий Эл, Республика Мордовия, Республика Татарстан, Республика Тыва, Республика Хакасия, Самарская область, Саратовская область, Свердловская область, Томская область, Тюменская область, Удмуртская Республика, Ульяновская область, Ханты-Мансийский автономный округ, Челябинская область, Чувашская Республика, Ямало-Ненецкий автономный округ, Киргизия, Казахстан, Таджикистан)
Всего 32 карты - это новый Центральный военный округ.
Карты:
1) Свердловская область,
2) Оренбургская область,
3) Казахстан,
4) Киргизия
отображаются не верно, т.е. 1 и 2 отображают только контур, 4 только маленький кусок карты, 3 даже в MapWindowGIS отображается как вся территория России. По отдельности, если их грузить в TMap все нормально, ну кроме Казахстана. В MapWindowGIS все карты вместе, кроме Казахстана отображаются нормально.
Подскажите в чем может быть проблема?
Исходный код процедуры:
procedure TForm2.Button4Click(Sender: TObject);
var
shp:Shapefile;
i:integer;
begin
ScanDir(GetCurrentDir+'\ЦВО\', '*.shp',ListBox1.Items);
shp:=CoShapefile.Create;
Map1.Focused;//установим на всякий случай
for i:=0 to ListBox1.Items.Count-1 do
begin
shp.Open(ListBox1.Items,nil);
Map1.AddLayer(shp,true);
Map1.ZoomToMaxExtents;
end;
end;
В инете не могу найти информацию по этому компоненту (сам компонент - http://devdelphi.ru/?p=400 устанавливается в delphi после установки MapWindow GIS).
Кинул в компонент карты областей России (shp карты - http://gis-lab.info/projects/osm-export.html).
Нужно расставить точки (скажем города) на этой карте (наверное создать отдельный shp слой в приложении MapWindow GIS и подгрузить его в компонент TMap).
Затем выводить текстовую и графическую информацию при выборе любой из этих точек, скажем щелкнул на Москву и он выдал инфу по ней.
И второй вопрос:
Начал писать прогу на Delphi руководствуясь статьей http://devdelphi.ru/?p=465
Выборочно подгрузил в TMap карты
(Алтайский край, Иркутская область, Кемеровская область, Кировская область, Красноярский край, Курганская область, Новгородская область, Омская область, Оренбургская область, Пензенская область, Пермский край, Республика Алтай, Республика Башкортостан, Республика Марий Эл, Республика Мордовия, Республика Татарстан, Республика Тыва, Республика Хакасия, Самарская область, Саратовская область, Свердловская область, Томская область, Тюменская область, Удмуртская Республика, Ульяновская область, Ханты-Мансийский автономный округ, Челябинская область, Чувашская Республика, Ямало-Ненецкий автономный округ, Киргизия, Казахстан, Таджикистан)
Всего 32 карты - это новый Центральный военный округ.
Карты:
1) Свердловская область,
2) Оренбургская область,
3) Казахстан,
4) Киргизия
отображаются не верно, т.е. 1 и 2 отображают только контур, 4 только маленький кусок карты, 3 даже в MapWindowGIS отображается как вся территория России. По отдельности, если их грузить в TMap все нормально, ну кроме Казахстана. В MapWindowGIS все карты вместе, кроме Казахстана отображаются нормально.
Подскажите в чем может быть проблема?
Исходный код процедуры:
procedure TForm2.Button4Click(Sender: TObject);
var
shp:Shapefile;
i:integer;
begin
ScanDir(GetCurrentDir+'\ЦВО\', '*.shp',ListBox1.Items);
shp:=CoShapefile.Create;
Map1.Focused;//установим на всякий случай
for i:=0 to ListBox1.Items.Count-1 do
begin
shp.Open(ListBox1.Items,nil);
Map1.AddLayer(shp,true);
Map1.ZoomToMaxExtents;
end;
end;