hedgewars/uStore.pas
changeset 97 e7c1df9cce2c
parent 95 1ef5e2c41115
child 105 e7cb9bb4a9de
equal deleted inserted replaced
96:aeeb4da6b157 97:e7c1df9cce2c
   466       MaxCalls = 11; // MaxCalls should be the count of calls to AddProgress to prevent memory leakage
   466       MaxCalls = 11; // MaxCalls should be the count of calls to AddProgress to prevent memory leakage
   467 var r: TSDL_Rect;
   467 var r: TSDL_Rect;
   468 begin
   468 begin
   469 if Step = 0 then
   469 if Step = 0 then
   470    begin
   470    begin
   471    WriteToConsole(msgLoading + 'progress sprite... ');
   471    WriteToConsole(msgLoading + 'progress sprite: ');
   472    ProgrSurf:= IMG_Load(PChar(string('Data/Graphics/BigDigits.png')));
   472    ProgrSurf:= LoadImage(Pathz[ptGraphics] + '/BigDigits', false);
   473    SDLTry(ProgrSurf <> nil, true);
       
   474    WriteLnToConsole(msgOK)
       
   475    end;
   473    end;
   476 SDL_FillRect(SDLPrimSurface, nil, 0);
   474 SDL_FillRect(SDLPrimSurface, nil, 0);
   477 r.x:= 0;
   475 r.x:= 0;
   478 r.w:= 32;
   476 r.w:= 32;
   479 r.h:= 32;
   477 r.h:= 32;