equal
deleted
inserted
replaced
118 |
118 |
119 inc(Volume, voldelta); |
119 inc(Volume, voldelta); |
120 if Volume < 0 then Volume:= 0; |
120 if Volume < 0 then Volume:= 0; |
121 Mix_Volume(-1, Volume); |
121 Mix_Volume(-1, Volume); |
122 Volume:= Mix_Volume(-1, -1); |
122 Volume:= Mix_Volume(-1, -1); |
123 Mix_VolumeMusic(Volume * 3 div 8); |
123 Mix_VolumeMusic(Volume * 5 div 8); |
124 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME |
124 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME |
125 end; |
125 end; |
126 |
126 |
127 end. |
127 end. |