  ___________________________________351

     .  -
   OnMouseDown   :

 = ;

YO = Y;

XI = X;

Y1 = Y;

Image3->Canvas->Pen->Mode = pmNotXor;

Image3->Canvas->Pen->Color = Imagel->Canvas->Brush->Color;

       : (XO,YO) 
(XI, Y1).        .  -
     pmNotXor,      
 .

  OnMouseMove   :

//   
Image3->Canvas->MoveTo(,YO) ;

Image3->Canvas->LineTo(XI,Y1) ;

//   
Image3->Canvas->MoveTo(XO,YO) ;

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

//     
XI = X;

Y1 = Y;

      MoveTo  LineTo   
 ,         . -
      .

 ,    .   ,  -
   :

Image3->Canvas->LineTo(XO,YO) ;

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

     ,     -
        ( -
,      XI, Y1).     
.      .

    -  :  LineTo  ,
         ,
   . ,     pmNotXor
  ,       ,  -
     (XO,YO)       -
  ,        -
  .  ,      
  ,       
.

    OnMouseUp  -
 ,       ,   -
  :

//   

Image3->Canvas->MoveTo(XO.YO);

Image3->Canvas->LineTo(XI,Y1) ;

//   )

Image3->Canvas->Pen->Mode = pmCopy;

Image3->Canvas->MoveTo(XO.YO) ;

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