1.7. Проектирование окон с изменяемыми размерами

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

Чтобы избежать таких неприятностей, у многих компонентов и, в частности, у панелей, есть свойство Align — выравнивание. По умолчанию оно равно alNone, что означает, что никакое выравнивание не осуществляется. Но его можно задать равным аlTор, или alBottom, или alLeft, или alRight, что будет означать, что компонент должен занимать всю верхнюю, или нижнюю, или левую, или правую часть клиентской области компонента-контейнера. Под клиентской областью понимается вся свободная площадь формы или другого контейнера, в которой могут размещаться включенные в этот контейнер компоненты. Можно также задать свойству Align компонента значение alClient, что приводит к заполнению компонентом всей свободной клиентской области. Во всех этих случаях размеры компонента будут автоматически изменяться при изменении размеров контейнера.

1.8. Изменение размеров панелей при использовании выравнивания

Задавать компонентам соответствующие значения свойства Align в приведенном примере надо именно в указанной выше последовательности: alTop для Раnel2, alLeft для Panell, alClient для Memol. Если, например, начать с задания alClient для Memol, то компонент Memol займет всю площадь формы, и остальные компоненты вообще не будут видны.

Значения свойства Align имеют определенный приоритет: значения alTop и alBottom имеют более высокий приоритет, чем значения alLeft и alRight. Поэтому не любые варианты размещения и выравнивания панелей можно реализовать непосредственно.

1.9. Изменение местоположения и размеров компонентов

Заданием значений Align задачу планировки окна с изменяющимися размерами еще нельзя считать решенной.

Начиная с Delphi 4 оконные компоненты имеют свойство Anchors — привязку к родительскому компоненту при изменении размеров последнего. Это свойство представляет собой множество, которое может содержать следующие элементы:

akTop Верхний край компонента привязан к верхнему краю родительского компонента

akLeft Левый край компонента привязан к левому краю родительского компонента

akRight Правый край компонента привязан к правому краю родительского компонента

akBottom Нижний край компонента привязан к нижнему краю родительского компонента

Если в множестве Anchors присутствуют привязки к противоположным сторонам родительского компонента, то при изменении размеров родительского компонента происходит растяжение или сжатие дочернего компонента, поскольку расстояния от сторон родительского компонента выдерживаются. Сжатие может происходить вплоть до полного исчезновения изображения данного компонента. Поэтому необходимо ограничивать диапазон допустимого изменения размеров.

По умолчанию привязка осуществляется к левому и верхнему краям родительского компонента. Т.е. по умолчанию свойство Anchors равно [akLeft,akTop]. Если задать в свойстве Anchors привязку к противоположным сторонам родительского компонента, то при изменении размеров родительского компонента будут меняться размеры и данного компонента. Если для списка ListBoxl в нашем примере задать свойство Anchors равным [akLeft,akTop,akBottom], то при изменении высоты панели, содержащей этот список, будут поддерживаться постоянными расстояния верхнего и нижнего краев списка соответственно от верхнего и нижнего краев панели. Таким образом, увеличивая высоту окна, пользователь может увеличивать число строк, видимых в списке без прокрутки. Если задать свойство Anchors равное [akLeft,akTop, akRight] для метки StaticTextl, то при изменении ширины содержащей ее панели будут поддерживаться постоянными расстояния левого и правого краев метки от соответствующих краев панели. Метка будет оставаться в центре панели, но ее размер будет изменяться. Вариант нашего примера с заданными описанным способом свойствами Anchors для ListBoxl и StaticTextl. Как видно из него, теперь приложение сохраняет нормальный вид и при увеличении пользователем размеров окна. А в списке ListBoxl при увеличении размера даже исчезла полоса прокрутки, т.к. весь текст уместился на экране. Изменение размеров компонентов при использовании привязки Anchors.

Для того чтобы это нормально работало, надо еще в обработчик события ОnResize формы или панели, содержащей метку StaticTextl, вставить оператор:

StaticTextl.Repaint;

Этот оператор обращается к методу Repaint, который перерисовывает метку. Если этого не сделать, то, как вы легко можете проверить, при изменении размеров окна в метке появится надпись на новом месте, но не исчезнет и прежняя надпись, т.е. получится сдвоенная надпись, что, конечно, недопустимо.

В приведенном примере неоправданно изменился размер метки StaticTextl. Такое поведение компонента не всегда желательно. В подобных случаях надо переходить к программному изменению местоположения компонента. Это необходимо делать и в ранних версиях Delphi, в которых свойство Anchors отсутствует.

Местоположение компонента задается свойствами Left и Тор, характеризующими координаты левого верхнего угла компонента. При этом началом координат считается левый верхний угол клиентской области компонента-контейнера. Горизонтальная координата отсчитывается вправо от этой точки, а вертикальная — вниз.

Размеры компонента определяются свойствами Width — ширина и Height — высота. Есть еще одно свойство BoundsRect, характеризующее одновременно и местоположение, и размеры компонента, но оно менее удобно и используется редко.

Имеется еще два свойства, определяющие размер клиентской области компонента-контейнера: ClientWidth и ClientHeight. Для некоторых компонентов они совпадают со свойствами Width и Height, но могут и отличаться от них. Например, в форме ClientHeight меньше, чем Height, за счет бордюра, полосы заголовка, меню и полосы горизонтальной прокрутки, если она имеется.

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

StaticTextl.Left:=Panel2.Left+(Panel2.ClienWidth - StaticTextl.Width) div 2;

ListBoxl.Height := Panell.ClientHeight - ListBoxl.Top - 20;

Первый из этих операторов сдвигает левый край компонента StaticTextl так, чтобы метка всегда размещалась в середине панели Рапе12. Только чтобы это нормально работало, надо убрать привязку метки к правому краю панели, которая была введена нами ранее, иначе размер метки все-таки будет меняться. Второй из приведенных операторов изменяет высоту списка ListBoxl при изменении высоты панели Panell. Этот оператор не нужен в Delphi 5, если в списке используется, как описано выше, свойство Anchors.