Canvas Rectangle mit MouseMove, MouseDown und MouseUp

[Nils_13]

Hi,

ich zeichne ein Viereck wenn ich die Mouse drücke. Wenn ich die Mouse bewege, dann soll das Viereck erweitert werden. Wenn ich die Mouse zurück bewege, passiert ein Grafikfehler: die anderen Rectangles sind noch vorhanden.
1. wie kann ich das beheben ?
2. wie kann ich es Regeln, den Startwert von der MouseDown-Position aus (wie in einem Strategiespiel) festzulegen, damit das Viereck auch von dem gewünschten Punkt aus gezeichnet wird ?

Der bisherige Code:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    mbdown : Boolean;

{ ... }

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mbdown := true; 
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mbdown  := false;
PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if mbdown = True then
  begin
    PaintBox1.Canvas.Brush.Color := clBlack;
    PaintBox1.Canvas.Brush.Style := bsSolid;
    PaintBox1.Canvas.Pen.Color   := clWhite;
    PaintBox1.Canvas.rectangle(Rect(0,0,x,y));
  end;
end;

Wenn ich PaintBox1.Repaint verwende, dann flackert es.

[Khabarakh]

Zitat von Nils_13:

[...], passiert ein Grafikfehler: die anderen Rectangles sind noch vorhanden.

Fehler? Dein Code ist doch korrekt . Du musst vor dem Zeichnen des nächsten Rechtecks schon das alte wieder löschen, indem du z.B. per FillRect den gesamten Bitmapinhalt löschst.
Um Flimmern zu vermeiden, solltest du mit OffScreenBitmaps arbeiten.

Zu 2.: Die Position im OnMouseDown speichern ?

[Keldorn]

Verwende bei Zeichnen als penmode pmnotxor. Und schau mal in dein Demo-Verzeichnis, unter Demos/Doc findest du GraphEx, das wird das auch demonstriert.

Mfg Frank

[Jarmen_Kell]

tada

Delphi-Quellcode:

var
  moused:TPoint;
  current:TPoint;

procedure TForm1.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  moused.x:=x;
  moused.y:=y;
  current.x:=x;
  current.y:=y;
end;

procedure TForm1.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer); // Alternativ ImageMouseMove o.ä.
begin
  if SSLeft in Shift then imgpaint(pmnotxor,current.X,current.Y);
  current.x:=x;
  current.y:=y;
  if SSLeft in Shift then imgpaint(pmnotxor,current.x,current.y);
end;

procedure TForm1.imgpaint(mode:TPenMode;x,y:Integer);
begin
  PaintBox.canvas.Pen.Mode:=mode; // Wieder Image.Canvas o.ä.
  PaintBox.Canvas.Rectangle(moused.x,moused.y,x,y);
end;

Hat den Vorteil, dass du auch noch ruckzuck andere Sachen wie Dreiecke, Rauten, Striche etc einfügen kannst.

[Khabarakh]

Und was macht ihr beiden, wenn Nils keinen einfarbigen Hintergund hat ?

[Keldorn]

Zitat von Khabarakh:

Und was macht ihr beiden, wenn Nils keinen einfarbigen Hintergund hat ?

genau das gleiche

[Khabarakh]

Ja, Falschfarbenbilder sind was Schönes .

[Nils_13]

Das Viereck soll innen Transparent sein.

[Keldorn]

Zitat von Khabarakh:

Ja, Falschfarbenbilder sind was Schönes .

ok, das meinst du. Aber das wirkt sich ja nur auf den Markierungsrahmen aus. Dort finde ich es aber eher praktisch, da du den Rahmen immer sehen wirst. Schwarzer Rahmen auf einem schwarzem Bereich macht sich auch nicht so gut .
Man kann statt pmnotxor noch pmnot und unterschiedlichen Farben probieren.
Aber wenns wirklich eine bestimmte Farbe sein soll, dann gehts nur mit Neuzeichnen.

Zitat von Nils_13:

Das Viereck soll innen Transparent sein.

das wird es auch sein

[Jarmen_Kell]

"Wir beiden" lassen das einfach so und machen dann nur noch mal beim OnMouseUp

imgpaint(pmcopy,current.x,current.y); Fertig ist die Wurst.