Нужна помощь в доработки элемента.
Элемент отображает рамку изменяющую размер при перетаскивании за края и углы. В архиве приведен пример изменения размеров интерфейсных элементов.
capture_01202015_221802.pngДля тестирования проделайте следующее (см. схему в архиве):
1. Двойным кликом по интерфейсному элементу (к примеру PaintBox-у).
2. Зажмите (левой кнопкой мыши) левый средний квадрат рамки изменения размера.
3. Подвигайте курсором, правый край "мерцает".
4. При изменении размеров правым средним квадратом такого нет.
Пробовал разные варианты изменения размеров и положения элемента, но проблему решить не получилось. Возможно нужно как то "заморозить" компонент в момент изменения позиции и размера:
#pas
190 Control.Left := tpos.x;
191 Control.Width := Control.Width + t;
#pas
113 procedure THIFrameSize._work_doSet; // делаем элемент видимым, устанавливаем позицию
214 function THIFrameSize.onMessage; // обработка сообщений
245 WM_LBUTTONDOWN: // при клике на квадрат начинаем изменять размер элемента resize := true
226 WM_MOUSEMOVE: // посылаем позицию курсора ChangeSize(p);
145 procedure THIFrameSize.ChangeSize; // изменяем размер
197 case iRGN of // в зависимости от того за какой квадрат тягают
203 5: change := SetLeft; // в моем примере это левый средний квадрат
184 function SetLeft: boolean; // вот тут и изменяем позицию и размер
221 WM_SIZE: // а тут подгоняем квадратики (регионы) под размер элемента
P.S. На остальное в коде не обращайте внимание: "в стадии разработки".
Поиск
Друзья
Администрация