   ______________251

   D    ,    -
.    ,  Width  Height, -
  .    Left  . 
  ,       ParentFon = true.
          
.

   ,   , 
    .     
 Width  Height,       Left, -
  .      
ParentFont = true,   - ParentFont = false,  -
      (, ,  , 
,      ).

  and D      -
. ,     10%   , -
    9,  D  10 (9/10).      
 1/3,    =133  D=100 (133/100)  =4  D=3 (4/3).

 . 

Editl->ScaleBy(ll,10) ;

   Editl.      
   ( Width)   10%,  
        .  
( Height)   ,    -
 AutoSize  false.      
       .   
 ,     ParentFont  false, .. -
    .    AutoSize
= true  ParentFont = true     , ..
    

Editl->Width = 11 * Editl->Width / 10;

 .

      
     .    ,
,   Alt+U  Alt+D,    -
       .   ,
     OnKeyUp (,  
,    4.3.2):

void_fastcall TFormI::EditlKeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)
(

if ((Key == 'U') && Shift.Contains(ssAlt) )
Editl->ScaleBy(11,10);

else if ((Key == 'D') && Shift.Contains(ssAlt))
Editl->ScaleBy(10,ll) ;

)

 Editl   ,     Alt 
 U (         
 )      10%,    Alt
 D  .

    ParentFont = false,   -
        .  
  ,        
, ,   .  . 4.10  