[Ama]

Доброе время суток.!!! Решил я ля себя сделать програмку типа панели с быстрым запуском...(если кто-нидь видел есть такая у операционки MacOs).....ну вот...иконки создаю, размещаю на форме....каждая иконка у меня идет как форма (TForm). Так вот не могу сделать эффект увеличения.....иконка что под мышкой увеличивается и нескока соседних немного увеличиваются и они все раздвигаются от иконки под мышкой. Я думаю ясно выразил свой вопрос...

[NumLock]

в Photoshop' е Image-Image Size...

[Ama]

Причем здесь фотошоп........увеличить в размере иконку которая под мышкой в Runtime....я могу, но загвоздка в том что не могу сдвинуть соседние иконки...

[eXplorer]

это сдвинуть типо такого что ли...

Код:

image1.Left:=image1.Left-6;
image3.Left:=image3.Left+6;

[eXplorer]

я что то не въехал...

[Ama]

Ща попробую объяснить популярнее: Вот есть у меня так называемая панель с иконками (иконки представляют собой TForm, у которых есть TImage в которых сам рисунок), допустим у меня в панели 20 иконок (на рисунке показано 3, но это просто начало) и када мышка над одной из иконок, та анимированно увеличивается до размера MaxIcoSize (это объявленная переменная), и в зависимости от переменной MagnIcoCount увеличиваются нескока и соседних иконок (т.е. создается эффект увеличителя). При этом самом "увеличении" иконки должны сдвигаться в обе стороны от иконки которая под мышкой. Как я ни пробовал у меня почему то не получается реализовать это. Начинал так:
создал тип:

Код:

TArrRect = array of TRect;

потом объявил переменную

Код:

dlt: TArrRect;

Я просто подумал сначало посчитать координаты иконок к которым я буду сдвигать их эти координаты решил разместить в переменную dlt....вот тут то все и началось......никак не догоню как это сделать