, , , , _______________________1013

  Alt-U  Alt-D     
.

void _fastcall TFormI::EditlKeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)
(

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

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

)

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

ScaleControls_________________________________________

    ,   -
  

 TWinControl



void _fastcall ScaleControls(int M, int D) ;



 ScaleControls   ,   
,     .  ScaleControls 
 ChangeScale    .    Sca-
leBy ,      .

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

 .   ChangeScale  ScaleBy.

S creenToClient

       
 TControl



struct TPoint
(

int x;

int ;

Windows::TPoint _fastcall ScreenToClient(const Windows::TPoint &Point) ;



 ScreenToClient       -
 (      )    -
   (      
).