      ______________295

    , 
 PixelsPerInch,       
 .      -
,        -
   .

Screen   Forms[int Index],   , -
     ,   FormCount,  
 .     , ,  ,  -
,           
 .     :

for (int 1=0; I < Screen->FormCount; I++)

(

if (Screen->Forms [I]->Height > Screen-height)
Screen->Forms [I]->Height = Screen-height - 100;

if (Screen->Forms[I]->Width > Screen->Width)
Screen->Forms[I]->Width = Screen->Width - 100;

}

 ,   ,     
 100 .

   , , ,   
         -
.       4.2.

 ,   ,        (. -
 9.11.9).  DataModules[int Index]    -
      ,   DataModuleCo-
unt    .      -
       .

     Screen  Fonts ().  
 TStrings   ,     (-
   ).     ,  ,
       ,   .
         ,
        ,   
    . ,   -
      TComboBox    
OnCreate       :

:      ComboBoxl->Items = Screen->Fonts;

ComboBoxl->ItemIndex = 0;

         
,   ,    , ,    -
 RichEditI,    OnClick  OnChange  
:

RichEditl->SelAttributes->Name =

ComboBoxl->Items->Strings[ComboBoxl->ItemIndex] ;

RichEditl->SetFocus();

        , 
  ParentFont   true,    
  :

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

I        Cursor  Screen   .   

    crDefault,        
       Cursor.    Cursor  Screen