home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / dbtools.pak / OPTIONS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  859 b   |  43 lines
  1. unit Options;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Mask, ExtCtrls;
  7.  
  8. type
  9.   TOptionsDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     Bevel1: TBevel;
  13.     RefreshLabel1: TLabel;
  14.     RefreshTime: TMaskEdit;
  15.     procedure FormActivate(Sender: TObject);
  16.     procedure OKBtnClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   OptionsDlg: TOptionsDlg;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. uses SysUtils, SybMon;
  31.  
  32. procedure TOptionsDlg.FormActivate(Sender: TObject);
  33. begin
  34.   RefreshTime.Text := IntToStr (SybMonitorDialog.Refresh.Interval div 1000)
  35. end;
  36.  
  37. procedure TOptionsDlg.OKBtnClick(Sender: TObject);
  38. begin
  39.   SybMonitorDialog.Refresh.Interval := StrToInt (RefreshTime.Text) * 1000
  40. end;
  41.  
  42. end.
  43.