RUS  ENG 

раскраска контурных объектов без использования тематич. слоев

Поиск  Правила  Войти
Страницы: 1
RSS
раскраска контурных объектов без использования тематич. слоев
 
#1
01.09.2005 12:24:05
Здравствуйте.
Есть несколько вопросов.
1) пробую раскрашивать контурные объекты без использования тематических слоев. Создаю контур, соотношу его с текущим-активным,переношу его в память, меняю цвет заливки для контура и добавляю мой контур в созданный слой. Если выделенный объект состоит из больше, чем из одного контура - ошибка: "ZuluLib exception caught with code 770". Вопрос: можно ли сделать проще данную раскраску(полностью программно, кроме исходного слоя для раскраски). Если нет, то как обработать объекты состоящие из нескольких контуров.
2)пока не получается вывести текст через addtext, точнее он выводится, но его не видно. вывел и нашел его по id.
Спасибо.
 
 
 
#2
01.09.2005 12:50:31
Программка пишется на Delphi.

первый вопрос сделал через polycontour
Осталась вторая часть первого вопроса. можно ли проще. И второй вопрос, о выводе текста в середине закрашенного контура (а если он не один?).

Спасибо.
 
 
 
#3
02.09.2005 09:03:22
2)пока не получается вывести текст через addtext, точнее он выводится, но его не видно. вывел и нашел его по id.
AddText не выводит текст, а добавляет текстовый объект в слой. Добавляет в X,Y на местности и размером и цветом, заданным в ElemStyle. Если этот X,Y не попадает в окно карты, то текст все равно добавляется за экраном. Он также добавляется и когда вообще окна карты нет, а объект ILayer есть.

Пришлите куски текста, которые Вы считаете, что должны работать и не работают. На словах понять трудно. [email protected]
 
 
 
#4
02.09.2005 09:08:24
Проще контуры раскрашивать именно тематической раскраской. Чем этот способ не подходит?

По поводу вывода текста не совсем понял, а как эта проблема решается, когда контур один?
 
 
 
#5
02.09.2005 13:21:47
письмо написал.
 
 
 
#6
02.09.2005 15:03:24
l:ILayer;
el:IElement;
begin
l:=CoLayer.Create;
l:=MapCtrl1.Map.Layers.Active;
l.InMemory:=true;
//l.Elements.count;//возвращает -1
el:=l.Elements.FirstItem;//а так работает, но как заканчивать цикл
...
Почему не возвращается количество элементов, я что-то не так делаю?
 
 
 
#7
02.09.2005 15:28:25
В справке по объектной модели про это написано:

Если коллеция имеет доступ к элементам по ключу, то Count возвращает -1. Если коллеция имеет доступ к элементам по индексу, то Count возвращает число элементов, входящих в коллекцию.


Если не получить первый элемент, то в возвращенном объекте Element свойство Key будет равно -1. Обычно используется совместно со свойством NextItem.
Если следующего в коллекции по порядку элемента нет, то в возвращенном объекте Element свойство Key будет равно -1.
 
 
 
#8
02.09.2005 15:52:28
спасибо, за быстрый ответ.
А по-поводу посланного письма?
 
 
 
#9
02.09.2005 16:11:14
Письма пока не получал.
 
 
 
#10
05.09.2005 09:59:01
письмо повторил на [email protected]
 
 
 
#11
05.09.2005 10:47:40
Еще раз повторите пожалуйста. Случайно стерли.
 
 
 
#12
05.09.2005 14:42:19
Повторил ещё раз. Может удобнее будет сразу в форуме? примерно на экран.
 
 
 
#13
06.09.2005 13:12:43
спасибо за ответ.
вопрос по хелпу (Parameter property (Theme)):
Пример:
...
'Присваиваем красный цвет заливки контуру с ключом 123
theme.Parameter(123, eThemePatColor) = 255
...
'Теперь все объекты активного слоя будут отображаться как
'отображались, а объект с ID =123 будет заливаться красным цветом.
End Sub

Я понял, что здесь идет работа именно с ключами, а не с id. Это так? То есть в хелпе опечатка? Или можно работать по ID?
 
 
 
#14
07.09.2005 09:08:06
Здесь ключ и ID - одно и то же
 
 
 
#15
08.09.2005 10:09:29
может я что-то не так делаю, но изменить цвет, толщину линий контура с конркетным ID, я могу, а залить(закрасить) этот контур не могу..
часть кода:
var th: ITheme;
i:integer;
begin
th := CoTheme.Create;
Th.Create('путь','раскраска', MapCtrl1.Map.Layers.Active.Name); //'Создаем объект
i:=mapctrl1.CurrentID;
th.parameter[i, eThemeBorderColor] := 100;
th.parameter[i, eThemePatColor] := 100;
th.Save;
MapCtrl1.Map.Layers.Active.ThemeName := 'путь';
MapCtrl1.Redraw;
End;
 
 
 
#16
08.09.2005 12:55:59
Все красится. Может у тебя объект не площадной или стиль заливки пустой?
 
 
 
Страницы: 1