home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / MODINFO.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-22  |  5KB  |  181 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   MODINFO.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Modinfo;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, TagFrm, BaudFrm, AdMisc, AdModDB;
  19.  
  20. type
  21.   TModemForm = class(TForm)
  22.     GroupBox1: TGroupBox;
  23.     Label1: TLabel;
  24.     ModemNameEdit: TEdit;
  25.     GroupBox2: TGroupBox;
  26.     GroupBox3: TGroupBox;
  27.     Label2: TLabel;
  28.     Label3: TLabel;
  29.     Label4: TLabel;
  30.     Label5: TLabel;
  31.     Label6: TLabel;
  32.     Label7: TLabel;
  33.     Label8: TLabel;
  34.     InitializeEdit: TEdit;
  35.     DialEdit: TEdit;
  36.     DialSuffixEdit: TEdit;
  37.     CancelDialEdit: TEdit;
  38.     HangupEdit: TEdit;
  39.     ConfigureEdit: TEdit;
  40.     AnswerEdit: TEdit;
  41.     Label9: TLabel;
  42.     OkayEdit: TEdit;
  43.     Label10: TLabel;
  44.     ConnectEdit: TEdit;
  45.     Label11: TLabel;
  46.     BusyEdit: TEdit;
  47.     Label12: TLabel;
  48.     VoiceEdit: TEdit;
  49.     Label13: TLabel;
  50.     NoCarrierEdit: TEdit;
  51.     Label14: TLabel;
  52.     NoDialtoneEdit: TEdit;
  53.     Label15: TLabel;
  54.     ErrorEdit: TEdit;
  55.     RingEdit: TEdit;
  56.     Label16: TLabel;
  57.     CorrectionBtn: TButton;
  58.     CompressBtn: TButton;
  59.     BaudBtn: TButton;
  60.     OkBtn: TBitBtn;
  61.     CancelBtn: TBitBtn;
  62.     HelpBtn: TBitBtn;
  63.     procedure CorrectionBtnClick(Sender: TObject);
  64.     procedure CompressBtnClick(Sender: TObject);
  65.     procedure BaudBtnClick(Sender: TObject);
  66.     procedure OkBtnClick(Sender: TObject);
  67.   public
  68.     EditData : PModemInfo;
  69.     Database : TModemDBase;
  70.     InitName : TModemName;
  71.  
  72.     constructor Create(AOwner : TComponent; var Data : TModemInfo; DB : TModemDBase);
  73.   end;
  74.  
  75. var
  76.   ModemForm: TModemForm;
  77.  
  78. implementation
  79.  
  80. {$R *.DFM}
  81.  
  82. constructor TModemForm.Create(AOwner : TComponent; var Data : TModemInfo; DB : TModemDBase);
  83. begin
  84.   inherited Create(AOwner);
  85.  
  86.   EditData := @Data;
  87.   Database := DB;
  88.   InitName := EditData^.Name;
  89.  
  90.   {set initial control values}
  91.   with EditData^ do begin
  92.     ModemNameEdit.Text  := Name;
  93.     InitializeEdit.Text := InitCmd;
  94.     DialEdit.Text       := DialCmd;
  95.     DialSuffixEdit.Text := DialTerm;
  96.     CancelDialEdit.Text := DialCancel;
  97.     HangupEdit.Text     := HangupCmd;
  98.     ConfigureEdit.Text  := ConfigCmd;
  99.     AnswerEdit.Text     := AnswerCmd;
  100.     OkayEdit.Text       := OkMsg;
  101.     ConnectEdit.Text    := ConnectMsg;
  102.     BusyEdit.Text       := BusyMsg;
  103.     VoiceEdit.Text      := VoiceMsg;
  104.     NoCarrierEdit.Text  := NoCarrierMsg;
  105.     NoDialToneEdit.Text := NoDialToneMsg;
  106.     ErrorEdit.Text      := ErrorMsg;
  107.     RingEdit.Text       := RingMsg;
  108.   end;
  109. end;
  110.  
  111. procedure TModemForm.CorrectionBtnClick(Sender: TObject);
  112. begin
  113.   {get error correction tags}
  114.   TagForm := TTagForm.Create(Self, EditData^.Errors, EditData^.NumErrors);
  115.   TagForm.Caption := 'Error Correction';
  116.   TagForm.ShowModal;
  117.   TagForm.Free;
  118. end;
  119.  
  120. procedure TModemForm.CompressBtnClick(Sender: TObject);
  121. begin
  122.   {get data compression tags}
  123.   TagForm := TTagForm.Create(Self, EditData^.Compression, EditData^.NumComps);
  124.   TagForm.Caption := 'Data Compression';
  125.   TagForm.ShowModal;
  126.   TagForm.Free;
  127. end;
  128.  
  129. procedure TModemForm.BaudBtnClick(Sender: TObject);
  130. begin
  131.   {get default link rate information}
  132.   BaudForm := TBaudForm.Create(Self, EditData^);
  133.   BaudForm.ShowModal;
  134.   BaudForm.Free;
  135. end;
  136.  
  137. procedure TModemForm.OkBtnClick(Sender: TObject);
  138. var
  139.   MName : TModemName;
  140.  
  141. begin
  142.   with EditData^ do begin
  143.     {validate the modem name--has one been entered?}
  144.     MName := TrimTrail(ModemNameEdit.Text);
  145.     if (MName = '') then begin
  146.       ModalResult := mrNone;
  147.       ModemNameEdit.SetFocus;
  148.       raise Exception.Create('You must enter a modem name');
  149.     end;
  150.  
  151.     {the modem name must be unique}
  152.     if (UpperCase(MName) <> UpperCase(InitName)) and (Database.Modems.IndexOf(MName) <> -1) then begin
  153.       ModalResult := mrNone;
  154.       ModemNameEdit.SetFocus;
  155.       raise Exception.Create('A modem with that name already exists');
  156.     end;
  157.  
  158.     {save data}
  159.     Name          := TrimTrail(ModemNameEdit.Text);
  160.     InitCmd       := TrimTrail(InitializeEdit.Text);
  161.     DialCmd       := TrimTrail(DialEdit.Text);
  162.     DialTerm      := TrimTrail(DialSuffixEdit.Text);
  163.     DialCancel    := TrimTrail(CancelDialEdit.Text);
  164.     HangupCmd     := TrimTrail(HangupEdit.Text);
  165.     ConfigCmd     := TrimTrail(ConfigureEdit.Text);
  166.     AnswerCmd     := TrimTrail(AnswerEdit.Text);
  167.     OkMsg         := TrimTrail(OkayEdit.Text);
  168.     ConnectMsg    := TrimTrail(ConnectEdit.Text);
  169.     BusyMsg       := TrimTrail(BusyEdit.Text);
  170.     VoiceMsg      := TrimTrail(VoiceEdit.Text);
  171.     NoCarrierMsg  := TrimTrail(NoCarrierEdit.Text);
  172.     NoDialToneMsg := TrimTrail(NoDialToneEdit.Text);
  173.     ErrorMsg      := TrimTrail(ErrorEdit.Text);
  174.     RingMsg       := TrimTrail(RingEdit.Text);
  175.   end;
  176.  
  177.   ModalResult := mrOK;
  178. end;
  179.  
  180. end.
  181.