home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / DIALPARM.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-25  |  2KB  |  78 lines
  1. unit Dialparm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, AdMisc, TComIni;
  8.  
  9. type
  10.   TDialerParametersForm = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     GroupBox2: TGroupBox;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     MaximumRetriesEdit: TEdit;
  16.     TimeBetweenRetriesEdit: TEdit;
  17.     AbortOnVoiceBox: TCheckBox;
  18.     AbortOnBusyBox: TCheckBox;
  19.     AbortOnNoCarrierBox: TCheckBox;
  20.     AbortOnNoDialtoneBox: TCheckBox;
  21.     AbortOnErrorBox: TCheckBox;
  22.     OkBtn: TBitBtn;
  23.     CancelBtn: TBitBtn;
  24.     HelpBtn: TBitBtn;
  25.     procedure OkBtnClick(Sender: TObject);
  26.  
  27.   public
  28.     constructor Create(AOwner : TComponent); override;
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. constructor TDialerParametersForm.Create(AOwner : TComponent);
  36. begin
  37.   inherited Create(AOwner);
  38.  
  39.   {set default values}
  40.   MaximumRetriesEdit.Text     := IntToStr(MaxDialTries);
  41.   TimeBetweenRetriesEdit.Text := IntToStr(RetryTime);
  42.  
  43.   AbortOnVoiceBox.Checked := mdAbortOnVoice in DialerOpts;
  44.   AbortOnBusyBox.Checked := mdAbortOnBusy in DialerOpts;
  45.   AbortOnNoCarrierBox.Checked := mdAbortOnNoCarrier in DialerOpts;
  46.   AbortOnNoDialtoneBox.Checked := mdAbortOnNoDialtone in DialerOpts;
  47.   AbortOnErrorBox.Checked := mdAbortOnError in DialerOpts;
  48. end;
  49.  
  50. procedure TDialerParametersForm.OkBtnClick(Sender: TObject);
  51. var
  52.   E    : Integer;
  53.   Temp : Integer;
  54.  
  55. begin
  56.   Val(MaximumRetriesEdit.Text, Temp, E);
  57.   if (E = 0) then
  58.     MaxDialTries := Temp;
  59.   Val(TimeBetweenRetriesEdit.Text, Temp, E);
  60.   if (E = 0) then
  61.     RetryTime := Temp;
  62.  
  63.   DialerOpts := [];
  64.   if AbortOnVoiceBox.Checked then
  65.     DialerOpts := DialerOpts + [mdAbortOnVoice];
  66.   if AbortOnBusyBox.Checked then
  67.     DialerOpts := DialerOpts + [mdAbortOnBusy];
  68.   if AbortOnNoCarrierBox.Checked then
  69.     DialerOpts := DialerOpts + [mdAbortOnNoCarrier];
  70.   if AbortOnNoDialtoneBox.Checked then
  71.     DialerOpts := DialerOpts + [mdAbortOnNoDialtone];
  72.   if AbortOnErrorBox.Checked then
  73.     DialerOpts := DialerOpts + [mdAbortOnError];
  74. end;
  75.  
  76. end.
  77.  
  78.