Delphi Notes Splitter

Многие практикующие Delphi-программисты знают, что у стандартного TSplitter’а есть ряд недостатков (т.е. багов, если сказать откровенно). В попытках борьбы с ошибками стандартного TSplitter’а, а также желая “прикрутить” к сплиттеру кнопку (для скрытия/отображения связанной панели), я в своё время перепробовал много компонент (доступных для бесплатного скачивания), но так ни на чём конкретно и не остановился: все варианты были чем-то не тем, что нужно было мне. В итоге я решил написать свой компонент.

За основу компонента я взял обычный TSplitter (copy/paste). Первое что я сделал - поменял у него родительский класс (TGraphicControl заменил на TCustomControl), что позволило сделать нормальную обработку клавиатуры (Escape-клавиша) и мыши (без хаков и подменой обработчиков у активного контрола). Во-вторых ввёл понятие AlignControl – связанный со сплиттером компонент (у TSplitter этот компонент определяется в run-time и это иногда приводит к тому, что сплиттер теряет привязку к компоненту). Затем я добавил кнопку (алгоритм прорисовки которой я позаимствовал у другого сплиттера, к сожалению уже не помню какого именно). Ну, и на последок, компонент обзавёлся способностью связываться с Action’ами.

Итак, предлагаю Вашему вниманию VCL компонент: TdnSplitter. Это ещё один клон сплиттера, но у него есть отличительные особенности. Самая главная – TdnSplitter не является наследником от TSplitter. А следовательно он не наследует проблемы TSplitter’а. TdnSplitter создан как отдельный компонент.

Вот список отличительных свойств компонента.

1. TdnSplitter наследован от TCustomControl (который в свою очередь наследован от TWinControl), в отличии от TSplitter, который наследован TGraphicControl.
2. Свойство AlignControl. Это свойство задаётся явно (или определяется автоматически в Design-Time). Благодаря этому случайная потеря связанного со сплиттером компонента невозможна в принципе.
3. Свойство IsSnapped. Узнать, скрыт ли связанный компонент можно через Boolean-свойство. Через это же свойство можно скрывать/отображать связанный компонент.
4. Свойство ControlSize. Это свойство позволяет узнать (или изменить) ширину связанного компонента (или высоту – в зависимости от расположения).
5. Имеется кнопка для скрывания/отображения связанного компонента. Для этой кнопки можно указать Hint и ещё несколько параметров, отвечающих за внешний вид.
6. Свойство AllowDrag позволяет запретить изменять размер связанного компонента перетаскиванием (т.е. можно оставить только кнопку и сплиттер будет иметь всего два положения – см. свойство IsSnapped).
7. Свойство Action. TdnSplitter можно связать с Action. Если Вы пользуетесь Аction’ами, то Вы поймёте, зачем это нужно.

Благодаря свойствам IsSnapped и ControlSize сохранять и восстанавливать состояние сплиттера и связанного с ним компонента стало проще простого.

Ссылка для скачивания: Исходник компонента + исходник демо приложения + скомпилированное демо (zip-архив 209 К).

Скриншот из реального приложения:

На картинке два сплиттера: первый “раскрыт” (видна панель “Папки” и показан хинт под курсором мыши), второй “скрыт” (панель связей в правой части окна).

Компонент написан в среде Delphi 7 и без проблем должен заработать и в более поздних версиях Delphi.

 

P.S.: В качестве развития компонента у меня была такая идея: при скрытии связанного компонента явно менять его видимость (Visible), вместо изменения его размера в 0 (как сейчас). Однако на практике это особо мне не понадобилось и пока оно осталось как есть.

P.P.S.: В Design-Time, когда вы кидаете Splitter на форму и меняете у него привязку, у сплиттера может неправильно установиться внешний размер. Не пугайтесь :). Достаточно установить/проверить свойства Align, AlignControl и Size. Так как это проявляется редко и только в Design-Time в момент настройки компонента, я не стал себя утруждать (каюсь!) исправлением этой мелкой … “ошибки” :).

P.P.S.: Несмотря на мелкую проблему с компонентом в Design-Time, я очень надеюсь что этот пост поучаствует в конкурсе delphifeeds.ru.