From: Bergmann89 <bergmann89@muo-game.de>
Date: Wed, 22 Oct 2014 17:16:19 +0000 (+0200)
Subject: * some small cleanup
X-Git-Url: https://git.delphigl.com/?a=commitdiff_plain;h=d3ba3cb9166f57256b6fe62ebdbf9dbaf9a6d92f;p=LazOpenGLCore.git

* some small cleanup
---

diff --git a/uglcLight.pas b/uglcLight.pas
index 6a36b43..fd79ca5 100644
--- a/uglcLight.pas
+++ b/uglcLight.pas
@@ -21,7 +21,10 @@ type
   end;
   PglcMaterialRec = ^TglcMaterialRec;
 
-  TglcLightType = (ltGlobal, ltPoint, ltSpot);
+  TglcLightType = (
+    ltGlobal = 0,
+    ltPoint  = 1,
+    ltSpot   = 2);
   TglcLightRec = packed record
     Ambient: TgluVector4f;
     Diffuse: TgluVector4f;
diff --git a/uglcShader.pas b/uglcShader.pas
index 4235108..634d57f 100644
--- a/uglcShader.pas
+++ b/uglcShader.pas
@@ -99,9 +99,6 @@ type
     fProgramObj: GLHandle;
     fOnLog: TglcShaderLogEvent;
     fFilename: String;
-    fGeometryInputType: GLint;
-    fGeometryOutputType: GLint;
-    fGeometryVerticesOut: GLint;
 
     function GetUniformLocation(const aName: String; out aPos: glInt): Boolean;
     function GetInfoLog(Obj: GLHandle): String;
@@ -117,9 +114,6 @@ type
     property Compiled:   Boolean            read GetCompiled;
     property Linked:     Boolean            read GetLinked;
     property OnLog:      TglcShaderLogEvent read fOnLog               write fOnLog;
-    property GeometryInputType:   GLint     read fGeometryInputType   write fGeometryInputType;
-    property GeometryOutputType:  GLint     read fGeometryOutputType  write fGeometryOutputType;
-    property GeometryVerticesOut: GLint     read fGeometryVerticesOut write fGeometryVerticesOut;
 
     procedure Compile;
     procedure Enable;
@@ -158,7 +152,7 @@ type
     procedure SaveToFile(const aFilename: String);
     procedure SaveToStream(const aStream: TStream);
 
-    constructor Create(aLogEvent: TglcShaderLogEvent = nil);
+    constructor Create(const aLogEvent: TglcShaderLogEvent = nil);
     destructor Destroy; override;
   end;
 
@@ -960,7 +954,7 @@ end;
 //@LogEvent: Event zum loggen von Fehlern und Ereignissen;
 //@raise: EglcShader wenn OpenGL nicht initialisiert werden konnte;
 //@raise:
-constructor TglcShaderProgram.Create(aLogEvent: TglcShaderLogEvent);
+constructor TglcShaderProgram.Create(const aLogEvent: TglcShaderLogEvent);
 begin
   inherited Create;
   fOnLog      := aLogEvent;