Неправильно работает UpToParent

[Alex Lulin]

1. Запускаем приложение.
2. Создаём прямоугольник.
3. Выбираем Mover.
4. Перемещаем прямоугольник.
5. Выбираем UpToParent.
6. Кнопка - подсвечивается.
7. Более ничего не происходит.
8. Тыкаем в прямоугольник - отрабатывает Mover.

[Alex Lulin]

Проблема тут:

procedure TmsShapeButton.MyClick(Sender: TObject); begin if not f_Shape.NullClick(ImsDiagrammsHolder(f_Holder)) then f_Shapes.ItemIndex := f_Shapes.Items.IndexOf(f_ShapeClass.Name); end;

[Alex Lulin]

Там не надо f_Shapes.ItemIndex := f_Shapes.Items.IndexOf(f_ShapeClass.Name); под if