| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Алексей Васильев
Зарегистрирован: 20.05.2009
Сообщения: 105
Откуда: Самара
|
 Добавлено: Вт 13 Июл 2010 15:30 Заголовок сообщения: Други, как программно приписать форму? |
 |
|
При массовом вводе объектов, к примеру - домов, нужно столь же массово пририсовывать форму с номером этого дома. А для этого приходится проделывать очень много манипуляций мышью: выделить объект, затем щелкнуть "пририсовать форму", выбрать из меню нужную (да еще и не промазать! А когда работа объемная, то люди спешат, и нередко промахиваются), затем вернуться к объекту, и не спутать его - он ведь уже не выделен!, нарисовать форму, и выйти из режима создания формы. Хочется это упростить, благо используется в большинстве случаев только одна форма.
Но в справочнике интерфейса ингео только про создание Объекта. И далее напоминается, что нужно пририсовать формы... вручную, получается? Или как? |
|
| Вернуться к началу |
|
 |
tariel
Зарегистрирован: 26.09.2005
Сообщения: 72
Откуда: г.Орск Оренбургская обл.
|
| Добавлено: Ср 14 Июл 2010 08:06 Заголовок сообщения: |
|
|
| добавить стиль с полем семантическим а потом через массовые операции заполнить семантическими данными |
|
| Вернуться к началу |
|
|
Михаил Власов
Зарегистрирован: 14.02.2005
Сообщения: 580
Откуда: ИНТЕГРО
|
|
| Вернуться к началу |
|
|
Алексей Васильев
Зарегистрирован: 20.05.2009
Сообщения: 105
Откуда: Самара
|
| Добавлено: Ср 14 Июл 2010 17:11 Заголовок сообщения: Спасибо, но что-то не работает |
|
|
Впрямую не работает. Выдает сообщение
| Цитата: | | Переменная не определена: OpenHtmlWindow |
Но бог с ним, с VB скриптом - из анализа текста идея достаточно понятна, будем делать на любезной моему сердцу Дельфе, так что спасибочки!
PS: Забавная штука - турбо-Дельфи. Старательно отсчитывает дни, оставшиеся до окончания срока действия лицензии, а дней там осталось - ровно на СТО лет... Юмористы... |
|
| Вернуться к началу |
|
|
Алексей Васильев
Зарегистрирован: 20.05.2009
Сообщения: 105
Откуда: Самара
|
| Добавлено: Чт 15 Июл 2010 17:19 Заголовок сообщения: Докладаю |
|
|
Докладаю: в принципе работает
Единственно, что удивило, что строчка:
| Цитата: | CIO.Shapes.Insert(-1, aLabelStyleId);
где
CIO := ActiveDB.Get_MapObjects.GetObject(Selected_Obj_ID);
|
Дает ошибку времени выполнения, что дескать "-1" находится Out of bounds, хотя в IngeoIntfs этот параметр совершенно четко описан как допустимый, да и в примере на VB скрипте он используется. Ошибка исчезает, если вместо -1 поставить CIO.Shapes.count, и вроде бы нормально работает.
Ну а ориентацию этой метки я еще подработаю под нашу специфику.
Спасибо! |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
