Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Rechteck mit Mouse ziehen (https://www.delphipraxis.net/31585-rechteck-mit-mouse-ziehen.html)

API 11. Okt 2004 14:00


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.

Zacherl 11. Okt 2004 15:50

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;

Nonsense 11. Okt 2004 15:57

Re: Rechteck mit Mouse ziehen
 
Du kannst es alternativ auch mit OnMouseMove machen.

Nikolas 11. Okt 2004 16:32

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.

API 12. Sep 2006 08:21

Re: Rechteck mit Mouse ziehen
 
Zitat:

Zitat von API
Ich möchte mit der Maus ein Rechteck auf den Bildschirm ziehen.

Das Rechteck sollte auf dem gesamten Bildschrim erscheinen..
Eine Art Auswahlrechteck für einen Screenshotbereich

[edit=SirThornberry]Tag korrigiert - Mfg, SirThornberry[/edit]

SirThornberry 12. Sep 2006 09:05

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.

Meflin 12. Sep 2006 09:43

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!


marabu 12. Sep 2006 10:31

Re: Rechteck mit Mouse ziehen
 
Hallo,

ich denke bei der Frage nach einem Auswahlrechteck spontan an marching ants und LineDDA() - bei meiner Suche danach bin ich auf eine Demo von muetze1 gestoßen. Aber vielleicht habe ich alles falsch verstanden.

Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz