увеличение кнопки при наведении

[Cas01]

такой вопрос: у меня есть компонент TAdvShapeButton. В его свойстве Picture я ставлю картинку, но я хочу чтобы при наведении курсора на этот компонент, компонент увеличивался, вроде бы именно этот компонент нужен для этого, но вот не получается сделать, помогите пожалуйста!

[kta87]

не работал с такой кнопочкой, но все же разве не помогает в таких случаях просто увеличение на 2 px длинны и высоты кнопки?

[VIK_aka_TOR]

у этого компонента должно быть свойство OnMouseMove (курсов находится в очертаниях объекта) в него и прописываешь увеличение ширины и длинны этого компонента
свойство onMouseLeave происходит когда мышь выходит за пределы компонента, в него напишите изначальные размеры объекта (если понадобится конечно)))

[Cas01]

Сообщение от VIK_aka_TOR

у этого компонента должно быть свойство OnMouseMove (курсов находится в очертаниях объекта) в него и прописываешь увеличение ширины и длинны этого компонента
свойство onMouseLeave происходит когда мышь выходит за пределы компонента, в него напишите изначальные размеры объекта (если понадобится конечно)))

да, свойства такие нашел у этого компонента, но что то не получается с кодом на эти свойства, можно увидеть код если не сложно?

[VIK_aka_TOR]

на событие OnMouseMove прописываешь

имя_компонента.Height := новое_значение_высоты;
имя_компонента.Width := новое_значение_ширины;

[Cas01]

Сообщение от VIK_aka_TOR

на событие OnMouseMove прописываешь

имя_компонента.Height := новое_значение_высоты;
имя_компонента.Width := новое_значение_ширины;

прописал, но получилось что при наведении кнопка не увеличивается, а сдвигается в сторону

[Аватар]

А поиграться с LEFT и TOP, чтобы она во все стороны увеличивалась, а не только вправо и вниз?

[VIK_aka_TOR]

ну... размеры должны измениться... а вот то что она сдвигается при этом... это не смсем наверное правильное утверждение, попросту левый верхний угол остается на своем же месте... что бы добиться наилучшего результата посоветую проделать следующее:
х - на сколько будет изменена ширина
у - на сколько высота

имя_компонента.Height := имя_компонента.Height +у ;
имя_компонента.Width := имя_компонента.Width + х;
имя_компонента.Top := имя_компонента.Top - (y div 2);
имя_компонента.Left := имя_компонента.Left - (x div 2);

если х и у положительныы - кнопка увеличивается, отрицательны - уменьшается... должно сработать...
тут мы так же и смещаем её левый верхний угол в зависимости от чисел на сколько сдвигаем.
думаю div с отрицательными работает тоже нормально...