|
|
@@ -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; |
|
|
|