Minipaint ---> Quadrath zeichnen auf knopfdruck und mehr..

[la.ma]

Hallo liebe delphi gemeinde!
wir sollen mit delphi 5 für die schule ein "minipaint" zeichnen..
klappt auch alles ganz gut bisher, bis jetzt geht halt freihandlinie, punkte, gummilinie, rechteck, ellipse, diese wurde mit dem üblichen mousedown/up/move bewerkstelligt..
nu möchte ich, wie aus proffesionellen bildbearbeitungsprogrammen bekannt auch quadrate und Kreise zeichnen, also, das alle seiten gleich lang sind, bei dem kreis isses ja das selbe, da ja ein 4eck drum gezeichnet wird.
Die Grundidee is ja schon da, es müssen die seiten gleich lang sein... nur wie stellt man das am besten an??
später kann man das ja dann wie in ps machen, das quadrate auf strg-druck gezeichnet werden.


und noch was:
ich habe hier irgendwo jemand eine spraydosen-malfunktion machen sehen, die war aber glaube ich für delphi 7 und da kam, immer wenn ich die kompilieren wollte, das mir variants.cdu fehlt...


naja, danke schon mal für anteilnahme

[Khabarakh]

1. Für Quadrate/Kreise kannst du natürlich nicht die X- und Y-Koordinaten benutzen. Ich würde die Seitenlänge nur aus der X-Koordinate errechnen lassen, also etwa so:

Delphi-Quellcode:

// OnMouseDown
  OldPostion := Point(X, Y);

// OnMouseUp
  Rectangle(OldPosition.X, OldPosition.Y, X, OldPostion.Y + X - OldPostion.X);

2. Variants kannst du in 90% der Fälle einfach aus den uses entfernen.

[la.ma]

jo, vielen dank, hab das mal angepasst und ausprobiert und funzt super


closen bitte