Minipaint - Kreis von Mittelpunkt aufziehen

[hanselmansel]

HiHo,

es wäre ganz sinnig, zu schreiben, _wie_ Delphi meckert. Es kann nämlich schon mal sein, dass mindestens drei Variablen nicht deklariert sind. Und wenn ich Compiler wäre und du mir ein Kuckucksei unterschieben versuchst, würde ich auch protestieren. :zwinker:

Du Quadrat(wurzel)-Funktionen schaust du dir am besten mal SQR und SQRT an. Für keine von beiden brauchst du die math.pas...

MfG,

hanselmansel

[co0kie]

Hey hanselmansel!
Was soll "distance" angeben?
Ich versteh nicht so ganz, was das da alles bedeuten soll mit aRect und distance.

Sorry, wenn ich nerve, aber ich kriegs beim besten willen nicht hin.

[Khabarakh]

Distance und Radius sollen wohl dasselbe sein. aRect (warum dieser Prefix btw?) ist das Rechteck, das die Ellipse umgibt ("Bounding-Rect"):

Delphi-Quellcode:

// Etwas vereinfacht:
TRect = record
  Left, Top, Right, Bottom: Integer;
end;

Das umgebende Rechteck bekommst du sozusagen, wenn du vom Mittelpunkt aus in alle vier Himmelsrichtungen Distance/Radius weit gehst.

[hanselmansel]

HiHo Co0kie,

da ich - wie du dir sicherlich schon gedacht hast - das Programm mal in Delphi getippt habe (um zu gucken, ob das auch stimmt, was ich poste) habe ich den Code nun ein wenig verändert:

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  Radius_real :Real;
  Radius      :Integer;
  
begin
Radius_real := SQRT( SQR(Center.X - X) + SQR(Center.Y - Y) );
Radius := Trunc(Radius_real); //Nachkommastellen abschneiden
//Variante 1
Form1.Canvas.Ellipse(Center.X-Radius, Center.Y-Radius, Center.X+Radius, Center.Y+Radius);

//Variante 2
{aRect.Left := Center.X - distance;
aRect.Top := Center.Y - distance;
aRect.Right := Center.X + distance;
aRect.Bottom := Center.Y + distance;
Form1.Canvas.Ellipse(aRect); }
end;

Die Herangehensweise ist die Selbe, aber evtl. ein wenig einfacher zu verstehen. :thumb:

[co0kie]

Hanselmansel, du bist ein Genie :mrgreen:
Ich hab es endlich hinbekommen :)

Jetzt hab ich aber noch ein letztes Problem:
Wie lasse ich den Cursor zu einem weißen rechteck werden?

[runger]

Hallo hanselmansel,

behaupte doch bitte nicht Dinge die ganz eindeutig falsch sind.
Dazu braucht man eben nicht den Pythagoras.
Vielleicht liest das jemand, den du dann total verunsicherst.
Ausserdem erklärt mein Beitrag die mathematischen Grundlagen zu diesem thread und
genau darum geht es.
Ich erklär dir das gerne nocheinmal ( privat per mail ).

Rainer

[Khabarakh]

Zitat:

Zitat von runger

Hallo hanselmansel,

behaupte doch bitte nicht Dinge die ganz eindeutig falsch sind.
Dazu braucht man eben nicht den Pythagoras.

Dann würde ich gerne deine Lösung für das Problem sehen. Denn dein Codeschnippsel oben erfüllt nicht die von c0okie genannten Bedingungen. Er will, dass der Mittelpunkt des Kreises beim Drücken der Maustaste festgelegt wird und der Punkt beim Loslassen Element des Kreises ist.
Man könnte es auch so verstehen, dass der X- oder Y-Wert des Cursors den Kreis bestimmt, dafür wäre wirklich kein Pythagoras nötig. Aber für den Benutzer ist diese Möglichkeit IMO sinnlos und verwirrend.

[ichbins]

Schau dir mal form1.cursor an. Du kannst auch eine selbst erstellte Cursordatei verwenden. Wie das geht kannst du bestimmt über die Suche ermitteln: cursor einbinden

[jamma-markus]

so, die aufgabe kenn ich auch, aber wie zeichne ich ein exaktes quadrat immer nach der längsten seite?

[Khabarakh]

Zitat:

Zitat von jamma-markus

so, die aufgabe kenn ich auch

Was für eine Aufgabe?

Zitat:

aber wie zeichne ich ein exaktes quadrat immer nach der längsten seite?

Wie meinen :gruebel: ?

Sorry, aber ich verstehe kein einziges Wort deines Posts.