![]() |
Rechteck mit Mouse ziehen
hey,
Ich möchte mit der Maus ein Rechteck auf den Bildschirm ziehen. -------- I I I I I I -------- Mouse Wie geht das? Any Examples r welcome. |
Re: Rechteck mit Mouse ziehen
Versuchs mal so:
Delphi-Quellcode:
var
Form1: TForm1; vonx, vony: integer; implementation {$R *.DFM} procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin form1.canvas.Rectangle(vonx, vony, x, y); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin vonx := x; vony := y; end; |
Re: Rechteck mit Mouse ziehen
Du kannst es alternativ auch mit OnMouseMove machen.
|
Re: Rechteck mit Mouse ziehen
Am Besten im OnMove machen, den penstyle auf psxor stellen und dann das alte Rechteck überzeichnen. PsXor invertiert die Farbe deiner Oberfläche, das heisst eine Linie die zweimal gezeichnet wurde ist wieder weg.
|
Re: Rechteck mit Mouse ziehen
Zitat:
Eine Art Auswahlrechteck für einen Screenshotbereich [edit=SirThornberry]Tag korrigiert - Mfg, SirThornberry[/edit] |
Re: Rechteck mit Mouse ziehen
Ich würde empfehlen einen Screenshot zu machen und dann ein Formular einzublenden welches der Größe des Screenshots entspricht. Auf dem Formular dann einfach den Screenshot anzeigen und oben gezeigte Lösungen verwenden.
Ohne Form wird recht schwer weil ja die Anwendungen bzw. der Desktop selbst sonst auf die Maus und das geziehe reagiert. |
Re: Rechteck mit Mouse ziehen
Ich würde es nochmal anders machen ;) Ein halbtransparentes Formular erstellen mit klar erkennbaren Randlinien, dieses Formular ist ja von Haus aus resizeable und kann also in der größe angepasst werden und verschoben werden. Das ist sozusagen der Fokus deines Photos ;) Nunja dieses Formular kann man dann wie gewünscht positionieren und vergrößern/verkleinern, den Desktop sieht man durch und wenn man fertig ist kann man per Shortcut o.ä. den Screenshot machen, du blendest das Formular aus und hast den Bereich zum abfotografieren!
|
Re: Rechteck mit Mouse ziehen
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:13 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz