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
| jViseur *Viseur;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Viseur = new jViseur(this, Canvas);
Viseur->Rayon = 25;
}
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(Button == mbLeft)
{
Screen->Cursor = crNone; //fait disparaître le curseur de la form
Viseur->Show(X,Y);
}
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Viseur->Move(X,Y);
}
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Screen->Cursor = crDefault; //rétablit le curseur de la form
Viseur->Hide();
}
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Viseur->Visible)
{
if(Key == '>') Viseur->Rayon += 1;
if(Key == '<') Viseur->Rayon -= 1;
}
} |
Partager