   341

. 5.11


 
:



 () 
 

,

  ()

5.      TSpeedButton     
  .        -
  .   SBBrush.   -
  Grouplndex  1   AllowAHUp  true.  
         -
 (.  3.3.3).     Glyph 
 ( ..\lmages\Buttons\brush.bmp).

6.        TSpeedButton   
 SBBrush.        -
.   SBColor.    ,    ,
 Grouplndex  1 ( ,      
  )   AllowAHUp  true.   
   Glyph      (,      ..\lmages\   But-
tons\one2one.bmp).

7.     OpenPictureDialog.

8.      MainMenu.      
 .    .    -
     .    Undo.

        -
.    .

9.      :

Graphics : :TBitmap *BitMap = new Graphics : .TBitmap;

    BitMap  TBitmap.     -
 ,       -
.

10.   OnCreate    :

//       

Imagel->Canvas->Brush->Color = clBlack;

Image2->Canvas->Brush->Color = clWhite;

//      

Imagel->Canvas->FillRect(Rect(0,0,Imagel->Width,Imagel->Height));

Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height)) ;

//     

int HW = Image4->Width / 10;

//    