1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
int X_cen,Y_cen;
X_cen=X; Y_cen=Y;
// pour affichage des coordonées de la souris sur la status bar, et cela pour vérifier s'il prend les valeur du centre ou non
StatusBar1->Panels->Items[0]->Text=IntToStr(X_cen)+","+IntToStr(Y_cen)+"#"+IntToStr(Image1->Canvas->Pixels[X_cen][Y_cen]&0xFF);
}
void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
{
// Pour afficher la longueur du rayon du cercle
Edit1->Text=UpDown1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1DblClick(TObject *Sender )
{
int R,x1,x2,y1,y2;
R=UpDown1->Position;
x1=X_cen-R;
y1=Y_cen-R;
x2=X_cen+R;
y2=Y_cen+R;
Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->Brush->Style=bsClear; //Color=clBlue;
Image1->Canvas->Ellipse(x1,y1,x2,y2);
} |
Partager