Shape-Objekt verändern

[c4t]

Hallo DP'ler,

ich bin erst seit kurzem hier im Forum, finde es aber wirklich gut dass es sowas gibt. Mit Delphi arbeitete ich nun ein halbes Jahr in der Schule, d.h. ich bin noch ein ziemlicher Grünschnabel. Mich beschäftigen aber in letzer Zeit ein paar Fragen, auf die ich keine Antwort finde.

Frage:

Kann man, wenn ja dann wie, die Shape-Form verändern. Ich möchte nähmlich kein Rechteck, oder Kreis haben, sondern ich möchte diese Form selbst bestimmen können, frei aus der Hand zeichnen, ist das in Delphi möglich? Gibt es vielleicht einen anderen Objekt, der mir da helfen möchte. Ich möchte nämlich eine Fläche "anklickbar" machen. Diese Fläche ist eine ganz verrückte Form. Weiß da vielleicht jemand was drüber?

[c4t]

weiß da keiner was zu?

[c4t]

biiiiittteee! Nu kommt schon ...

[nailor]

so einfach wird es nicht...

je nachdem wie gut du mittlerweile Delphi kannst, wäre es eine Überlegung wert, eine eigene Klasse zu schreiben, die sich selbst über irgendwelche Canvas-Befehle visualisieren kann. Für Polygone u.ä. dürfte das nicht allzuschwer sein. Mit dem Selektieren ist das dann aber auch noch nicht gelöst...

[c4t]

so einpaar Canvas Befehle krieg' ich hin. Bei der Typ-Definition hört es aber auch schon auf ...

Gibt es denn vielleicht eine andere denkbare Lösung mit anderen Objekten für mein Problem?

[c4t]

Ich möchte ja kein Stress machen, aber:

ich brauch' Hiiiiillllfffee!

[Jörn]

Dann mach dir keinen Stress, das kriegen wir hin...
Kannst du diese

Zitat:

ganz verrückte Form

mit dem Befehl Polyline zeichnen? Dann weiss ich glaube wie das geht...
Im Zweifelsfalle adde mich mal bei ICQ. Ich denke da kann ich dir helfen.

[c4t]

hab dich geadded .. jetzt müsstest du noch online gehn!

Ähm, was Polyline ist, weiß ich nich, bzw. hab mich damit noch nicht beschäftigt.

[fkerber]

Hi!

Zitat:

Zitat von OH

Die Methode Polyline zeichnet mit dem aktuellen Stift eine Reihe von Linien, wobei die im Parameter Points übergebenen Punkte miteinander verbunden werden.

Delphi-Syntax:

procedure Polyline(Points: array of TPoint);

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
 with Canvas do
   Polyline([Point(0, 0), Point(50, 0), Point(75, 50), Point(25, 50), Point(0, 0)]);
*end;

Ciao fkerber

[Die Muhkuh]

Zitat:

Zitat von Jörn

Im Zweifelsfalle adde mich mal bei ICQ. Ich denke da kann ich dir helfen.

Das ist aber net nett. Es gibt vielleicht auuch andrere die das gleiche Problem haben!