equal
deleted
inserted
replaced
120 |
120 |
121 function ChangeVolume(voldelta: integer): integer; |
121 function ChangeVolume(voldelta: integer): integer; |
122 begin |
122 begin |
123 inc(Volume, voldelta); |
123 inc(Volume, voldelta); |
124 if Volume < 0 then Volume:= 0; |
124 if Volume < 0 then Volume:= 0; |
125 Volume:= Mix_Volume(-1, Volume); |
125 Mix_Volume(-1, Volume); |
|
126 Volume:= Mix_Volume(-1, -1); |
|
127 Mix_VolumeMusic(Volume * 3 div 8); |
126 Result:= Volume * 100 div MIX_MAX_VOLUME |
128 Result:= Volume * 100 div MIX_MAX_VOLUME |
127 end; |
129 end; |
128 |
130 |
129 end. |
131 end. |