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        .  -