  _________________________________343

     ,   BitMap.

14.    OnClick  SBBrush  SBColor  

if (((TSpeedButton *)Sender)->Down)
BitMap->Assign(Image3->Picture);

    BitMap     
   .

15.    OnMouseDown  ImageS  Image4 
:

if((Sender == Image4) || SBColor->Down)
//      
(

if(Button == mbLeft)
{
//   

Imagel->Canvas->Brush->Color = ((TImage *)Sender)->Canvas->
Pixels[X][Y] ;

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

}

else
(
//   

Image2->Canvas->Brush->Color = ((TImage *)Sender)->Canvas->
Pixels[X][Y] ;

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

t
)

else if (SBBrush->Down)

//     
(

if (Button==mbLeft)
Image3->Canvas->Brush->Color = Imagel->Canvas->Brush->Color;

else Image3->Canvas->Brush->Color = Image2->Canvas->Brush->Color;

Image3->Canvas->FloodFill(X,Y,Image3->Canvas->Pixels[X][Y],
fsSurface) ;

}

  ,      -
 ,        . 
      Image4    SBColor  -
   ,       -
.           -
    ,         -
 .

      Image3     SBBrush
,         -
.           
     FloodFill   ,
      ,    
,    .

  .  ,    -
   , ,  ,      -
  .

 ,    .  -
 .            
      .   -
     ,         -