Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p: TPoint;
begin
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(Round(Image1.Width / 2), Round(Image1.Height / 2));
Image1.Canvas.LineTo(p.x, p.y);
end;
So.^^
Was du jetzt noch auf das Form klatschen musst, solltest selbst erkennen, sonst gibt es echt keine Hoffnung *sry*
Was für eine Programmiersprache kannst du denn? So wie du dich hier anstellst eher gar keine... Und Informatik gewählt, bei dem logischen Denkvermögen, was du hier an den Tag legst? cO *Sorry*
//Edit: Rechtschreibfehler wtf... cO xD
//Edit 2: Round eingefügt