GetShapeByName

> [HTML Version](getshapebyname.html)

**Синтаксис**

````
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.
````