Неправильно работает UpToParent
Issue #47
new
- Запускаем приложение.
- Создаём прямоугольник.
- Выбираем Mover.
- Перемещаем прямоугольник.
- Выбираем UpToParent.
- Кнопка - подсвечивается.
- Более ничего не происходит.
- Тыкаем в прямоугольник - отрабатывает Mover.
Comments (2)
-
reporter -
reporter Там не надо f_Shapes.ItemIndex := f_Shapes.Items.IndexOf(f_ShapeClass.Name); под if
- Log in to comment
Проблема тут:
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;