, , , , _____________________993

Imagel->Canvas->DrawFocusRect(Rect(XO-5,YO-5,+5,YO+5) ) ;

//  

Imagel->Canvas->DrawFocusRect(Rect(X-5,Y-5,X+5,Y+5)) ;

//   

 = X;

YO = Y;

//

void _fastcall TFormI::ImagelMouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)
{

iff!drag) return;

//  

Imagel->Canvas->DrawFocusRect(Rect(XO-5,YO-5,XO+5,YO+5)) ;

//     

drag = false;

}

      ,  
      ( drag = true).  -
        , -
         .  -
         .

Ellipse

    
 TCanvas



void _fastcali Ellipse(int XI, int Yl, int X2, int Y2) ;



 Ellipse        
 Pen.     Brush.  (XI, Yl)  (X2,
Y2)  ,  .

 Windows 95/98  XI + X2, Yl + Y2  XI + X2 + Yl + Y2  
 32768.





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

Imagel->Canvas->Brush->Style = bsDiagCross;

Imagel->Canvas->Ellipse(0, 0, Imagel->Width, Imagel->Height);

 ,    Imagel    -
.

EnabIeAlign__________________________________________

. DisableAlign

Exchange

    
 TList, TStringList, TStrings

32 .764