Объекты окон (или оконные объекты) - это интерфейсные объекты, предназначенные для облегчения работы с окнами. В данной главе поясняется, как создавать и заполнять окна приложения. Это предусматривает следующие задачи:

• Инициализацию оконных объектов.
• Установку атрибутов создания.
• Создание экранных элементов окна.
• Установку атрибутов регистрации.
• Использование специализированных окон.
• Прокрутку окон.

    Init создает новый оконный объект и устанавливает поле Title в Attr в передаваемый аргумент PChar. Первый аргумент вызова Init - это оконный объект порождающего окна. Если окно является основным окном (не имеющим порождающего окна), то это nil.

    В качестве альтернативы вы можете не определять потомка типа окна, а сначала построить объект окна, а затем переустановить его атрибуты (все это в конструкторе Init порождающего окна):

     constructor TWindowType.Init(AParent: PWindowsObject;
                                  ATitle: PChar);
     begin
        inherited Init(AParent, ATitle);
        Attr.Menu := LoadMenu(HInstance, 'TheMenu');
        AChildWindow := New(PChildWindowType, Init(@Self,
                            'Заголовок дочернего окна'));
        with Attr do
        begin
           Style := Style or ws_PopupWindow or ws_Caption;
           X := 100; Y := 100; W := 300; H := 300;
        end;
            .
            .
            .
     end;

    Это поле стиля отличается от атрибута стиля окна (ws_), задаваемого при инициализации окна, поскольку задает поведение, присущее операциям окна (в отличие от их визуального представления). Это поле может заполняться комбинацией констант стиля (cs_).

    Например, cs_HRedraw приводит к повторному отображению окна при изменении его размера по горизонтали; cs_DoubleClk позволяет окну получать сообщения о двойном нажатии кнопки "мыши"; cs_NoClose предотвращает выбор параметра Close меню Control, а cs_ParentDC дает окну контекст дисплея порождающего окна.

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

    Поле hCursor содержит описатель курсора, который используется для представления указателя "мыши" при позиционировании его в окне.

    Это поле задает фоновый цвет окна. Для большинства приложений используется стандартный назначаемый по умолчанию цвет окна, который может устанавливаться пользователем в управляющей панели. Однако вы можете путем установки этого поля в описатель физической кисти подставить конкретный цвет. Либо вы можете установить любое из значений цветов Windows, такие как color_ActiveCaption. К любому значению цвета всегда добавляйте 1.

    Это поле указывает на имя ресурса меню, которое служит используемым по умолчанию меню для данного класса. Например, если вы определите тип EditWindow, который всегда имеет стандартное меню редактирования, то можете задать здесь это меню. Это устранит необходимость задания меню в методе Init. Если данный ресурс меню имеет идентификатор 'MyMenu', вы можете установить это поле следующим образом:

     
     AWndClass.IpszMenuName := 'MyMenu';

    Чтобы определить тип объекта окна с именем IBeamWindow, который использует вместо стандартной стрелки I-образный курсор, переопределите наследуемый метод следующим образом:

     function TBeamWindow.GetClassName: PChar;
     begin
       GetClassName := 'IBeamWindow';
     end;

    Примечание: Имя класса не обязательно должно соответствовать имени объектного типа.

    Имя класса должно быть уникальным.

    Вы можете использовать файловые окна без модификации как простые автономные текстовые редакторы. Однако, иногда желательно создать производные от TFileWindow типы и обеспечить дополнительные функциональные возможности. Например, можно предусмотреть средство поиска. Помните, что вы все равно будете иметь доступ к управляющему элементу редактирования TFileWindow.Editor.

    Единица прокрутки определяет минимальную величину прокрутки. Она задается в наименьших единицах устройства (обычно в элементах изображения, но может зависеть от текущего режима отображения), на которые вы можете выполнять прокрутку в горизонтальном или вертикальном направлении. Это значение обычно основывается на виде выводимой на экран информации.

    Например, если вы выводите текст с шириной символа 8 элементов изображения и высотой 15, то в качестве значений XUnit и YUnit полезно задать, соответственно, 8 и 15.

    Другие атрибуты прокрутки - строка, страница и диапазон выражаются в единицах прокрутки. Значения Line (строка) и Page (страница) - это число единиц, на которые выполняется прокрутка в ответ на запрос пользователя. Запрос может иметь форму щелчка кнопкой "мыши" на концах полосы прокрутки (построчная прокрутка). Щелчок "мышью" в самой полосе прокрутки (но не на маркере полосы прокрутки) позволяет выполнять постраничную прокрутку. Атрибуты диапазона (XRange, YRange) представляют общее число единиц, на которое можно выполнять прокрутку. Обычно этот диапазон определяется на основе размера редактируемого документа.

    В качестве примера рассмотрим текстовое окно редактирования. Если вы хотите вывести на экран текстовый файл, имеющий 400 строк текста с границей 80 символов и 50 строками на странице, то можно выбрать следующие значения:

    Объект TScroller с данными значениями позволяет выполнять построчную или постраничную прокрутку. С помощью полос прокрутки или автоматической прокрутки выполняется просмотр всего файла.

    По умолчанию XLine и YLine имеют значение 1, так что без явной необходимости устанавливать их в другие значения не нужно. Для установки значений прокрутки на страницу также существует используемая по умолчанию схема, согласно которой страница прокрутки будет соответствовать текущей высоте или ширине области клиента окна (в зависимости от направлений прокрутки). Если вы не хотите переопределить данный механизм, переустанавливать эти значения не требуется.

    В качестве аргументов TScroller воспринимает прокручиваемое окно и начальные значения для полей XUnit, YUnit, XRange и YRange соответственно. Атрибуты строки и страницы получают значения по умолчанию.

    После вывода окна на экран содержимое его области клиента можно прокручивать вертикально и горизонтально, используя для этого полосу прокрутки или автоматическую прокрутку. Метод Pant окна просто рисует на экране графическую информацию, необходимую для уведомления о прокрутке. Как описывается в конце этого раздела, метод Paint можно оптимизировать для вывода только части рисунка.

    Если AutoMode равно False, то прокрутка может выполняться только с помощью полос прокрутки. Полезная особенность автоматической прокрутки состоит в том, что чем дальше вы сдвинете "мышь" от области клиента окна, тем быстрее будет происходить прокрутка окна. В зависимости от удаления мыши приращение прокрутки будет обратно пропорционально значению параметра строк и прямо пропорционально значению параметра страницы.

    Теперь никакой прокрутки не происходит до момента отпускания кнопки на мыши, и в области клиента будет лишь однократно показана нужная часть картинки.

    Метод SetRange воспринимает два целочисленных аргумента число горизонтальных и вертикальных единиц, которые определяют общий диапазон прокрутки. Метод SetRange должен использоваться при изменении размеров картинки. Например, при подготовке изображения картинки шириной 100 единиц и высотой 300, данная команда установит диапазон прокрутки надлежащим образом:

     Scroller^.setRange(100, 300);

    Если при инициализации объекта TScroller единицы неизвестны, то их значения могут быть установлены непосредственно перед прокруткой. Например, они могут быть установлены методом окна SetupWindow:

     procedure ScrollWindow.SetupWindow;
     begin
        TWindow.SetupWindow;
        Scroller^.XUnit:=10;
        Scroller^.YUnit:=20;
     end;

    Приведем другой пример. Если картинка имеет длину 400 единиц в вертикальном направлении, то позицию прокрутки можно переместить к середине картинки следующим образом:

     Scroller^.ScrollTo(0, 200);

    Метод ScrollBy может перемещать позицию просмотра на заданное число единиц вверх, вниз, влево или вправо. Отрицательные значения осуществляют сдвиг к левому верхнему углу, а положительные - к правому нижнему. Если нужно сместиться на 10 единиц вправо и на 20 единиц вниз, то это можно сделать командой:

     Scroller^.ScrollBy(10, 20);

    Затем вы можете непосредственно установить XPage и YPage в конструкторе окна (или в производном конструкторе TScroller):

     constructor ScrollWindow.Init(AParent:PWindowsObject;
                                   ATitle: PChar);
     begin
       inherited Init(AParent, ATitle);
       Attr.Style:=Attr.Style or ws_VScroll or ws_HScroll;
       Scroller:=New(PScroller, Init(@Self, 8, 15, 80, 400));
       Scroller^.XPage:=40;
       Scroller^.YPage:=100;
     end;