TListBox.Init описывается следующим образом:

     constructor TListBox.Init(AParent: PWindowsObject;
                             AnID: Integer; X, Y, W, H: Integer);

    Все объекты управляющих элементов ObjectWindows (кроме TMDIClient) требуют не менее 6 параметров. Большинство из них воспринимают также параметр, задающий текст управляющего элемента.

    Порождающие окна автоматически поддерживают список своих дочерних окон, включая управляющие элементы. Однако удобнее манипулировать управляющими объектами, когда имеются соответствующие поля объекта. Управляющие элементы, с которыми часто работать не требуется (такие как статический текст или групповые блоки) могут не иметь соответствующих полей.

    При наличии поля объекта построение объекта управляющего элемента не представляет труда. Например, чтобы добавить в TSampleWindow групповой блок, нужно сделать следующее:

     constructor SampleWindow.Init(AParent: PWindowsObject;
                                   ATitle: PChar);
     begin
        inherited Init(AParent, ATitle);
        TempGroupBox := New(PListBox,
                           Init(@Self, id_LB1, 'Group name',
                           140, 20, 100, 80));
     end;

    Заметим, что инициализация управляющего элемента, такая как добавление строк в блок списка, должна выполняться в SetupWindow, а не в конструкторе. Вызов такого метода как TListBox.AddString приводит к передаче сообщений экранному управляющему элементу. Так как экранный элемент до вызова наследуемого метода SetupWindow не создается, попытки инициализации управляющих элементов до этого момента завершится неудачно.

    TListBox получает используемый по умолчанию стиль управляющего элемента ws_Child or ws_Visible, затем прибавляется lbs_Standard. lbs_Standard - это комбинация lbs_Notify (для получения уведомляющих сообщений), ws_VScroll (для получения вертикально полосы прокрутки), lbs_Sort (для сортировки списка элементов в алфавитном порядке) и ws_Border (для вывода рамки). Если вы хотите получить другой стиль блока списка, то можете модифицировать поле Attr.Style в TListBox. Например, для блока списка, не сортирующего свои элементы, можно использовать следующее:

     LB1 := New(PListBox, Init(@Self, id_LB1, 20, 20, 340, 100));
     LB1^.Attr.Style := LB1^.Attr.Style and not lbs_Sort;

    Приведем пример метода порождающего окна по обработке сообщений блока списка:

     procedure TLBoxWindow.HandleLB1Msg(var Msg: TMessage);
     var
      Idx: Integer;
      ItemText: string[10]
     begin
      if Msg.lParamHi=lbn_SelChange then
      begin
       Idx:=LB1^.GetSelIndex;
       if LB1^.GetStringLenIdx)<11 then
        begin
         LB1^.GetSelString(@ItemText, 10);
         MessageBox(HWindow, @ItemText, 'Вы выбрали:', mb_OK);
        end;
      end;
        else DefWndProc(Msg);
      end;

    Пользователь делает выбор, если Msg.lParamHi совпадает с константой lbn_SelChange. Если это так, то берется длина выбранной строки, проверяется, что она помещается в строку из 10 символов, и выбранная строка показывается в блоке сообщения.

    Кроме обычных параметров Init управляющего объекта, TStatic.Init имеет два дополнительных параметра - текстовую строку ATitle и максимальную длину текста ATextLen. Текст должен заканчиваться нулевым символом, поэтому в действительности число отображаемых символов на единицу меньше заданной в конструкторе длины текста. Типичный вызов для построения статического управляющего элемента может выглядеть так:

     Stat1 := New(Static, Init(@Self, id_ST1, '&Text', 20, 50,
                               200, 24, 6));

    После его создания обращаться к статическому управляющему объекту или манипулировать им требуется редко, поэтому поле, содержащее статический управляющий объект, в общем случае присваивать не нужно.

    Используемым по умолчанию стилем статического управляющего элемента является назначенный по умолчанию стиль управляющего элемента, то есть ws_Child or ws_Visible (выравнивание влево). Чтобы изменить стиль, модифицируйте поле Attr.Style. Например, чтобы центрировать текст управляющего элемента, сделайте следующее:

     Stat1^.Attr.Style := Stat1^.Attr.Style and (not ss_Left) or
                          ss_Center;

    В статическом управляющем элементе есть возможность подчеркивания одного или нескольких символов в строке текста. Реализация и действие этого эффекта аналогичны подчеркиванию первого символа в выборе меню: Insert и & должны непосредственно предшествовать символу в строке, который будет подчеркиваться. Например, для подчеркивания T в слове 'Text' нужно в вызове Init строку '&Text'. Если в строке вам нужно использовать &, применяйте статический стиль Windows ss_NoPrefix (см. Рис. 12.2). Для уточнения текущего текста, который хранится в статическом управляющем элементе, используется метод GetText.

    Для изменения текста статического управляющего элемента TStatic имеет два метода. SetText устанавливает статический текст, передаваемый аргументом PChar. Clear удаляет статический текст. Однако, вы не можете сменить текст статического управляющего элемента, созданный со стилем ss_Simple.

    Чтобы считать текст, содержащийся в статическом управляющем элементе, используйте метод GetText.

    Типичный конструктор для обычной кнопки выглядит так:

     Push1 := New(PButton, Init(@Self, id_Push1, 'Test Button',
                  38, 48, 316, 24, False));

     procedure TestWindow.IDBut1(var Msg: TMessage);
     begin
       MessageBox(HWindow, 'Clicked', 'The Button was:' mb_OK)
     end;

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

    Для обоих видов блоков выбора синтаксис идентичен. Конструкторы различаются только присваиваемым стилем, используемым по умолчанию. Типичное использование конструкторов блока выбора имеет вид:

     GroupBox1 := New(PGroupBox, Init(@Self, id_GB1,
                      'A Group Box', 38, 102, 176, 108));

     ChBox1 := New(PCheckBox, Init(@Self, id_Check1,
                 'Check Box Text', 235, 12, 150, 26, GroupBox1));

    Кнопки с независимой фиксацией по умолчанию инициализируются со стилем bs_AutoCheckBox, а кнопки с независимой фиксацией имеют стиль bs_AutoRadioButton. В соответствии с этими стилями в каждый момент времени может выбираться только одна клавиша выбора в группе. Если одна выбрана, то другие автоматически остаются невыбранными.

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

    Когда вы используете данные методы с кнопками с зависимой фиксацией, ObjectWindows обеспечивает выбор в группе только одной кнопки с зависимой фиксацией.

    Для определения состояния блока возвращаемое GetCheck значение можно сравнить с заданными константами bf_Unchecked, bf_Checked и bf_Grayed.

    Примечание: Использование кнопок обоих видов показано в примере программы BtnTest на ваших дистрибутивных дисках.

    Типичное использование конструктора группового блока может быть следующим:

     GroupBox1 := New(PGroupBox, Init(@Self, id_GB1, 'A Group Box',
                      38, 102, 176, 108));

     constructor TSomeWindow.Init(AParent: PWindowsObject;
                                  ATitle: PChar);
     begin
       inherited Init(AParent, ATitle);
       Group := New(PCheckBox, Init(@Self, id_TheGroup,
                    'Various boxes', 10, 01, 100, 50));
       FirstCheck := New(PCheckBox, Init(@Self, id_FirstCheck,
                         'One', 15, 20, 90, 10, Group));
       SecondCheck := New(PCheckBox, Init(@Self, id_SecondCheck,
                          'Two', 15, 20, 90, 10, Group));
     end;

    Заметим, что передаваемый блоку выбора параметр группы - это указатель на объект блока группы, а не идентификатор группового управляющего элемента (как в API Windows). Использование указателя позволяет вам строить объекты перед созданием методом SetupWindows порождающего окна экранных элементов.

    Если вы зададите нулевую ширину вертикальной полосы прокрутки, Windows присвоит ей стандартную ширину (аналогичную полосе прокрутки блока списка). То же самое касается задания нулевой высоты горизонтальной полосы прокрутки. Вызов:

     ThermScroll := New(PScrollBar, Init(@Self, id_ThermScroll,
                        20, 170, 340, 0, True));

создает горизонтальную полосу прокрутки стандартной высоты, как это показано на Рис. 12.5. Init конструирует полосы прокрутки со стилями ws_Child, ws_Visible и sbs_Horz или sbs_Vert для горизонтальной или вертикальной полосы прокрутки соответственно. Разнообразные полосы прокрутки показаны на Рис. 12.6.

Рис. 12.6 Окно с разнообразными полосами прокрутки.

    SetRange - это процедура, которая воспринимает два целочисленных аргумента, наименьшую и наибольшую позицию диапазона. По умолчанию новая полоса прокрутки имеет диапазон от 1 до 100. Вы можете изменить этот диапазон для наилучшего расположения управляющих элементов полос прокрутки. Например, полоса прокрутки в приложении для термостата может иметь диапазон от 32 до 120 градусов Фаренгейта:

     ThermScroll^.SetRange(32, 120);

    SetPosition - это процедура, которая воспринимает один целочисленый аргумент - позицию, в которую нужно переместить указатель полосы прокрутки. В рассмотренном ранее приложении для термостата, ваша программа может непосредственно установить температуру 78 градусов:

     ThermScroll^.SetPosition(78);

    Третий метод DeltaPos передвигает позицию указателя полосы прокрутки вверх (налево) или вниз (направо) на величину, заданную целым аргументом. Положительная целая величина перемещает указатель вниз (направо). Отрицательная целая величина перемещает его вверх (налево). Например, для уменьшения температуры термостата на 5 градусов используется:

     ThermScroll^.DeltaPos(-5);

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

     procedure TestWindow.HandleThermScrollMsg(var Msg:
                                               TMessage);
     var
       NewPos: Integer;
     begin
       if Msg.wParam <> sb_ThumbTrack
        then begin
              NewPos:=ThermScroll^.GetPosition;
              { некоторая обработка на основе NewPos. }
             end;
     end;

    Иногда может потребоваться, чтобы объекты полосы прокрутки сами реагировали на уведомляющие сообщения полосы прокрутки. При этом конкретная реакция поведения должна быть встроена в объект полосы прокрутки. Для программирования объекта полосы прокрутки, который непосредственно реагировал бы на его информационные сообщения, нужно определить для его типа метод реакции, основанный на информации. В качестве идентификатора заголовка метода нужно использовать сумму nf_First и информационного кода полосы прокрутки. Этот процесс описан в разделе "Уведомляющие сообщения управляющих элементов" Главы 16.

    На Рис. 12.7 показано окно с двумя управляющими элементами редактирования.

Рис. 12.7 Окно с управляющими элементами редактирования.

    По умолчанию управляющий элемент редактирования имеет стили ws_Child, ws_Visible, es_TabStop, es_Left и es_AutoHScroll. Так как управляющий элемент должен включать в себя завершающий нулевой символ, параметр длины текста на самом деле на 1 превышает максимальное число символов, допустимых в строке редактирования.

    Если Multiline имеет значение True, то управление редактированием имеет стиль es_MultiLine, es_AutoVScroll, ws_VScroll и ws_HScroll. Приведем типичные конструкторы управляющих элементов редактирования (один для однострочного элемента, другой - для многострочного):

     EC1 := New(PEdit, Init(@Self, id_EC1, 'Default Text', 20, 50,
                150, 30, 40, False));
     EC2 := New(PEdit, Init(@Self, id_EC2, '', 20, 20, 200, 150,
                40, True));

    Чтобы добавить в окно меню редактирования, содержащее управляющий элемент редактирования, определите для окна с помощью команд, перечисленных в Таблице 12.7, ресурс меню. Никаких новых методов вам писать не нужно.

    Имеется также один дополнительный метод в виде булевской функции CanUndo, который определяет, можно ли отменить последнюю операцию редактирования.

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

    Следовательно, при использовании метода запроса для получения определенного числа символов, нужно учитывать эти два символа, которые заканчивают строку. GetText ищет текст в управляющем элементе редактирования. Он заполняет строку, на которую указывает переданный аргумент PChar, содержимым управляющего элемента редактирования, включая перевод строки. Общее число символов задается вторым параметром. Он возвращает значение False, если управляющий элемент редактирования пуст, или содержит текста больше, чем помещается в предоставленную строку. Следующая процедура считывает из управляющего элемента редактирования строку и выделенный текст:

    procedure TTestWindow.ReturnText(RetText: PChar);
    var TheText: array[0..20] of Char;
    begin
     if EC1^.GetText(@TheText, 20) then
      RetText:=@TheText
     else RetText:=nil;
    end;

    procedure TTestWindow.ReturnText(RetText: PChar);
    var TheText: array[0..20] of Char;
    begin
      RetText:=nil;
      with EC^ do
      if NumLines >= LineNum then
         if LineLength(LineNum) < 11 then
             if GetLine(@TheText, 20, LineNum) then
                 RetText := @TheText;
     end;

     procedure TestWindow.ReturnLineText(RetText: PChar;
                                         LineNum: Integer);
     var
       TheText: array[0..20] of Char;
     begin
       with EC1^ do
       begin
         GetSelection(SelStart, SelEnd);
         GetSubText(TheText, SelStart, SelEnd);
       end;
         RetText := TheText;
     end;

    С точки зрения пользователя между различными стилями комбинированных блоков существуют следующие различия:

• Простые комбинированные блоки.
  Простой комбинированный блок не может делать область списка скрытой. Его область редактирования ведет себя аналогично управляющему элементу редактирования. Пользователь может вводить и редактировать текст, и текст не обязан совпадать ни с одним из элементов в списке. При совпадении выбирается соответствующий элемент списка.
• Раскрывающиеся комбинированные блоки.
  Раскрывающиеся комбинированные блоки ведут себя аналогично простым комбинированным блокам, но с одним исключением. В начальной стадии работы их область списка не отображается. Она появляется, когда пользователь нажимает стрелку вниз, расположенную справа от области редактирования. Раскрывающиеся комбинированные блоки и раскрывающиеся комбинированные блоки списков очень удобны, когда нужно поместить большое число управляющих элементов в маленькую область. Когда они не используются, то занимают значительно меньшую площадь, чем простой комбинированный блок или блок списка.
• Раскрывающиеся комбинированные блоки списка.
  Область списка в раскрывающемся комбинированном блоке списка ведет себя подобно области списка в спускающемся комбинированном блоке - появляется при необходимости и исчезает, когда не нужна. Эти два типа комбинированных блоков отличаются поведением их областей редактирования. Раскрывающиеся области редактирования ведут себя подобно обычным управляющим элементам редактирования. Раскрывающиеся области редактирования списка ограничиваются только отображением одного элемента списка. Если редактируемый текст соответcтвует элементу списка, то никаких дополнительных символов ввести нельзя.

    Все комбинированные блоки, построенные с помощью Init, имеют стили ws_Child, ws_Visible, cbs_AutoHScroll, cbs_Sort (отсортированный список), и VScroll (вертикальная полоса прокрутки). Параметр стиля - это один из стандартных стилей комбинированных блоков Windows: cbs_Simple, cbs_DropDown или cbs_DropDownList. Параметр длины текста работает подобно соответствующему параметру управляющего элемента редактирования, ограничивая число символов, которые можно ввести в область редактирования комбинированного блока.

    Следующие строки приведут к созданию спускающегося комбинированного блока списка с неотсортированным списком:

     CB3: = New(PComboBox, Init(@Self, id_CB3, 190, 160,
                150, 100, cbs_DropDownList, 40));
     CB3^.Attr.Style:=CB3^.Attr.Style and (not cbs_Sort);

    В каждом типе управляющего элемента хранится различная информация. Буфер передачи для каждого стандартного управляющего элемента поясняется в следующей таблице:

    Тип TScrollBarTransferRec имеет вид:

     TScrollBarTransferRec := record
      LowValue : Integer;
      HighValue: Integer;
      Position : Integer;
     end;

    Для управляющих элементов, построенных с помощью InitResource, механизм передачи разрешается автоматически.

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

    Метод Transfer должен всегда возвращать число переданных байт информации.

    ObjectWindows дает вам возможность простого доступа к BWCC, так что вы можете придать своим приложениями стандартный для Borland вид.

    Использование BWCC автоматически позволяет вам делать следующее:

• использовать загружаемые из ресурсов управляющие элементы BWCC;
• создавать в вашей программе BWCC.

    Например, с помощью пакета разработчика ресурсов Resource WorkShop вы можете создать ресурсы диалоговых блоков, использующие специализированные управляющие элементы Borland. Включение в оператор uses программы модуля BWCC обеспечивает для вашей программы информацию о том, где искать динамически компонуемую библиотеку (BWCC.DLL), содержащую код, который обеспечивает работу BWCC.

    Кроме того, после добавления модуля BWCC любые создаваемые в программе объекты управляющих элементов будут иметь вид и характеристики управляющих элементов Borland.

    В своих приложениях вы можете обеспечить для командных кнопок собственные графические образы. Все что нужно предусмотреть это шесть ресурсов графических изображений (битовых массивов), пронумерованных относительно идентификатора управляющего элемента вашей командной кнопки. Например, если вы хотите создать графическую командную кнопку с идентификатором id_MyButton, то создаете ресурсы битовых массивов с идентификаторами ресурса 1000 + id_MyButton, 2000 + id_MyButton, 3000 + id_MyButton, 4000 + id_MyButton, 5000 + id_MyButton и 6000 + id_MyButton. Каждый представляемый битовый массив показан в следующей таблице:

    Графические образы командных кнопок VGA должны иметь ширину 63 и высоту 39 элементов изображения. Графические образы командных кнопок EGA должны иметь ширину 63 и высоту 39 элементов изображения.

    Для текста следует использовать шрифт Helvetica размером 8 пунктов, а вокруг образа кнопки, находящейся в фокусе, следует выводить рамку из точек. Набор графических изображений для командных кнопок с идентификатором 201 показан на следующем рисунке:

Рис. 12.9 Графические ресурсы для командной кнопки BWCC с идентификатором 201.