1
Ошибки / Re: Толщина границы
« : 12 Декабря 2025, 14:17:42 »
Все ясно. Спасибо!
Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Ошибки / Толщина границы
« : 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 видимых изменений (исчезновения границы) не происходит. Надо выделить каждый и изменить в каждом.
Можете у себя проверить?
Найдено в версии 2.7.3.1. Повторил в новом проекте версии 2.7.2.0.
Если размещено много TM_Text (или TM_Shape) при выделении группы объектов и изменении параметра "Толщина границы", но есть хотя бы один элемент в выделенной группе TM_Text(или TM_Shape) со значением толщины 0, то происходит следующее:
1. увеличение или уменьшение значения толщины на значение >0 приводит к ожидаемому эффекту изменения границы объектов
2. если значение установить в 0, то в выделенной группе элементов с толщиной не равной 0 видимых изменений (исчезновения границы) не происходит. Надо выделить каждый и изменить в каждом.
Можете у себя проверить?
4
Ваши вопросы / Кнопки и действия оператора
« : 11 Декабря 2025, 14:39:35 »
Добрый день!
Словили интересную ситуацию.
Есть 3 кнопки. Старт, Пауза и Стоп. Привязаны к разным битам переменной слова команд.
Потом было решено для безопасности использовать дополнительно другой протокол.
И для кнопки Стоп было решено убрать привязку к переменной и биту, перенести это в скрипт и добавить присвоение по новому протоколу.
Пример скрипта:
И при анализе сообщений не увидели записи о том, что была нажата кнопка Стоп . Но на графиках четко видно изменения соответствующих переменных.
Наши предположения:
1. Для внесения сообщения в группу "Действия оператора" кнопка должна быть привязана к переменной. При этом привязка к доп. переменной не считается.
2. Если привязать кнопку Стоп к переменной dwCMD_Set и убрать из скрипта, то по идее этого достаточно для появления сообщений в группе.
Запланированы работы по изменению боевого проекта на следующей недели и хотелось бы исправить данную ситуацию тем либо другим способом.
Как бы вопрос почему при нажатии кнопки не привязанной к переменной нет сообщения в группе действия оператора, мы как бы кнопку нажали.
Можете дать пояснения верны ли наши предположения?
Словили интересную ситуацию.
Есть 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 и убрать из скрипта, то по идее этого достаточно для появления сообщений в группе.
Запланированы работы по изменению боевого проекта на следующей недели и хотелось бы исправить данную ситуацию тем либо другим способом.
Как бы вопрос почему при нажатии кнопки не привязанной к переменной нет сообщения в группе действия оператора, мы как бы кнопку нажали.
Можете дать пояснения верны ли наши предположения?
5
Ваши вопросы / Запись в 2 бита
« : 08 Декабря 2025, 16:25:23 »
Добрый день!
Нужен совет как сделать.
К кнопке привязана переменная и установлен бит. Понадобилось этой же кнопкой кроме установленного бита изменять еще один бит в этой же переменной. Пробывал по разному и как то не получилось. Подскажите идею реализации?
Нужен совет как сделать.
К кнопке привязана переменная и установлен бит. Понадобилось этой же кнопкой кроме установленного бита изменять еще один бит в этой же переменной. Пробывал по разному и как то не получилось. Подскажите идею реализации?
6
Ваши вопросы / Мигание объектов
« : 05 Декабря 2025, 12:23:48 »
Добрый день!
Словил не понимаю что.
На странице примитив Share и шаблон с тем же примитивом. привязаны к одной и той же булевской переменной, один и тот же скрипт на включение мигания.
На видео должно быть видно. Разбил на 3 части через WinRar.
Что в наличии. Ноут с подключенным 2ым большим экраном. Виртуалка на ноуте с windows 11. SimpleScada 2.7.3.1.
При этом эксперименты показали:
1. явного влияния по отдельности шаблона или примитива не заметил
2. если нет ни того ни другого как бы темнее надписи становиться
3. если виртуалку перенести на большой монитор, то все нормально. ни каких изменений яркости надписей нет.
Возможно это как то связано с виртуалкой, возможно с железом и типом экранов. Не отрицаю.
Просто словил, заинтересовало. Может и не важно.
Можете у себя проверить. Если надо вышлю проект.
Словил не понимаю что.
На странице примитив Share и шаблон с тем же примитивом. привязаны к одной и той же булевской переменной, один и тот же скрипт на включение мигания.
На видео должно быть видно. Разбил на 3 части через WinRar.
Что в наличии. Ноут с подключенным 2ым большим экраном. Виртуалка на ноуте с windows 11. SimpleScada 2.7.3.1.
При этом эксперименты показали:
1. явного влияния по отдельности шаблона или примитива не заметил
2. если нет ни того ни другого как бы темнее надписи становиться
3. если виртуалку перенести на большой монитор, то все нормально. ни каких изменений яркости надписей нет.
Возможно это как то связано с виртуалкой, возможно с железом и типом экранов. Не отрицаю.
Просто словил, заинтересовало. Может и не важно.
Можете у себя проверить. Если надо вышлю проект.
7
Ошибки / Панель страниц и окна
« : 27 Ноября 2025, 10:13:49 »
Добрый день!
При тестировании замены стандартной панели страниц на шаблоны заметил, что при скрытии панели страниц окна не подымаются выше невидимой границы, проходящей ровно по окончании панели.
Ну и как бы вопрос - это фича или жук?
При тестировании замены стандартной панели страниц на шаблоны заметил, что при скрытии панели страниц окна не подымаются выше невидимой границы, проходящей ровно по окончании панели.
Ну и как бы вопрос - это фича или жук?
8
Ваши вопросы / Несовпадение размеров примитивов
« : 21 Ноября 2025, 12:19:32 »
Добрый день!
Возможно это и не проблема. Но цепляет глаз просто...
Элементы текст, поле и список. Иногда составляешь комбинации между ними. Привязка к шагу 8 и выбираешь размеры.
В прикрепленном примере рядом стоят все 3 элемента. Согласно редактору высота у всех 32. Но как то они отличаются. Черная линия на 1 пиксель с обоих сторон.
Понимаю возможно типа эффект тень и он при приближении расплывается, но на втором рисунке у текста и поля границы сделаны черным и ну не смотреться как то вообще.
Можете дать пояснения!
В виде предложения. Они все как бы TM_Object. Почему тогда не дать пользователю возможность выбирать цвет и толщину границы или использовать системные настройки без изменения.
Возможно это и не проблема. Но цепляет глаз просто...
Элементы текст, поле и список. Иногда составляешь комбинации между ними. Привязка к шагу 8 и выбираешь размеры.
В прикрепленном примере рядом стоят все 3 элемента. Согласно редактору высота у всех 32. Но как то они отличаются. Черная линия на 1 пиксель с обоих сторон.
Понимаю возможно типа эффект тень и он при приближении расплывается, но на втором рисунке у текста и поля границы сделаны черным и ну не смотреться как то вообще.
Можете дать пояснения!
В виде предложения. Они все как бы TM_Object. Почему тогда не дать пользователю возможность выбирать цвет и толщину границы или использовать системные настройки без изменения.
9
Ваши вопросы / Скрипт "Событие клавиатуры"
« : 20 Ноября 2025, 13:50:31 »
Добрый день!
Тип скрипта указанный в теме работает все хорошо!
Но вот тут задачка интересная прилетела. И есть пара-тройка вопросов.
1. При нажатии Ctrl, Shift и Alt обязательно надо дополнительно указывать клавишу из списка констант? Просто нажатие этих клавиш не работает?
2. Можно ли совместить нажатие Ctrl, Shift или Alt с кликом мыши? Например кнопка в свойствах не доступна, но держа клавишу Ctrl кнопка становиться доступной и при нажатии по ней мышкой происходит запланированное действие? Как некий уровень защиты от случайных нажатий.
3. Если ответы на выше заданные вопросы будут отрицательными, будете ли Вы рассматривать возможность внесения описанного функционала в будущем?
Тип скрипта указанный в теме работает все хорошо!
Но вот тут задачка интересная прилетела. И есть пара-тройка вопросов.
1. При нажатии Ctrl, Shift и Alt обязательно надо дополнительно указывать клавишу из списка констант? Просто нажатие этих клавиш не работает?
2. Можно ли совместить нажатие Ctrl, Shift или Alt с кликом мыши? Например кнопка в свойствах не доступна, но держа клавишу Ctrl кнопка становиться доступной и при нажатии по ней мышкой происходит запланированное действие? Как некий уровень защиты от случайных нажатий.
3. Если ответы на выше заданные вопросы будут отрицательными, будете ли Вы рассматривать возможность внесения описанного функционала в будущем?
10
Ваши вопросы / Re: Объект и все такое
« : 13 Ноября 2025, 17:03:10 »
В теме какой то читал про эту функцию. Ну теперь, после Ваше ответа, точно стоит изучить ее подробнее.
Спасибо!
Спасибо!
11
Ваши вопросы / Объект и все такое
« : 10 Ноября 2025, 12:14:30 »
Добрый день!
Прилетела задачка. Как бы была страница (pVCU) и куча подстраниц. И выполнялась процедура из глобального модуля:
Теперь подстраницы стали каждая страницей, а страница как бы стала подстраницей у каждой страницы, как бы поменялись названия а функционал тот же.
Понятно что скрипт работать не будет, так как поменялись названия страниц. Эксперимент не удался, ругается на имя. И теперь вопрос.
Можно ли заменить в скрипте название страницы на подстановку для конкретной страницы, которую указываем в параметрах при вызове?
То есть вот эту строку:
заменить на эту строку:
Возможно так сделать не получиться. Не хотелось бы писать это на каждую подстраницу.
Можете как то прокомментировать?
Прилетела задачка. Как бы была страница (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');Можете как то прокомментировать?
12
Ваши вопросы / Re: Шаблоны и OnInit
« : 04 Ноября 2025, 16:34:12 »
Все. Понял. Спасибо!
Внимательнее надо быть.
Внимательнее надо быть.
13
Ваши вопросы / Шаблоны и OnInit
« : 04 Ноября 2025, 09:11:59 »
Добрый день!
В принципе вопрос касается темы
Поясню. Вот код универсального скрипта на OnInit шаблона:
Изменения текста видны. Изменения для кнопки нет. Можете дать пояснения или может список элементов и их свойств которые можно использовать в OnInit?
Жду вопросов и предложений.
В принципе вопрос касается темы
Поясню. Вот код универсального скрипта на 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.
Жду вопросов и предложений.
14
Ваши вопросы / Re: Язык проекта и его смена v2
« : 31 Октября 2025, 11:16:49 »
Просто возникла идея перевода текста для элемента "Текст" и подсказок для всех остальных элементов.
Можно создать файл, где в строке прописать что то на подобии:
ID; текст на рус;текст на анг.;подсказка на рус; подсказка на анг
Text1; Старт; Start; Готовность к старту;Start ready
Field23;x; x; Введите значение; Enter value
А дальше (для сокращения кода) узнаем ID элемента и если он есть в списке меняем в зависимости от языка. Как бы хотелось в пару строк вложиться. Но пока работает только прямое присваивание.
Глобальный модуль:
Универсальный, но надо предварительно в строгом соответствии подготовить соответствующие файлы:
В принципе это можно было бы провернуть и с сообщениями. Дополнительно обрабатывать каждое состояние. То что в базу будет писаться то русский то английский, ну так мы же язык меняли не просто так. Ну а так как менять текст сообщения нельзя, то как бы и все.
Да что то ручками надо было бы писать самому, но как бы что бы это был встроенный механизм самой скады. Механизм по созданию таблицы для имени переменной и ее ID прекрасно работает.
Можно создать файл, где в строке прописать что то на подобии:
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 прекрасно работает.
15
Ваши вопросы / Язык проекта и его смена v2
« : 29 Октября 2025, 10:57:31 »
Добрый день!
Произошли ли какие либо изменения по теме https://simple-scada.com/forum/index.php?topic=1465.msg11009#msg11009, особенно в части сообщений?
Ну и в принципе 2 вопроса:
1. Можно ли получить доступ на изменение текста сообщения или рассматривается такая возможность в будущем?
2. В проекте есть много объектов со свойствами. Например Text1, Text2, Field1 и т.д. Они все типа TM_Control и имеют свойства например H. Но вот само ID объекта, вот это Text1 или Field1 как то можно получить, хотя бы для чтения? Или это только для внутреннего Вашего использования и не рассматривается вопрос о предоставлении какого либо доступа для пользователей?
Жду вопросов и предложений!
Произошли ли какие либо изменения по теме https://simple-scada.com/forum/index.php?topic=1465.msg11009#msg11009, особенно в части сообщений?
Ну и в принципе 2 вопроса:
1. Можно ли получить доступ на изменение текста сообщения или рассматривается такая возможность в будущем?
2. В проекте есть много объектов со свойствами. Например Text1, Text2, Field1 и т.д. Они все типа TM_Control и имеют свойства например H. Но вот само ID объекта, вот это Text1 или Field1 как то можно получить, хотя бы для чтения? Или это только для внутреннего Вашего использования и не рассматривается вопрос о предоставлении какого либо доступа для пользователей?
Жду вопросов и предложений!