Скрипты Simple-Scada

Синтаксис

function GetShapeByName(AName: string): TM_Shape;

Описание

Возвращает объект "Фигура" с именем AName. Возвращает "nil", если объект не существует.

Пример кода

var
  aShape: TM_Shape;
begin
  aShape := GetShapeByName('Shape1');  // ищем объект "Фигура" с именем "Shape1"
  if aShape <> nil then                // если такой объект найден
    aShape.BorderColor := clWhite;     // меняем цвет рамки на белый 
end.