Mehreck und Radiergummi für Image realisieren...

[hircusmutzus]

Hi,
wie kann ich denn für meinen Paint-Klon einen Radiergummi (Rechteck, was alles darunter löscht!) und ein Mehreck programmieren?

MfG Matthias Volland

[Mirilin]

Radiergummi : Fillrect + Weisse farbe
Mehreck : Polygon

mfg Tobias

[hircusmutzus]

also ich habe jetzt mal in der delphi-hilfe geschaut, aber irgendwie werde ich nicht schlau aus dem beispiel bzw. der beschreibung.
vielleicht kann das jemand etwas konkreter machen als nur

Zitat:

Mehreck: Polygon

(aber trotzdem danke für den hinweis, nicht das sich das jetzt abwertend anhört!!!)

MfG Matthias Volland

[fkerber]

Hi!

OH: Stichwort Polyline

Zitat von OH:

Die folgende Methode zeichnet eine Raute in einem Formular:

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

[hircusmutzus]

ja, das habe ich auch gefunden, aber wie soll ich das denn umsetzen! es soll ja nicht immer die gleiche gezeichnet werden, sondern der User soll sie ja selbst in das image malen können! ausserdem arbeite ich nicht mit Points (k.A. wie das geht) sondern habe es immer so gemacht - z.B. bei Rectangle:

Delphi-Quellcode:

procedure OnMouseDown...
  startX := X;
  startY := Y;

und dann bei

Delphi-Quellcode:

procedure OnMouseUp...
  Rectangle(startX, startY, X, Y)

Wie geht das denn so mit dem Polygon/Polyline?

[fkerber]

Hi!

Du musst alle Klickpunkte des Users "aufbewahren" (in nem Array zum Beispiel) und aus diesen Punkten dann das Polygon zeichnen lassen.


Ciao fkerber