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:

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