565 |
565 |
566 procedure chVol_m(var s: shortstring); |
566 procedure chVol_m(var s: shortstring); |
567 begin |
567 begin |
568 s:= s; // avoid compiler hint |
568 s:= s; // avoid compiler hint |
569 dec(cVolumeDelta, 3) |
569 dec(cVolumeDelta, 3) |
|
570 end; |
|
571 |
|
572 procedure chMute(var s: shortstring); |
|
573 begin |
|
574 s:= s; // avoid compiler hint |
|
575 cMuteToggle:= true; |
570 end; |
576 end; |
571 |
577 |
572 procedure chFindhh(var s: shortstring); |
578 procedure chFindhh(var s: shortstring); |
573 begin |
579 begin |
574 s:= s; // avoid compiler hint |
580 s:= s; // avoid compiler hint |
899 RegisterVariable('put' , @chPut , false); |
905 RegisterVariable('put' , @chPut , false); |
900 RegisterVariable('+volup' , @chVol_p , true ); |
906 RegisterVariable('+volup' , @chVol_p , true ); |
901 RegisterVariable('-volup' , @chVol_m , true ); |
907 RegisterVariable('-volup' , @chVol_m , true ); |
902 RegisterVariable('+voldown', @chVol_m , true ); |
908 RegisterVariable('+voldown', @chVol_m , true ); |
903 RegisterVariable('-voldown', @chVol_p , true ); |
909 RegisterVariable('-voldown', @chVol_p , true ); |
|
910 RegisterVariable('mute' , @chMute , true ); |
904 RegisterVariable('findhh' , @chFindhh , true ); |
911 RegisterVariable('findhh' , @chFindhh , true ); |
905 RegisterVariable('pause' , @chPause , true ); |
912 RegisterVariable('pause' , @chPause , true ); |
906 RegisterVariable('+cur_u' , @chCurU_p , true ); |
913 RegisterVariable('+cur_u' , @chCurU_p , true ); |
907 RegisterVariable('-cur_u' , @chCurU_m , true ); |
914 RegisterVariable('-cur_u' , @chCurU_m , true ); |
908 RegisterVariable('+cur_d' , @chCurD_p , true ); |
915 RegisterVariable('+cur_d' , @chCurD_p , true ); |