Главный модуль программы (часть 27) - MenuItem5Click

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 205
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  if iSound = 0 then
    begin
      // в телефон
      case curButton of
        1 : begin
              // gain_table
              frmSoundEditor.Set_GainTable_Params;
            end;

        2 : begin
              // param_table
              frmSoundEditor.Set_ParamTable_Params;
            end;
      end;
      curButton:= 0;
    end  
  else if iSound > 0 then
    begin
      //acfg:= true;
      frmSoundEditor3G.Set_AudioCfg_Params;
    end;
end;
Rambler's Top100