Delphi-Quellcode:
var
Form1: TForm1;
startX, startY, radius: Integer;
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
startX := X;
startY := Y;
if ssLeft in Shift then
PaintBox1.Canvas.Ellipse(startX-radius,startY+radius,startX+radius,startY-radius);
end;
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
radius := SpinEdit2.Value;
end;
end.
hier bitte (is n bissl verkützt, aber ich denk des entscheidende is dabei)
Ich versteh auch nicht ganz, was n String ist?!? (bin noch Anfänger)
Also am coolsten wär, wenn jemand mir n Lösungsvorschlag machen würd!
mfg