Глобальный модуль - изменение цвета объекта

[Павло]

Добрый день.

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

[pan2000]

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

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

Код: (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.

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