Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Здравствуйте.
В ближайшем будущем не планируется. Работа сервера пока будет доступна только под Windows. В данный момент на Linux могут работать только клиенты скады.
Здравствуйте.
Для текущей версии первый раз на странице окно открывается в положении задаваемым редактором, далее повторно открывается по внутренним координатам, включая их изменение пользователем или скриптом.
Для Вашей задачи можно использовать окно с положением "По заданным координатам", для которого начальное положение определяется парой свойств окна (.X, .Y).
Скрипт "Пользователь перешел на эту страницу" устанавливает значение пар (X, Y) для всех окон (с таким правилом поведения) данной страницы. Например, для одного окна при индивидуальным положении на каждой странице скрипт выглядит так (переменные или константы (X1,Y1) - координаты окна на первой странице, (X2,Y2) - на второй и т.д., свойство Tag страницы определяет номер набора):Код: (delphi)Для восстановления начального положения при повторном открывании окна необходимо установить координаты окна скриптом "Пользователь закрыл это окно":begin
Window1.X := GetVariableByName('X' + IntToStr(Sender.Tag)).Value;
Window1.Y := GetVariableByName('Y' + IntToStr(Sender.Tag)).Value;
end.Код: (delphi)Пример во вложении (после разархивирования проекта его необходимо пересохранить).begin
Window1.SetPosAll(Window1.X, Window1.Y);
end.
begin
//Отображение текущих значений температуры и кнопок уставок
ShowWindow_Fix(Set_Temp, //кнопка вызова настроек температуры
Task_TempMenu, //окно настроек температуры
344,80 //координаты окна
);
if Set_Switch_Set_Temp.AsBool then begin //нажата кнопка вызова экрана настроек температур
Set_Press.Visible := false;//скрыть кнопку вызова экрана настроек давления
end
else begin
Set_Press.Visible := true;//показать кнопку вызова экрана настроек давления
end;
end.
function ShowWindow_Fix (CallButt : TM_Button;
CallWin : TM_Window;
XCall,YCall : Single
): boolean;
begin
if CallButt.AsBool = true then begin //нажата кнопка
CallWin.ShowAll; //показать экран
CallButt.States[1].Color := RGB(137,197,214); //поменять цвет кнопки, индикация открытия окна
end
else begin //отжата кнопка
CallWin.CloseAll; //спрятать экран
CallButt.States[1].Color := RGB(255,255,255); //поменять цвет кнопки, индикация закрытия окна
CallWin.X := XCall; //Х - окно настроек
CallWin.Y := YCall; //У - окно настроек
CallWin.SetPosAll(XCall,YCall);
end;
end;
function TTMS_BT_CLR_CHNG (CallButt :TM_Button; //кнопка вызова экрана
CallWin :TM_Window;
MenuSwitch :TM_Variable; //отслеживание работы битов меню
Num_Bit, //номер бита
RON,GON,BON, //цвет нажатой кнопки
ROFF,GOFF,BOFF :Integer //цвет ненажатой кнопки
):boolean;
begin
if GetBit(MenuSwitch.AsInt, Num_Bit) = true then begin //нажата кнопка
CallButt.States[1].Color := RGB(RON,GON,BON); //поменяли цвет
CallWin.ShowAll;
end
else begin //не нажата кнопка
CallButt.States[1].Color := RGB(ROFF,GOFF,BOFF); //поменяли цвет
CallWin.CloseAll;
CallWin.X :=80;
CallWin.Y :=80;
end;
end;
//ФИЛЬТР ПОМЕХ ЗНАЧЕНИЯ ДАВЛЕНИЯ С КОНТРОЛЛЕРА S7-1200
begin
if p5_BP1_DownArchiPress.Value < 0 then //проверка на нижнюю границу аналогового значения
p5_PressureSC.Value:=0; //обнуление масштабируемого значения давления
if p5_BP1_DownArchiPress.Value > 27648 then //проверка на верхнюю границу аналогового значения
p5_PressureSC.Value:=0; //обнуление масштабируемого значения давления
end.