Kostya_LeoG (Все сообщения пользователя)

Спасибо, темы заработали.

Здравствуйте. У меня вопрос по тематическим раскраскам: почему-то перестал работать код при подключении к серверной карте, не могу определить наименование темы... [CODE]//переменные
var
flt: IThemeFilterDesc;
name: String;
fCount:Integer;
begin
.....
fCount  := layer.ThemeFilters.Count;
//fCount  - инициализируется правильно и равно числу
//подключенных тематических раскрасок в zulu
for j:= 0 to fCount - 1 do
     begin
         flt := layer.ThemeFilters.GetItemByIndex(j);
         name := flt.UserName;
        if name <> '' then //но в переменной name всегда пусто
        begin
        .......
        //любой код внутри не выполнятся
       
        end;
end;
[/CODE]Темы были созданы в локальной карте и программно читаются при подключении к локальной карте.
Те же самые тематические раскраски из самой оболочки zulu v.8.0.0.6938 от 29.12.2018 подключаются как в локальной карте так и в серверной...

Спасибо, приведенный выше запрос обновления в новой версии работает.

Здравствуйте. Почему-то не срабатывает запрос [CODE]UPDATE hs SET hs.Hmin = (10 + 3*(hb.[Количество этажей] -1))
FROM [Расчет водопроводных сетей] AS hs, [Здание] AS hb
WHERE (hs.typeid = 5) AND hs.Geometry.STWithIn(hb.GEometry)
[/CODE]Выдает ошибку: Feature is not implemented for this DBMS
Обычная выборка работает нормально[CODE]SELECT hs.Sys, hb.[Количество этажей]
FROM [Расчет водопроводных сетей] as hs, [Здание] as hb
where (hs.typeid = 5) and hs.Geometry.STWithin(hb.geometry);
[/CODE]База данных Sybase 10
Версия Zulu  8.0.0.6783 от  27.07.2018

Роман,
Все что касается автоматического ввода данных  - это все мне известно, понятно и затруднений вряд ли вызовет. Вопрос не в этом, а в целесообразности ввода данных для участков, для которых не нужно проводить в дальнейшем расчет. Даже в схематичном изображении может быть полно участков, длина по карте для которых меньше числа, указанного в настройках расчета. И данная возможность, как мне кажется, не будет являться ограничением для пользователя, а вот наколбасить ошибок при вводе данных по таким участком вполне возможно...

Здравствуйте.
[QUOTE]Изображая сети в масштабе, считайте длину с карты, это существенно облегчит задачу.[/QUOTE]
Так вот у меня и возникла мысль, почему бы по указанной опции не исключать из расчетов и участки даже без семантики, если их длина по карте меньше указанной.  В этом случае время обработки и ввода данных по участкам резко сократится, а ввод семантики по участкам длиной более 2-х метров пользователь вряд ли пропустит...

Здравствуйте, подскажите пожалуйста, почему возникает ошибка в расчете, [CODE]Ошибка ZD003: ID=3460 Неверное значение поля 'L'-'Длина участка, м'
[/CODE]если в настройках гидравлического расчета на вкладке "Данные" указана опция "Пренебрегать сопротивлением участков длиной не более", а в текстовом поле указано длина 2 м. По факту участок находится между задвижкой и узлом внутри колодца, участок очень короткий (длина примерно равна 1.5 м), семантика на подобные участки не введена вовсе, т.е. в поле длина скорее всего значение null, и расчет подобных участков не требуется (и таких участков много).

Версия zulu8.0.0.6768 от 12.07.2018г

Здравствуйте.
Подскажите, пожалуйста, почему фон визуального компонента TZCNOutputCtrl на форме в версии зулу  8.0.0.6765 от 09.07.2018 г становится черным.  В версии зулу 7.0 такого эффекта не наблюдалось. Новых настроек для этого компонента я не увидел, в чем может быть причина?

Здравствуйте.
При создании пользовательских надписей возникает ошибка...
[CODE]DrawHandle := MapCtrl.GetDrawHandle();
....
tid := 1;
els := lay.DrawLabelsInit(DrawHandle, tid);//возможно здесь возникает ошибка (в отладчике с серверной картой улетает куда-то в вашу библиотеку)
// Ключи возвращает, но дальше ничего не происходит...
//с локальным подключением этой ситуации нет, но и надписи тоже не выводятся...
if Not assigned(els) then exit;
if els.Count <= 0 then exit;
for j := 1 to els.Count do
begin
    key := els.Item[i];
    txt := IntToStr(key);
    lay.DrawElemIDLabel(key, txt);
end;

lay.DrawLabelsClose();//завершение вывода надписи
....
MapCtrl.ReleaseDrawHandle(DrawHandle)[/CODE]как итог, пользовательские надписи не выводятся.
версия зулу 80.6676 от 11.04.2018

Здравствуйте, подскажите пожалуйста, как исправить ошибку соединения с источником данных
Описание ошибки: Parse error: DSN 'yak_map' does not esxist (Код ошибки 0x80040e4d) до установки обновления зулу и сервера зулу до версии  8.0.0.6671 от 06.04.2018 этой ошибки не возникало. А сейчас невозможно отредактировать таблицы в структуре ни добавить новую.

Спасибо, такой вариант тоже подходит!

Здравствуйте.
Подскажите, пожалуйста, как можно упорядочить отображение символов, находящихся в одном слое, разных по  своей площади и  приблизительно с одинаковыми координатами. То есть нужна функция, с помощью которой можно последовательно переключить элементы что-то типа Layer.ElementBringToFront(elem:IElement);

Версия Zulu 8.0.0.6671 от  06.04.2018

Спасибо, за подсказки. Разобрался с проблемой помог тест по шагам начиная с конкретной надписи и ключа.

Хотя мой код почти ничем не отличается от приведенного вами кода макроса, поправил почти так как и в приведенном макросе...
[CODE] elem := Layer.Elements.GetElement(key);
tid := elem.TypeId;

//выборка надписи по типу элемента
for j := 0 to Layer.LabelLayers.Count - 1 do
begin
    Label :=   Layer.LabelLayers.Item[j];
    zLabels := Layer.LabelLayers.ItemById[j].Labels;
    ztid := Label.TypeID;
    if ztid = tid then break;
end;


//выборка элемента коллекции
zLabel := zLabls.Item[key];
if Not Assigned(ZLabel) then exit;

zLabel.Visible := false;//принудительно отключаю надпись, по идее должны отключиться все надписи данного типа для любого ключа...
zLabels.SetItem(zLabel);
[/CODE]даже принудительный сброс видимости не отключает надписи.

Это при в этом моем упрощенном примере кода есть опечатка, в коде программы все как нужно... Но почему-то не срабатывает. Код выполняется перед тем, как включается видимость надписей, и предполагается, что сначала выполняются все предварительные настройки надписей в том числе и видимость по отдельным объектам, а потом идет общее включение...

Здравствуйте.
Пытаюсь программно отключить/включить отображение надписи для элемента по его ключу:[CODE] elem := Layer.Elements.GetElement(key);
tid := elem.TypeId;

//выборка надписи по типу элемента
for j := 0 to Layer.LabelLayers.Count - 1 do
begin
    Label :=   Layer.LabelLayers.Item[j];
    ztid := Label.TypeID;
    if ztid = tid then break;
end;

//выборка коллеции
zLabels := Label.Labels;
if Not Assigned(zLabels) then exit;

//выборка элемента коллекции
zLabel := zLabls.Item[key];
if Not Assigned(ZLabel) then exit;

zLabl.Visible := bVisible;//установка признака видимость конкретной надписи
zLabls.SetItem(zLabel);//сохранение надписи
[/CODE]но надпись всегда остается видимой. Подскажите что не так...

Версия zulu 8.0.0.6671 от 06.04.2018

Скачал обновление zulu  8.0.0.6619 от 13.02.2018 результат тот же, что и с предыдущей версией...

Переменная определена как[CODE]var
  mpMode:integer;[/CODE]

EditMode это свойство MapCtrl.Map [URL=https://www.politerm.com/zuludoc/index.html#zuluax/MapDoc_EditMode.html]MapCtrl.Map.EditMode[/URL]... Не понимаю почему при чтении этого свойства появляется ошибка...

Здравствуйте. При работе с картой в режиме редактирования после перехода в режим редактирования бирок программно не могу получить/прочитать реальный режим. Т.е следующий код не выполняется.
[CODE] mpMode := zMapMain.Map.Mode;
if mpMode = eModeLabel then //режим редактирования бирок
begin
....
end else mpMode := zMapMain.Map.EditMode; //возникает exception, если все-таки был установлен режим редактирования бирок
[/CODE]при попытке прочитать в каком режиме редактирования нахожусь, если выбран режим редактирования бирок возникает exception

версия zulu 8.0.0.6614 от 08.02.2018

Спасибо

Спасибо, Алексей.
У меня получилось с вариантом Theme      := CoTheme.Create(); и т.д., но не пойму как работает ваш вариант... Подскажите, что за функция CreateObject, как она работает в делфи?

Код поправил по вашей подсказке, но с сохранением все равно не работает...[CODE] param := 23; key := 2015; //ключ одного из N элементов в слое, которые нужно временно скрыть
 theme.Parameter[key, eThemeInvisible] := param;
 theme.Save;
 Theme_name := theme.Name;
 tpgLayer.ThemeName  := Theme_name;
 Theme_id := tpgLayer.Themes.AddTemporaryTheme(theme);
 Layer.Themes.SetEnabled(Theme_id,TRUE);
 zMapMain.Redraw();
[/CODE]

Здравствуйте.
Подскажите, пожалуйста, почему не отрабатывается созданная временная тема
[CODE]//Создание темы:
 Theme      := CoTheme.Create();
 wPath      := ChangeFileExt(Application.ExeName,'th1.ztm');
 Theme_name := ExtractFileName(ChangeFileExt(ParamStr(0),'ztm'));
 Theme.Create(wPath,Theme_name,Layer.UserName);

//подключение
 param := 23;
 key := 2015; //ключ одного из N элементов в слое, которые нужно временно скрыть
 theme.Parameter[key, eThemeInvisible] := param;
 Theme_id := tpgLayer.Themes.AddTemporaryTheme(theme);
 Layer.Themes.SetEnabled(Theme_id,TRUE);
[/CODE]

Код выполняется, но нет ожидаемого результата ни для одного реально существующего элемента карты.

Версия zulu 8.0.0.6590, дата сборки 15.01.2018

Спасибо