Malen mit Delphi und die Darstellung

**Darkchild**

Hallo zusammen,

mal ne Frage:

Ich erstele gerade ein Zeichenprogramm in Delphi und kann jetzt schon Schwarz/Weiß, Negativ, Spiegeln, Rechteck, Kreis, Linie, Vieleck zeichnen.

Soweit so gut, doch meine Frage jetzt:

Wie kann ich es umsetzten das wenn ich z.B. ein Rechteck zeichne, dies auch sehe wärend ich es auf die gewünschte grösse ziehe.
Wenn ich im moment ein Rechteck zeichne wird bei MouseDown der Startpunkt und bei MouseUp der Endpunkt gesetzt und zwischen diesen Punkten wird dann halt das Rechteck erstellt, nur sehe ich es nicht wärend ich es ziehe, das macht es etwas problematisch die grösse genau zu koordinieren.
Zum zeichnen benutze ich eine PaintBox und das verwendete Delphi ist die TurboDelphi Explorer version.

Gruss
Darkchild

**inherited**

Du müsstest dir im MouseDown das aktuelle Bitmap der Paintbox zwischenspeichern und bei jedem MouseMove es wieder laden und das Rechteck drübermalen.

**shmia**

Versuch mal Pen.Mode := pmXor.
Im Event OnMouseMove musst das vorige (dass du dir gemerkt hast) Rechteck zeichen damit es verschwindet
und das neue Rechteck zeichnen.
2-Mal ein Rechteck mit XOR gezeichnet ergibt wieder das Ausgangsbild

Dazu muss auch geprüft werden, ob die linke Maustaste gedrückt ist:

markieren

Delphi-Quellcode:

			procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  if ssLeft in Shift then { make sure button is down }

  begin ....

Schau dir dazu auch in der OH das Thema OnMouseMove, Example an.

**Darkchild**

Ok, danke euch zweien erstmal, sollte mich weiterbringen.

Gruss
Darkchild

Malen mit Delphi und die Darstellung

Malen mit Delphi und die Darstellung

Re: Malen mit Delphi und die Darstellung

Re: Malen mit Delphi und die Darstellung

Re: Malen mit Delphi und die Darstellung

Forumregeln

inherited Registriert seit: 19. Dez 2005 Ort: Rosdorf 2.022 Beiträge Turbo Delphi für Win32	#2 Re: Malen mit Delphi und die Darstellung 10. Jan 2007, 17:31 Du müsstest dir im MouseDown das aktuelle Bitmap der Paintbox zwischenspeichern und bei jedem MouseMove es wieder laden und das Rechteck drübermalen. Nikolai Wyderka SWIM SWIM HUNGRY! Neuer Blog: hier!
	Zitat

Darkchild Registriert seit: 13. Okt 2006 Ort: NRW 169 Beiträge Delphi 2006 Enterprise	#4 Re: Malen mit Delphi und die Darstellung 10. Jan 2007, 17:55 Ok, danke euch zweien erstmal, sollte mich weiterbringen. Gruss Darkchild Ich bin der Geist der stets verneint und das mit recht, denn alles was entsteht ist wert das es zugrunde geht, drum besser wär das nichts entstünde, so ist denn alles was ihr Sünde, Zerstörung, kurz das Böse nennt, mein eigendliches Element.
	Zitat