212______________________________________________ 3

if (FontDialogl->Execute())
Memol->Font->Assign(FontDialogl->Font);

       ,  -
  ,     , -
   FontDialogl->Font,    ,
   Memol->Pont.     -
 .

     FontDialogI  fdApplyButton,  -
    OnApply:

Memol->Font->Assign(FontDialogl->Font);

       Memol,  
       .   , 
      .

         
RichEdit,        
       .  
     :

FontDialogl->Font->Assign(RichEditl->SelAttributes) ;

if (FontDialogl~>Execute())

RichEditl->SelAttributes->Assign(FontDialogl->Font) ;

          
  ,     . 
   ,  ,   -
    .

        
,        .  
:

if (FontDialogl->Execute())

Font->Assign(FontDialogl->Font) ;

    Font     
 .

3.6.5      ColorDialog

 ColorDialog     , -
  . 3.44.          ,
       ( . 3.44 
),   ,   . -
          -
         .

   ColorDialog  Color.   -
  ,     .    
     ,   -
,  Color      .

 CustomColors  TStrings     -
 .     

< >=<  >;

    ColorA ( )  ColorP (, -
). ,

i-r,1 =22