958 Глава 15

void   fastcall TFormI::FormCreate(TObject *Sender)
{

ComboBoxl->Items = Screen->Fonts;

ComboBoxl->ItemIndex = 0;

»

void _fastcall TFormI::ComboBoxIClick(TObject *Sender)
{

Memol->Font->Name = ComboBoxl->Items->Strings[ComboBoxl->ItemIndex] ;

)

4. Для того, чтобы посмотреть влияние на отображаемый текст свойства Charset.
определяющего набор символов шрифта, можно добавить на форму компонент
редактирования (например, CSpinEdit) и кнопку, в обработчик события ОпС-
lick которой ввести оператор:

Memol->Font->Charset = CSpinEditl->Value;

5. Чтобы посмотреть влияние на отображаемый текст свойства Pitch, можно до-
бавить на форму еще один компонент ComboBox, задать в его свойстве Items
строки «fpDefault», «fpFixed» и «fpVariable», а в событие OnClick вставить код:

switch (ComboBox2->ItemIndex)
{

case 0: Memol->Font->Pitch = fpDefault;

break;

case 1: Memol->Font->Pitch = fpFixed;

break;

case 2: Memol->Font->Pitch = fpVariable;

Grouplndex — свойство разделов меню

Определяет логическую группу, к которой относится раздел главного меню и
которая используется при объединении меню нескольких форм

Класс TMenuItem

Определение

_property Byte Grouplndex

Описание

Свойство Grouplndex определяет способ объединения меню. В MDI приложе-
ниях меню дочерних форм всегда объединяются с меню родительской формы. В
приложениях с несколькими формами наличие или отсутствие объединения опре-
деляется свойством AutoMerge компонента типа TMainMenu.

По умолчанию все разделы меню имеют одинаковое значение Grouplndex.
Если требуется объединение меню, то разделам надо задать не убывающие номера
свойств Grouplndex. Тогда, если разделы встраиваемого меню имеют те же значе-
ния, что и какие-то разделы меню основной формы, то эти разделы заменяют соот-
ветствующие разделы основного меню. В противном случае разделы вспомогатель-
ного меню встраиваются между элементами основного меню в соответствии с номе-
рами Grouplndex. Если встраиваемый раздел имеет Grouplndex меньший, чем лю-
бой из разделов основного меню, то разделы встраиваются в начало.

Когда активизирован объект, созданный сервером OLE 2.0, сервер может по-
пытаться объединить свое меню с меню кон', "йнера приложения. Тогда свойство
Grouplndex используется для замены до трех эазделов главного меню. Для заме-