Delphi-PRAXiS - Delphi Rechteck zeichnen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Rechteck zeichnen (https://www.delphipraxis.net/34948-rechteck-zeichnen.html)

Klimpel

30. Nov 2004 15:56

Rechteck zeichnen

Hallo...
Ich möchte ein Rechteck zeichnen....bei dem ich vorher gar nicht die Punkte angeben will...
Mit angebenen Punkten ist das kein Problem...nur wie ohne?
Am besten wäre es entweder mit Variablen oder das ich gleich auf dem Image " canvas" zeichnen kann.

Wäre nett, wenn ihr mit weiterhelfen könntet...

Pr0g	30. Nov 2004 15:57

Re: Rechteck zeichnen

Wie willst du ein Rechteck zeichnen, ohne die Punkte anzugeben?

Klimpel

30. Nov 2004 15:59

Re: Rechteck zeichnen

Ich möchte das eigentlich ähnlich wie zum Beispiel in Paint haben..das man auf die Schaltfläche "Rechtck" klickt" und dann das Rechteck bestimmen kann...?

Pr0g	30. Nov 2004 16:09

Re: Rechteck zeichnen

Dann nimm bspw. eine PaintBox im MouseDown speicherst du die Startkoordinaten in eine TRect Variable und im MouseMove änderst du die Endkoordinaten der selbigen, dabei zeichnest du jeweils das Rechteck auf die PaintBox. Zusätzlich brauchst du noch eine Boolean Variable, die du im MouseDOwn auf True und im MouseUp auf False setzt. Dann kannst du im MouseMove prüfen, ob die Taste überhaupt gedrückt wurde und die eben geschilderten Aktionen durchgeführt werden sollen.

Alle Zeitangaben in WEZ +1. Es ist jetzt 22:09 Uhr.