Updated readme.md

README.md

@@ -6,7 +6,7 @@ include managers for supporting physics, sounds, terrains with materials and sha
 1. Download a zip archive of the last release or clone the repository
 2. Run _setupDLL_admin.cmd to support external DLLs
 3. Configure the IDE settings and paths to src, sources and sourcex, include and lib dirs  
-4. Open the GLSEngine.groupproj in RAD Studio Delphi or .lpk projects for Lazarus, compile and install components
+4. Open the GLSEngine.groupproj in RAD Studio Delphi, compile and install components
 5. Run Examples for Delphi or C++Builder <br>
 
 

Source/GLS.Objects.pas

@@ -5,16 +5,16 @@ unit GLS.Objects;
 
 (*
   Implementation of basic scene objects plus some management routines.
-  The registered classes are:
-    [TGLSphere, TGLCube, TGLPlane, TGLSprite, TGLPoints,
-    TGLDummyCube, TGLLines, TGLSuperellipsoid]
-
-  All objects declared in this unit are part of the basic GLScene package,
-  these are only simple objects and should be kept simple and lightweight.
+  All objects declared in this unit are only simple objects
+  and should be kept simple and lightweight.
 
   More complex or more specialized versions should be placed in dedicated
   units where they can grow and prosper untammed. "Generic" geometrical
   objects can be found in GLS.GeomObjects unit.
+
+  The registered classes are:
+    [TGLSphere, TGLCube, TGLPlane, TGLSprite, TGLPoints,
+    TGLDummyCube, TGLLines, TGLSuperellipsoid]
 *)
 
 interface

Source/GLS.Scene.pas

@@ -27,13 +27,13 @@ uses
   Stage.VectorTypes,
   Stage.VectorGeometry,
   Stage.OpenGLTokens,
-  GLS.XCollection,
   Stage.Strings,
   Stage.PipelineTransform,
   Stage.TextureFormat,
   Stage.Utils,
   Stage.Logger,
 
+  GLS.XCollection,
   GLS.Context,
   GLS.Silhouette,
   GLS.PersistentClasses,
@@ -53,12 +53,6 @@ uses
   GLS.ImageUtils;
 
 type
-{$IF (CompilerVersion >= 36)}
-  TListSize = NativeInt;
-{$ELSE}
-  TListSize = Integer;
-{$ENDIF}
-
   // Defines which features are taken from the master object.
   TGLProxyObjectOption = (pooEffects, pooObjects, pooTransformation);
   TGLProxyObjectOptions = set of TGLProxyObjectOption;
@@ -67,7 +61,7 @@ type
 
 const
   cDefaultProxyOptions = [pooEffects, pooObjects, pooTransformation];
-  GLSCENE_REVISION = '$Revision: 2024$';
+  GLSCENE_REVISION = '$Revision: 2025$';
   GLSCENE_VERSION = 'v2.5 %s';
 
 type
@@ -144,11 +138,11 @@ type
   // Just a list of objects that support IGLInitializable.
   TGLInitializableObjectList = class(TList)
   private
-    function GetItems(const Index: TListSize): IGLInitializable;
-    procedure PutItems(const Index: TListSize; const Value: IGLInitializable);
+    function GetItems(const Index: NativeInt): IGLInitializable;
+    procedure PutItems(const Index: NativeInt; const Value: IGLInitializable);
   public
     function Add(const Item: IGLInitializable): Integer;
-    property Items[const Index: TListSize]: IGLInitializable read GetItems write PutItems; default;
+    property Items[const Index: NativeInt]: IGLInitializable read GetItems write PutItems; default;
   end;
 
   PGLAxisInfo = ^TGLAxisInfo;
@@ -8021,12 +8015,12 @@ begin
 end;
 
 function TGLInitializableObjectList.GetItems(
-  const Index: TListSize): IGLInitializable;
+  const Index: NativeInt): IGLInitializable;
 begin
   Result := IGLInitializable(inherited Get(Index));
 end;
 
-procedure TGLInitializableObjectList.PutItems(const Index: TListSize;
+procedure TGLInitializableObjectList.PutItems(const Index: NativeInt;
   const Value: IGLInitializable);
 begin
   inherited Put(Index, Pointer(Value));

Sourcex/GXS.Scene.pas

@@ -61,7 +61,7 @@ type
 
 const
   cDefaultProxyOptions = [pooEffects, pooObjects, pooTransformation];
-  SCENE_REVISION = '$Revision: 2024$';
+  SCENE_REVISION = '$Revision: 2025$';
   SCENE_VERSION = 'v2.5 %s';
 
 type
@@ -143,11 +143,11 @@ type
   // Just a list of objects that support IGLInitializable.
   TgxInitializableObjectList = class(TList)
   private
-    function GetItems(const Index: Integer): IgxInitializable;
-    procedure PutItems(const Index: Integer; const Value: IgxInitializable);
+    function GetItems(const Index: NativeInt): IgxInitializable;
+    procedure PutItems(const Index: NativeInt; const Value: IgxInitializable);
   public
     function Add(const Item: IgxInitializable): Integer;
-    property Items[const Index: Integer]: IgxInitializable read GetItems write PutItems; default;
+    property Items[const Index: NativeInt]: IgxInitializable read GetItems write PutItems; default;
   end;
 
   (* Base class for all scene objects.
@@ -7832,12 +7832,12 @@ begin
   Result := inherited Add(Pointer(Item));
 end;
 
-function TgxInitializableObjectList.GetItems(const Index: Integer): IgxInitializable;
+function TgxInitializableObjectList.GetItems(const Index: NativeInt): IgxInitializable;
 begin
   Result := IgxInitializable(inherited Get(Index));
 end;
 
-procedure TgxInitializableObjectList.PutItems(const Index: Integer; const Value: IgxInitializable);
+procedure TgxInitializableObjectList.PutItems(const Index: NativeInt; const Value: IgxInitializable);
 begin
   inherited Put(Index, Pointer(Value));
 end;