Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Muss einen Kompass programmieren...

    Delphi
    by static_cast, 19. Nov 2007
  Zwar nicht unbedingt ein Kompass aber nunja, aber mir war langweilig gerade :D
  
  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;