Commit 19eacb2b authored by Bergmann89's avatar Bergmann89

* [uglcShader] remove unnecessary log messages

parent 2d9ca069
......@@ -113,7 +113,7 @@ type
property Filename: String read fFilename;
property Compiled: Boolean read GetCompiled;
property Linked: Boolean read GetLinked;
property OnLog: TglcShaderLogEvent read fOnLog write fOnLog;
property OnLog: TglcShaderLogEvent read fOnLog write fOnLog;
procedure Compile;
procedure Enable;
......@@ -219,7 +219,6 @@ begin
fShaderObj := glCreateShader(GLenum(fShaderType));
if fShaderObj = 0 then
raise EglcShader.Create('can''t create ShaderObject');
Log('shader object created: #'+IntToHex(fShaderObj, 4));
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
......@@ -337,10 +336,8 @@ end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TglcShaderProgram.CreateProgramObj;
begin
if (fProgramObj = 0) then begin
if (fProgramObj = 0) then
fProgramObj := glCreateProgram();
Log('shader program created: #'+IntToHex(fProgramObj, 4));
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment