Tsizectrl
Невизуальный компонент Delphi, чтобы обеспечить перемещение времени выполнения и изменение размера элементов управления.
Оригинальный автор: Ангус Джонсон
http://angusj.com/delphi/
http://angusj.com/delphi/sizectrl.html
Протестировано на:
Delphi 3, 4, 5, 6, 7, 10.1 Berlin, 10.2 Tokyo
Версия:
Это вилка с момента последней версии автора (7.2 - 3 сентября 2006 г.)
Скриншоты компонента TSIZECTRL:
Размеры:
Движущийся:
Выровненные элементы управления отключили «кнопку схвата» вдоль фиксированных границ:
Несколько элементов управления могут быть перемещены или изменены вместе:
Основное использование:
- Добавьте в свою форму компонент Tsizectrl (Sizectrl1).
- Установите свойства Sizectrl1 (цвета кнопок и т. Д.) По желанию.
- Назначьте методы события (начало, во время и конечных размер/перемещение событий) по желанию.
- В методе формы, Sizectrl1.registerControl () все возможные цели.
- В назначенном методе Menuitem переключите свойство Sizectrl1.Enabled.
- После включения:
- Нажмите вкладку, чтобы выбрать цели.
- Удерживайте клавишу Shift, чтобы выбрать несколько целей.
- Измените размер целей, нажмите и перетащив кнопки изменения размера цели или удерживая клавишу Shift вниз при использовании клавиш со стрелками.
- Переместите элементы управления, нажмите и перетащив цель или с помощью клавиш со стрелками.
Разные примечания:
Понимание сообщений WM_SetCursor заголовков ListView также требует подключения обработчика сообщений заголовка. Я не думаю, что это незначительное улучшение в управлении курсором оправдывает значительные дополнительные усилия по программированию.
