Différences

Ci-dessous, les différences entre deux révisions de la page.

--- prog:lazarus:classes:trect [20/07/2024 12:25]
thierry [Création]
+++ prog:lazarus:classes:trect [20/07/2024 12:26] (Version actuelle)
thierry [Membres de TRect]
@@ Ligne 22: / Ligne 22: @@
 ==== Membres de TRect ====
 <code delphi>
-  TRect =
+  TRect =  packed  record
-{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
-  packed
-{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
-  record
-     private
-       function  getHeight: Longint; inline;
-       function  getLocation: TPoint;
-       function  getSize: TSize;
-       function  getWidth : Longint; inline;
-       procedure setHeight(AValue: Longint);
-       procedure setSize(AValue: TSize);
-       procedure setWidth (AValue: Longint);
      public
        constructor Create(Origin: TPoint); // empty rect at given origin