Пользовательские цвета

[ART63]

Добрый день!

Есть ли у пользовательских цветов константы cl...?
Если нет, то просьба добавить их, например: clUserN. Или напишите, пожалуйста, как ими пользоваться в скриптах.

[Simple_Scada]

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

У пользовательских цветов нет констант. Для удобного использования своего набора цветов в скриптах можно:

1. Сохранить нужные цвета во внутренние переменные и затем использовать их в скриптах. Для этого нужно создать внутреннюю переменную с типом данных LongWord и записать в нее необходимый цвет, например:

Код: (delphi)

begin
  vrColor.Value := clCrimson;
end.

Затем можно использовать ее для изменения цвета, например:

Код: (delphi)

begin
  Shape1.Color := vrColor.AsInt64;
end.

2. Объявить константы цветов в глобальном модуле и далее использовать их в скриптах. Как это сделать обсуждалось в этой теме.