Explorar el Código

- minor changes

git-svn-id: http://zengl.googlecode.com/svn/branches/0.3.x@1963 6573c10b-8653-0410-9706-d32479e959fb
dr.andru hace 12 años
padre
commit
50f1b264cc
Se han modificado 1 ficheros con 7 adiciones y 1 borrados
  1. 7 1
      src/zgl_resources.pas

+ 7 - 1
src/zgl_resources.pas

@@ -151,7 +151,7 @@ function  res_GetCompleted : Integer;
 
 var
   resUseThreaded : Boolean;
-  resCompleted   : Integer;
+  resCompleted   : Integer = 100;
 
 implementation
 uses
@@ -827,4 +827,10 @@ begin
   Result := resCompleted;
 end;
 
+var
+  i : Integer;
+initialization
+  for i := 0 to 255 do
+    resQueuePercentage[ i ] := 100;
+
 end.