Muss einen Kompass programmieren...

[static_cast]

Zwar nicht unbedingt ein Kompass aber nunja, aber mir war langweilig gerade

Code:

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
   TPoint p = Image1->ScreenToClient(Mouse->CursorPos);

   Image1->Canvas->Brush->Color = Form1->Color;
   Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);

   Image1->Canvas->Brush->Color = clGreen;
   Image1->Canvas->Ellipse(0,0,Image1->Width,Image1->Height);
   Image1->Canvas->MoveTo(Image1->Width / 2,Image1->Height / 2);
   Image1->Canvas->LineTo(p.x,p.y);
}

//Edit: Ach huch das war ja ein BCB-Projekt, habs nimma gemerkt Naja hat er noch etwas zu tun

[edit=Phoenix]Delphi- in C-Codes geändert. Dann liest es sich besser. Mfg, Phoenix[/edit]