hedgewars/uStore.pas
changeset 4 bcbd7adb4e4b
parent 1 30f2d1037d5d
child 30 794e98e11b66
equal deleted inserted replaced
3:ffe4ad26a64c 4:bcbd7adb4e4b
   562 var r: TSDL_Rect;
   562 var r: TSDL_Rect;
   563 begin
   563 begin
   564 if Step = 0 then
   564 if Step = 0 then
   565    begin
   565    begin
   566    WriteToConsole(msgLoading + 'progress sprite... ');
   566    WriteToConsole(msgLoading + 'progress sprite... ');
   567    ProgrSurf:= IMG_Load(PChar(string('Data\Graphics\BigDigits.png')));
   567    ProgrSurf:= IMG_Load(PChar(string('Data/Graphics/BigDigits.png')));
   568    SDLTry(ProgrSurf <> nil, true);
   568    SDLTry(ProgrSurf <> nil, true);
   569    WriteLnToConsole(msgOK)
   569    WriteLnToConsole(msgOK)
   570    end;
   570    end;
   571 SDL_FillRect(SDLPrimSurface, nil, 0);
   571 SDL_FillRect(SDLPrimSurface, nil, 0);
   572 r.x:= 0;
   572 r.x:= 0;