Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   TRect Struktur füllen (https://www.delphipraxis.net/89695-trect-struktur-fuellen.html)

Luckie 4. Apr 2007 11:04


TRect Struktur füllen
 
Ich habe eine Variable vom Typ TRect. Und ich meine mal gesehen zu haben, wie die einzelnen Felder in einer Zeile mit Werten belegen kann. Ungefähr so:
Delphi-Quellcode:
rect := TRect(x, y, w, h);
oder so ähnlich. Das würde meinen Quelltext etwas schlanker machen.

Robert Marquardt 4. Apr 2007 11:05

Re: TRect Struktur füllen
 
Rect nicht TRect. Rect ist eine Funktion fuer genau diesen Zweck.

Luckie 4. Apr 2007 11:08

Re: TRect Struktur füllen
 
Danke, das war's. Ich habe in der Hilfe unter TRect nachgeguckt, aber nichts gefunden,. Hätte ruhig mal ein Hinweis auf diese Funktion stehen können.

igel457 4. Apr 2007 11:14

Re: TRect Struktur füllen
 
Falsch. Rect sieht folgendermaßen aus:
Delphi-Quellcode:
Rect(x1,y1,x2,y2);
Bounds ist das, was Luckie sucht:
Delphi-Quellcode:
Bounds(x,y,w,h);

Luckie 4. Apr 2007 11:34

Re: TRect Struktur füllen
 
Na ja:
Delphi-Quellcode:
rec := Rect(x, y, x + w, y + h);
Soweit habe ich schon gedacht. ;)

Hawkeye219 4. Apr 2007 12:15

Re: TRect Struktur füllen
 
Hallo Michael,

du solltest aufpassen, daß du nicht versehentlich die Funktion Classes.Rect erwischst, die ruft nämlich ihrerseits die Funktion Types.Rect auf. Das ist nur ein unnötiges Umschichten von Parametern.

Gruß Hawkeye

Luckie 4. Apr 2007 12:18

Re: TRect Struktur füllen
 
Das funktioniert schon so, wie es soll. Aber aus welcher Unit sollte ich denn die Funktion rect aufrufen? Meine Units sehen im Moment so aus:
Delphi-Quellcode:
uses
  Windows,
  Classes,
  Graphics,
  SysUtils,

SirThornberry 4. Apr 2007 12:21

Re: TRect Struktur füllen
 
die aus Types. Dazu einfach Types hinter classes einbinden.

Luckie 4. Apr 2007 12:38

Re: TRect Struktur füllen
 
OK. Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 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-2025 by Thomas Breitkreuz