670 

   670 

   671         squaresize:= texsurf^.w shr 1;

   671         squaresize:= texsurf^.w shr 1;

   672         numsquares:= texsurf^.h div squaresize;

   672         numsquares:= texsurf^.h div squaresize;

   673         SDL_FreeSurface(texsurf);

   673         SDL_FreeSurface(texsurf);

   674 

   674 

   676     end;

   676     end;

   677 

   677 

   678     TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true);

   678     TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true);

   679 

   679 

   680     glClear(GL_COLOR_BUFFER_BIT);

   680     glClear(GL_COLOR_BUFFER_BIT);

   698 

   698 

   699 procedure FinishProgress;

   699 procedure FinishProgress;

   700 begin

   700 begin

   701     WriteLnToConsole('Freeing progress surface... ');

   701     WriteLnToConsole('Freeing progress surface... ');

   702     FreeTexture(ProgrTex);

   702     FreeTexture(ProgrTex);

   704 end;

   704 end;

   705 

   705 

   706 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;

   706 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;

   707 var tmpsurf: PSDL_SURFACE;

   707 var tmpsurf: PSDL_SURFACE;

   708     w, h, i, j: LongInt;

   708     w, h, i, j: LongInt;