Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

карта... [D6, D7, Win2k, WinXP]

speed © (2005-01-15 14:05:00)
привет всем!!!
Есть у меня в Image карта полуострова, затем я делаю поиск по БД, допустим вывести населенные пункты с населением >1000 чел.
Как сделать чтобы населенные пункты, удовлетворяющие условию подсвечивались на карте, выделялись, мигали, ну хоть что-нибудь делали?
Заранее благодарен....

YurikGL (2005-01-16 10:47:00) [1]

> А как сделать, чтобы координаты брались из базы ???

Нужно, что-бы они там были...
Нужны минимум две таблицы:
Таблица городов (id-кГорода, id-соответсвующей площади,Имя, население...)
Таблица Точек (id-кТочки, id-кПлощади, порядковый номер в площади....)

Тогда выбираем из второй таблицы все точки, которые ограничивают площадь, которую занимает нужный город, в порядке указанном в "порядковый номер в площади" проводим от точки к точке линии и закрашиваем получившуюся область.

YurikGL (2005-01-16 10:39:00) [2]

> привет всем!!!
> Есть у меня в Image карта полуострова, затем я делаю поиск
> по БД, допустим вывести населенные пункты с населением >1000
> чел.
> Как сделать чтобы населенные пункты, удовлетворяющие условию
> подсвечивались на карте, выделялись, мигали, ну хоть что-нибудь
> делали?

Для этого нужно иметь векторную карту. А вообще почитай про ГИС-системы...Если не ошибаюсь, то лидирующие позиции сейчас имеют ГИС-ы от esri. Они основаны на БД.

speed (2005-01-16 09:44:00) [3]
А как сделать, чтобы координаты брались из базы ???

avik (2005-01-15 17:27:00) [4]
наверное проще всего забить в бд города с координатами,
а затем выводить нужнное по XY!

Separator (2005-01-15 14:34:00) [5]
Допустим на карте населенный пунк обозначен точкой диаметром в 10px с кординатами центра (15, 15), далее просто обводим его круглешком красного цвета:
with Canvas do begin
Pen.Color:= clRed;
Pen.Width:= 2;
Brush.Style:= bsClear;
Ellipse(5, 5, 25 , 25);
end

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »