home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / pcmag / v14n14 / wcomp.exe / WCOMPSRC.ZIP / OPTIONS.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-09  |  2KB  |  75 lines
  1. unit Options;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Spin, Buttons, ExtCtrls;
  8.  
  9. type
  10.   TOptionsDlg = class(TForm)
  11.     Sync: TSpinEdit;
  12.     Sensitivity: TSpinEdit;
  13.     OKButton: TBitBtn;
  14.     CancelBtn: TBitBtn;
  15.     SaveOptions: TButton;
  16.     DefaultBtn: TButton;
  17.     WindowOption: TRadioGroup;
  18.     Panel1: TPanel;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     procedure CurrentValue(Sender: TObject);
  22.     procedure SetValue(Sender: TObject);
  23.     procedure SaveValues(Sender: TObject);
  24.     procedure DefaultBtnClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   OptionsDlg: TOptionsDlg;
  33.  
  34. implementation
  35.  
  36. uses Main, Child;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TOptionsDlg.CurrentValue(Sender: TObject);
  41. begin
  42.   Sensitivity.Value:= FrameForm.MatchReach;
  43.   Sync.Value:= FrameForm.SyncReach;
  44.   OptionsDlg.ActiveControl:= Sync;
  45.   Sync.SelectAll;
  46.   WindowOption.ItemIndex:= FrameForm.WinOption;
  47. end;
  48.  
  49. procedure TOptionsDlg.SetValue(Sender: TObject);
  50. begin
  51.   with FrameForm do
  52.   begin
  53.     SyncReach:= Sync.Value;
  54.     MatchReach:= Sensitivity.Value;
  55.     WinOption:= WindowOption.ItemIndex;
  56.     SetWindows;
  57.   end;
  58. end;
  59.  
  60. procedure TOptionsDlg.SaveValues(Sender: TObject);
  61. begin
  62.   SetValue(Sender);
  63.   EditForm.SaveOptions1Click(Sender);
  64. end;
  65.  
  66. procedure TOptionsDlg.DefaultBtnClick(Sender: TObject);
  67. begin
  68.   Sync.Value:= 400;
  69.   Sensitivity.Value:= 10;
  70.   WindowOption.ItemIndex:= 0;
  71.   FrameForm.SetWindows;
  72. end;
  73.  
  74. end.
  75.