352______________________________________________ 51

   ,   ,!
.         -1
 ,     OnMouseMove:

Image3->Canvas->Pixels[X][] = Imagel->Canvas->Brush->Color;

       . , 
       .   
   OnMouseMove       ,"
 .       ,   .
,      . , '
,     LineTo,    ;:':

OnMouseMove 

Image3->Canvas->LineTo(X,Y) ;

    ,    . 5.1
  .    FillRect, 
    . ,      :;

    5.1.4.     .
   SavePictureDialog 

if (SavePictureDialogl->Execute())
(

BitMap->Assign(Image3->Picture);

BitMap->SaveToFile(SavePictureDiaiogl->FileName) ;

}

      Bitmap,   ,
SaveToFile     .

      

void _fastcall TFormI::MCopyClick(TObject *Sender)
(

//  )
Image3->Canvas->DrawFocusRect(R) ;

//    

Graphics::TBitmap *BMCopy = new Graphics::TBitmap;

BMCopy->Width = R.Right - R.Left;

BMCopy->Height = R.Bottom - R.Top;

try

(
//    

BMCopy->Canvas->CopyRect(Rect(0,0,BMCopy->Width,

BMCopy->Height),Image3->Canvas,R)
//  

Image3->Canvas->DrawFocusRect(R) ;

//   Clipboard
Clipboard()->Assign() ;

if (Sender == MCut)

(
// 

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

Image3->Canvas->FillRect(R) ;

1
}

finally
f

/  
BMCopy->Free() ;

)