1012  15

 TGraphic, TBitmap, TIcon, TMetafile, TPicture



virtual void _fastcall SaveToStream(Classes::TStream* Stream) = 0;



 SaveTo Stream    Stream  
. , ,     TBIobStream -
    .

ScaleBy

        
 TWinControl



void   fastcall ScaleByfint M, int D) ;



 ScaleBy         -
.    ,  Width  Height, -
  .    Left  . -
   ,       ParentFont =
true.          -
  .

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

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

     4   4.2.5.



1. 

Editl->ScaleBy(ll,10);

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

2.     OnKeyUp   Editl
     .   -