Simple-Scada forum

Simple-Scada 2 => Ваши вопросы => Тема начата: Павло от 03 Декабря 2021, 13:43:38

Название: Глобальный модуль - изменение цвета объекта
Отправлено: Павло от 03 Декабря 2021, 13:43:38

Добрый день.

Наведите пожалуйста пример скрипта для глобального модуля с изменением цвета объекта. Благодярю.

Название: Re: Глобальный модуль - изменение цвета объекта
Отправлено: pan2000 от 04 Декабря 2021, 01:57:40

  Здравствуйте.

Процедура изменения цвета в глобальном модуле:

Код: (delphi)

interface
procedure SetColor(const aObj: TM_Control; const aColor: Cardinal);

implementation
procedure SetColor(const aObj: TM_Control; const aColor: Cardinal);
begin
  aObj.Color := aColor;
end;
end.

Пример универсального скрипта светофор, переключающего циклически три цвета объекта по клику ЛКМ:

Код: (delphi)

begin
   if Sender.Color = clGreen then SetColor(Sender, clYellow)
   else
     if Sender.Color = clYellow then SetColor(Sender, clRed)
     else SetColor(Sender, clGreen);
end.

Примеры процедур изменения цвета по некоторому набору целых чисел во вложении.