From 19eacb2b75bab33b0621dfd960d7de5f132a0a87 Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Sun, 9 Aug 2015 13:16:52 +0200
Subject: [PATCH] * [uglcShader] remove unnecessary log messages

---
 uglcShader.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/uglcShader.pas b/uglcShader.pas
index bcc2360..e96a964 100644
--- a/uglcShader.pas
+++ b/uglcShader.pas
@@ -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;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////