* [uglcShader] remove unnecessary log messages

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