Browse Source

added missing override statement in inherited virtual classes methods

silverio.di 1 month ago
parent
commit
8afb98800f
2 changed files with 7 additions and 4 deletions
  1. 4 1
      Source/GLS.BaseMeshSilhouette.pas
  2. 3 3
      Source/GLS.Silhouette.pas

+ 4 - 1
Source/GLS.BaseMeshSilhouette.pas

@@ -50,7 +50,7 @@ type
     // Builds the connectivity information.
     procedure RebuildEdgeList;
     procedure CreateSilhouette(const silhouetteParameters: TGLSilhouetteParameters; var aSilhouette: TGLSilhouette;
-	  AddToSilhouette: boolean);
+	  AddToSilhouette: boolean); override;
     constructor Create(APrecomputeFaceNormal: boolean); override;
     constructor CreateFromMesh(aBaseMesh: TGLBaseMesh);
     destructor Destroy; override;
@@ -60,6 +60,9 @@ type
 implementation
 //==============================================================================
 
+uses
+  GLS.PersistentClasses;
+
 // ------------------
 // ------------------ TGLFaceGroupConnectivity ------------------
 // ------------------

+ 3 - 3
Source/GLS.Silhouette.pas

@@ -99,14 +99,14 @@ type
     FFaceNormal: TGLAffineVectorList;
     FVertexMemory: TGLIntegerList;
     FVertices: TGLAffineVectorList;
-    function GetEdgeCount: integer;
-    function GetFaceCount: integer;
+    function GetEdgeCount: integer; override;
+    function GetFaceCount: integer; override;
     function ReuseOrFindVertexID(const SeenFrom: TAffineVector; ASilhouette: TGLSilhouette; index: integer): integer;
   public
     // Clears out all connectivity information.
     procedure Clear; virtual;
     procedure CreateSilhouette(const silhouetteParameters: TGLSilhouetteParameters; var ASilhouette: TGLSilhouette;
-      AddToSilhouette: Boolean);
+      AddToSilhouette: Boolean); override;
     function AddIndexedEdge(vertexIndex0, vertexIndex1: integer; FaceID: integer): integer;
     function AddIndexedFace(Vi0, Vi1, vi2: integer): integer;
     function AddFace(const vertex0, vertex1, vertex2: TAffineVector): integer; inline;