Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
unit uIsCorrectLevel;
interface
function isCorrctLevel(sensorArray: String): Boolean;
implementation
function isCorrctLevel(sensorArray: String): Boolean;
...
end.
unit mLevel;
interface
uses
uIsCorrectLevel;
procedure mLevel(Lvl: TM_Level; sensor: TM_Variable);
implementation
procedure mLevel(Lvl: TM_Level; sensor: TM_Variable);
var
str: String;
begin
if isCorrctLevel(TM_Variable.AsStr ) then Lvl.FlashColor := clNone else Lvl.FlashColor := clRed;
end;
end.
//Универсальное событие
var
aObject: TM_Object;
begin
if Sender is TM_Object then
begin
aObject := Sender as TM_Object;
if aObject.variable.AsBool then
begin
alarmMode(aObject);
end
else
begin
sleepMode(aObject);
end;
end;
end.
//Глобальный модуль
interface
procedure sleepMode(out AResult: TM_Object);
implementation
procedure sleepMode(out AResult: TM_Object);
begin
if AResult is TM_Text then
with AResult as TM_Text do
AResult.FontColor := RGB(146,146,146);
if AResult is TM_Image then
.....
end;
end.