index 8b9ce80ed5a845ddf065781df866499e1782e0ee..31d29346a9aca33ae316560d0a53713709e7d72e 100644 (file)
procedure r_LoadScreen_Load;
begin
- BarL := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LLEFT');
- BarM := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LMIDDLE');
- BarR := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LRIGHT');
- BarF := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LMARKER');
+ BarL := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LLEFT', [TGLHints.txNoRepeat]);
+ BarM := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LMIDDLE', []);
+ BarR := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LRIGHT', [TGLHints.txNoRepeat]);
+ BarF := r_Textures_LoadFromFile(GameWAD + ':TEXTURES/LMARKER', []);
end;
procedure r_LoadScreen_Free;
begin
- BarL.Free;
- BarM.Free;
- BarR.Free;
- BarF.Free;
+ r_Common_FreeAndNil(BarL);
+ r_Common_FreeAndNil(BarM);
+ r_Common_FreeAndNil(BarR);
+ r_Common_FreeAndNil(BarF);
end;
procedure r_LoadScreen_DrawLoadingBar (x0, x1, y, val, maxval: Integer);