home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / SaveOpt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-06-15  |  2.6 KB  |  101 lines
  1. unit SaveOpt;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, OleCtrls, LeadVid,LtVidOcx;
  7.  
  8. type
  9.   TSaveOptDlg = class(TForm)
  10.     OKBtn: TButton;
  11.     CancelBtn: TButton;
  12.     Bevel1: TBevel;
  13.     Label1: TLabel;
  14.     ComboBox1: TComboBox;
  15.     Label2: TLabel;
  16.     ComboBox2: TComboBox;
  17.     Label3: TLabel;
  18.     ComboBox3: TComboBox;
  19.     LEADVid1: TLeadVidCtrl;
  20.     procedure LeadVid1MMCompressor(Sender: TObject; const szName: string);
  21.     procedure FormShow(Sender: TObject);
  22.     procedure OKBtnClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   SaveOptDlg: TSaveOptDlg;
  31.   gMode:  Integer;
  32.   nAud: Integer;
  33.  
  34. implementation
  35.  
  36. uses Sdimain;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TSaveOptDlg.LeadVid1MMCompressor(Sender: TObject;
  41.   const szName: string);
  42. begin
  43.   if gMode=COMPRESSOR_VIDEO then
  44.      ComboBox1.Items.Add(szName)
  45.   else
  46.      ComboBox2.Items.Add(szName);
  47. end;
  48.  
  49. procedure TSaveOptDlg.FormShow(Sender: TObject);
  50. begin
  51.   gMode:=COMPRESSOR_VIDEO;
  52.   LeadVid1.MMEnumCompressors(gMode);
  53.   if MainForm.LeadVid1.ControlMode=MODE_EDIT then
  54.    begin
  55.      ComboBox2.Enabled:=False;
  56.      ComboBox2.Text:='PCM';
  57.    end
  58.   else
  59.    begin
  60.      ComboBox2.Enabled:=True;
  61.      gMode:=COMPRESSOR_AUDIO;
  62.      LeadVid1.MMEnumCompressors(gMode);
  63.    end;
  64.   ComboBox3.Items.Add('11.025 kHz, Mono, 8-bit');
  65.   ComboBox3.Items.Add('11.025 kHz, Stereo, 8-bit');
  66.   ComboBox3.Items.Add('11.025 kHz, Mono, 16-bit');
  67.   ComboBox3.Items.Add('11.025 kHz, Stereo, 16-bit');
  68.   ComboBox3.Items.Add('22.05 kHz, Mono, 8-bit');
  69.   ComboBox3.Items.Add('22.05 kHz, Stereo, 8-bit');
  70.   ComboBox3.Items.Add('22.05 kHz, Mono, 16-bit');
  71.   ComboBox3.Items.Add('22.05 kHz, Stereo, 16-bit');
  72.   ComboBox3.Items.Add('44.1 kHz, Mono, 8-bit');
  73.   ComboBox3.Items.Add('44.1 kHz, Stereo, 8-bit');
  74.   ComboBox3.Items.Add('44.1 kHz, Mono, 16-bit');
  75.   ComboBox3.Items.Add('44.1 kHz, Stereo, 16-bit');
  76.   
  77.   ComboBox1.ItemIndex:=0;
  78.   ComboBox2.ItemIndex:=0;
  79.   ComboBox3.ItemIndex:=0;
  80. end;
  81.  
  82. procedure TSaveOptDlg.OKBtnClick(Sender: TObject);
  83. begin
  84.   case ComboBox3.ItemIndex of
  85.         0: nAud:=FILE_WAV_1M08;
  86.         1: nAud:=FILE_WAV_1S08;
  87.         2: nAud:=FILE_WAV_1M16;
  88.         3: nAud:=FILE_WAV_1S16;
  89.         4: nAud:=FILE_WAV_2M08;
  90.         5: nAud:=FILE_WAV_2S08;
  91.         6: nAud:=FILE_WAV_2M16;
  92.         7: nAud:=FILE_WAV_2S16;
  93.         8: nAud:=FILE_WAV_4M08;
  94.         9: nAud:=FILE_WAV_4S08;
  95.        10: nAud:=FILE_WAV_4M16;
  96.        11: nAud:=FILE_WAV_4S16;
  97.   end;
  98. end;
  99.  
  100. end.
  101.