Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.

Сообщения - Серега

Страницы: 1 [2] 3 4 ... 20

OPC UA/DA сервер arOPC / Ширина колонок

« : 12 Января 2026, 09:10:28 »

Добрый день!
Сейчас стадия разработки проекта когда нет оборудования под рукой поэтому использую ваш эмулятор и по проекту ArOPC.
Связка отлично работает, но есть маленький нюанс.
На вложенном файле обратите внимание на каком расстоянии находиться скролл (красный круг).
Эта ситуация возникает всегда. Если перейти в другую группу та же ситуация. Вернуться в первоначальную тоже самое. При работе или в режиме конфигурации.
НО вот еще одна напасть. После НГ обновления пропала возможность автоматического подбора ширины после двойного клика на разделительную полосу.
Можете у себя проверить!

Ошибки / Re: Толщина границы

« : 12 Декабря 2025, 14:17:42 »

Все ясно. Спасибо!

Ошибки / Толщина границы

« : 12 Декабря 2025, 10:06:45 »

Добрый день!
Найдено в версии 2.7.3.1. Повторил в новом проекте версии 2.7.2.0.
Если размещено много TM_Text (или TM_Shape) при выделении группы объектов и изменении параметра "Толщина границы", но есть хотя бы один элемент в выделенной группе TM_Text(или TM_Shape) со значением толщины 0, то происходит следующее:
1. увеличение или уменьшение значения толщины на значение >0 приводит к ожидаемому эффекту изменения границы объектов
2. если значение установить в 0, то в выделенной группе элементов с толщиной не равной 0 видимых изменений (исчезновения границы) не происходит. Надо выделить каждый и изменить в каждом.
Можете у себя проверить?

Ваши вопросы / Re: Запись в 2 бита

« : 12 Декабря 2025, 08:12:15 »

Спасибо! Будем пробывать!

Ваши вопросы / Кнопки и действия оператора

« : 11 Декабря 2025, 14:39:35 »

Добрый день!
Словили интересную ситуацию.
Есть 3 кнопки. Старт, Пауза и Стоп. Привязаны к разным битам переменной слова команд.
Потом было решено для безопасности использовать дополнительно другой протокол.
И для кнопки Стоп было решено убрать привязку к переменной и биту, перенести это в скрипт и добавить присвоение по новому протоколу.
Пример скрипта:

Код

dwCMD_Set.Value := SetBit(dwCMD_Set.Value, 20, True);
dwCmd_TP_Set.Value := SetBit(dwCmd_TP_Set.Value, 20, True);

И при анализе сообщений не увидели записи о том, что была нажата кнопка Стоп . Но на графиках четко видно изменения соответствующих переменных.
Наши предположения:
1. Для внесения сообщения в группу "Действия оператора" кнопка должна быть привязана к переменной. При этом привязка к доп. переменной не считается.
2. Если привязать кнопку Стоп к переменной dwCMD_Set и убрать из скрипта, то по идее этого достаточно для появления сообщений в группе.
Запланированы работы по изменению боевого проекта на следующей недели и хотелось бы исправить данную ситуацию тем либо другим способом.
Как бы вопрос почему при нажатии кнопки не привязанной к переменной нет сообщения в группе действия оператора, мы как бы кнопку нажали.
Можете дать пояснения верны ли наши предположения?

Ваши вопросы / Запись в 2 бита

« : 08 Декабря 2025, 16:25:23 »

Добрый день!
Нужен совет как сделать.
К кнопке привязана переменная и установлен бит. Понадобилось этой же кнопкой кроме установленного бита изменять еще один бит в этой же переменной. Пробывал по разному и как то не получилось. Подскажите идею реализации?

Ваши вопросы / Мигание объектов

« : 05 Декабря 2025, 12:23:48 »

Добрый день!
Словил не понимаю что.
На странице примитив Share и шаблон с тем же примитивом. привязаны к одной и той же булевской переменной, один и тот же скрипт на включение мигания.
На видео должно быть видно. Разбил на 3 части через WinRar.
Что в наличии. Ноут с подключенным 2ым большим экраном. Виртуалка на ноуте с windows 11. SimpleScada 2.7.3.1.
При этом эксперименты показали:
1. явного влияния по отдельности шаблона или примитива не заметил
2. если нет ни того ни другого как бы темнее надписи становиться
3. если виртуалку перенести на большой монитор, то все нормально. ни каких изменений яркости надписей нет.
Возможно это как то связано с виртуалкой, возможно с железом и типом экранов. Не отрицаю.
Просто словил, заинтересовало. Может и не важно.
Можете у себя проверить. Если надо вышлю проект.

Ошибки / Панель страниц и окна

« : 27 Ноября 2025, 10:13:49 »

Добрый день!
При тестировании замены стандартной панели страниц на шаблоны заметил, что при скрытии панели страниц окна не подымаются выше невидимой границы, проходящей ровно по окончании панели.
Ну и как бы вопрос - это фича или жук?

Ваши вопросы / Несовпадение размеров примитивов

« : 21 Ноября 2025, 12:19:32 »

Добрый день!
Возможно это и не проблема. Но цепляет глаз просто...
Элементы текст, поле и список. Иногда составляешь комбинации между ними. Привязка к шагу 8 и выбираешь размеры.
В прикрепленном примере рядом стоят все 3 элемента. Согласно редактору высота у всех 32. Но как то они отличаются. Черная линия на 1 пиксель с обоих сторон.
Понимаю возможно типа эффект тень и он при приближении расплывается, но на втором рисунке у текста и поля границы сделаны черным и ну не смотреться как то вообще.
Можете дать пояснения!
В виде предложения. Они все как бы TM_Object. Почему тогда не дать пользователю возможность выбирать цвет и толщину границы или использовать системные настройки без изменения.

Ваши вопросы / Скрипт "Событие клавиатуры"

« : 20 Ноября 2025, 13:50:31 »

Добрый день!
Тип скрипта указанный в теме работает все хорошо!
Но вот тут задачка интересная прилетела. И есть пара-тройка вопросов.
1. При нажатии Ctrl, Shift и Alt обязательно надо дополнительно указывать клавишу из списка констант? Просто нажатие этих клавиш не работает?
2. Можно ли совместить нажатие Ctrl, Shift или Alt с кликом мыши? Например кнопка в свойствах не доступна, но держа клавишу Ctrl кнопка становиться доступной и при нажатии по ней мышкой происходит запланированное действие? Как некий уровень защиты от случайных нажатий.
3. Если ответы на выше заданные вопросы будут отрицательными, будете ли Вы рассматривать возможность внесения описанного функционала в будущем?

Ваши вопросы / Re: Объект и все такое

« : 13 Ноября 2025, 17:03:10 »

В теме какой то читал про эту функцию. Ну теперь, после Ваше ответа, точно стоит изучить ее подробнее.
Спасибо!

Ваши вопросы / Объект и все такое

« : 10 Ноября 2025, 12:14:30 »

Добрый день!
Прилетела задачка. Как бы была страница (pVCU) и куча подстраниц. И выполнялась процедура из глобального модуля:

Код: (delphi)

procedure SelectRoutes(aNameSubPage, aNameTC:String; tblRoutes_U4XXXMXX_XXX:TM_Table);
var
  aQuery: string;
  aSubPage: TM_Subpage;
begin
  aSubPage := pVCU.FindSubpageByName(aNameSubPage);
  if aSubPage <> nil then
  begin
    aQuery := 'SELECT ... FROM ... WHERE TC=' ... ' + QuotedStr(aNameTC); 
    tblRoutes_U4XXXMXX_XXX.RunSQL(aQuery, tsSaveFixRow);
  end else
    begin
      ShowMessageClient(GetClientName, 'Предупреждение!', 'Выберите ТС.');
      Exit;
    end;
end;

Теперь подстраницы стали каждая страницей, а страница как бы стала подстраницей у каждой страницы, как бы поменялись названия а функционал тот же.
Понятно что скрипт работать не будет, так как поменялись названия страниц. Эксперимент не удался, ругается на имя. И теперь вопрос.
Можно ли заменить в скрипте название страницы на подстановку для конкретной страницы, которую указываем в параметрах при вызове?
То есть вот эту строку:

Код: (delphi)

aSubPage := pVCU.FindSubpageByName(aNameSubPage);

заменить на эту строку:

Код: (delphi)

aSubPage := aNameSubPage.FindSubpageByName('pVCU');

Возможно так сделать не получиться. Не хотелось бы писать это на каждую подстраницу.
Можете как то прокомментировать?

Ваши вопросы / Re: Шаблоны и OnInit

« : 04 Ноября 2025, 16:34:12 »

Все. Понял. Спасибо!
Внимательнее надо быть.

Ваши вопросы / Шаблоны и OnInit

« : 04 Ноября 2025, 09:11:59 »

Добрый день!
В принципе вопрос касается темы
Поясню. Вот код универсального скрипта на OnInit шаблона:

Код: (delphi)

var
  bTC:TM_Button;
  txtText:TM_Text;
begin
  txtText := GetTemplateObject('Text8022') as TM_Text;
  txtText.Text := 'Test';
  bTC := GetTemplateObject('tmp_butTC') as TM_Button;
  bTC.States[0].Caption := 'TU4' + IntToStr((Sender as TM_Button).Tag);
end.

Изменения текста видны. Изменения для кнопки нет. Можете дать пояснения или может список элементов и их свойств которые можно использовать в OnInit?
Жду вопросов и предложений.

Ваши вопросы / Re: Язык проекта и его смена v2

« : 31 Октября 2025, 11:16:49 »

Просто возникла идея перевода текста для элемента "Текст" и подсказок для всех остальных элементов.
Можно создать файл, где в строке прописать что то на подобии:
ID; текст на рус;текст на анг.;подсказка на рус; подсказка на анг
Text1; Старт; Start; Готовность к старту;Start ready
Field23;x; x; Введите значение; Enter value
А дальше (для сокращения кода) узнаем ID элемента и если он есть в списке меняем в зависимости от языка. Как бы хотелось в пару строк вложиться. Но пока работает только прямое присваивание.
Глобальный модуль:

Код: (delphi)

interface

procedure OpenFileLang(nameFile:string);

implementation

procedure OpenFileLang(nameFile:string);
begin
  TextFileOpen(nameFile, '', fomReset, fcpUTF8);
  //как бы прописываем все элементы у которых надо перевести подсказки и текст.
  Text1.Text := TextFileReadLn;
  Text1.Hint := TextFileReadLn;
  Text2.Text := TextFileReadLn;
  Text2.Hint := TextFileReadLn;
  TextFileClose;
end;

end.

Универсальный, но надо предварительно в строгом соответствии подготовить соответствующие файлы:

Код: (delphi)

begin
  if not FileExists('lang_ru.txt', '') then Exit;
  if not FileExists('lang_eng.txt', '') then Exit;
  if not FileExists('lang_X.txt', '') then Exit;

  if Sender is TM_Object then   // проверяем, что Sender это объект
    with Sender as TM_Object do // приводим Sender к типу "TM_Object"
    begin
      if bLangNumber.Value = 0 then
        OpenFileLang('lang_X.txt');

      if bLangNumber.Value = 1 then
        OpenFileLang('lang_ru.txt');

      if bLangNumber.Value = 2 then
        OpenFileLang('lang_eng.txt');
    end;
end.

В принципе это можно было бы провернуть и с сообщениями. Дополнительно обрабатывать каждое состояние. То что в базу будет писаться то русский то английский, ну так мы же язык меняли не просто так. Ну а так как менять текст сообщения нельзя, то как бы и все.
Да что то ручками надо было бы писать самому, но как бы что бы это был встроенный механизм самой скады. Механизм по созданию таблицы для имени переменной и ее ID прекрасно работает.

Страницы: 1 [2] 3 4 ... 20