home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SAMPLES.DAT / SAMPLES / ADDONSMP / SWIUNIT.PAS < prev   
Pascal/Delphi Source File  |  1997-07-03  |  1KB  |  58 lines
  1. Unit SwiUnit;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   Classes, Forms, Graphics, GlyphBtn, ComCtrls;
  7.  
  8. Type
  9.   TOnOffSwitchForm = Class (TForm)
  10.     OnOffSwitch1: TOnOffSwitch;
  11.     OnOffSwitch2: TOnOffSwitch;
  12.     OnOffSwitch3: TOnOffSwitch;
  13.     OnOffSwitch4: TOnOffSwitch;
  14.     ProgressBar1: TProgressBar;
  15.     ProgressBar2: TProgressBar;
  16.     ProgressBar3: TProgressBar;
  17.     ProgressBar4: TProgressBar;
  18.     Timer1: TTimer;
  19.     Procedure OnOffSwitchFormOnCreate (Sender: TObject);
  20.     Procedure Timer1OnTimer (Sender: TObject);
  21.   Private
  22.     {Insert private declarations here}
  23.   Public
  24.     {Insert public declarations here}
  25.   End;
  26.  
  27. Var
  28.   OnOffSwitchForm: TOnOffSwitchForm;
  29.  
  30. Implementation
  31.  
  32. Procedure TOnOffSwitchForm.OnOffSwitchFormOnCreate (Sender: TObject);
  33. Begin
  34.   Timer1.Start;
  35. End;
  36.  
  37. Procedure TOnOffSwitchForm.Timer1OnTimer (Sender: TObject);
  38.  
  39.   Procedure SetState(Switch:TOnOffSwitch;ProgressBar:TProgressBar);
  40.   Begin
  41.      If not Switch.Down Then
  42.        ProgressBar.Position:=Random(100);
  43.   End;
  44.  
  45. Begin
  46.    If Handle=0 Then exit;
  47.  
  48.    Randomize;
  49.    SetState(OnOffSwitch1,ProgressBar1);
  50.    SetState(OnOffSwitch2,ProgressBar2);
  51.    SetState(OnOffSwitch3,ProgressBar3);
  52.    SetState(OnOffSwitch4,ProgressBar4);
  53. End;
  54.  
  55. Initialization
  56.   RegisterClasses ([TOnOffSwitchForm, TOnOffSwitch, TProgressBar, TTimer]);
  57. End.
  58.