Problem bei Rechteck zeichnen (mit PaintBox)

[approxinately007]

alles klar Dankeschön!

Ich dachte eig. ich könnte dass schaffen, mit mousemove, dass man sieht, wie man das rechteck zeichnet, bevor man die maustaste loslässt!
aber das ist mir jetz auch zu viel und zu kompliziert!!!

trotzdem danke für eure hilfe...
n guden rutsch an alle

...

[Klaus01]

.. ist nicht kompliziert:

Delphi-Quellcode:

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  endX := x;
  endY := y;
  invalidate;
end;

Grüße und auch einen guten Rutsch
Klaus

[DeddyH]

Zitat von approxinately007:

Ich dachte eig. ich könnte dass schaffen, mit mousemove, dass man sieht, wie man das rechteck zeichnet, bevor man die maustaste loslässt!

Google mal nach Delphi Gummibandeffekt.

[approxinately007]

ja, habs mal kurz überflogen danke!
aber ich hab des ganze jetz nochmal verändert!
Also jetz klappts!


mfg
Approxinately007

...