home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / LedTest1.pas < prev    next >
Pascal/Delphi Source File  |  1997-01-07  |  2KB  |  104 lines
  1. unit Ledtest1;
  2.  
  3. {
  4.              A unit for LEDTEST.DPR, a testprogram for:
  5.                                                         TztitleBar
  6.                                                         TzAngleLabel
  7.                                                         TzLed
  8.                                                         TzColorBtn
  9.  
  10.                       The ZieglerCollection one (TM)
  11.                                 Version 1,01
  12.  
  13.            (C) Copyright 1995,96,97 By ZieglerSoft, all rights reserved
  14. }
  15.  
  16.  
  17. interface
  18.  
  19. uses
  20.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  21.   Forms, Dialogs, Animate, Mystd, StdCtrls, zLed, ExtCtrls, SlideBar, Zseg;
  22.  
  23. type
  24.   TForm1 = class(TForm)
  25.     L1: TzLed;
  26.     L2: TzLed;
  27.     L3: TzLed;
  28.     L4: TzLed;
  29.     L5: TzLed;
  30.     L6: TzLed;
  31.     L7: TzLed;
  32.     L8: TzLed;
  33.     L9: TzLed;
  34.     L10: TzLed;
  35.     L11: TzLed;
  36.     L12: TzLed;
  37.     L13: TzLed;
  38.     L14: TzLed;
  39.     L15: TzLed;
  40.     L16: TzLed;
  41.     L17: TzLed;
  42.     L18: TzLed;
  43.     L19: TzLed;
  44.     L20: TzLed;
  45.     L21: TzLed;
  46.     L22: TzLed;
  47.     L23: TzLed;
  48.     L24: TzLed;
  49.     L26: TzLed;
  50.     L25: TzLed;
  51.     L27: TzLed;
  52.     L28: TzLed;
  53.     L29: TzLed;
  54.     L30: TzLed;
  55.     L31: TzLed;
  56.     L32: TzLed;
  57.     L33: TzLed;
  58.     L34: TzLed;
  59.     L35: TzLed;
  60.     L36: TzLed;
  61.     Label1: TLabel;
  62.     zTitleBar1: TzTitleBar;
  63.     zColorBtn1: TzColorBtn;
  64.     zAngleLabel1: TzAngleLabel;
  65.     Timer1: TTimer;
  66.     procedure zShapeBtn1Click(Sender: TObject);
  67.     procedure zLed1Change(Sender: TObject);
  68.     procedure FormCreate(Sender: TObject);
  69.     Private
  70.       A:Integer;
  71.     Public
  72.   end;
  73.  
  74. var
  75.   Form1: TForm1;
  76.  
  77. implementation
  78.  
  79. {$R *.DFM}
  80.  
  81. procedure TForm1.zShapeBtn1Click(Sender: TObject);
  82. begin
  83.   Close;
  84. end;
  85.  
  86. Procedure TForm1.zLed1Change(Sender: TObject);
  87. Var
  88.   LED : tZLed;
  89. Begin
  90.   Inc(A);
  91.   If A>35 then A:=0;
  92.   zAngleLabel1.Angle:=A*10;
  93.   LED:=TzLed(FindComponent('L'+IntToStr(A+1)));
  94.   Led.Enabled:=Not(Led.Enabled);
  95. End;
  96.  
  97. procedure TForm1.FormCreate(Sender: TObject);
  98. begin
  99.   A:=0;
  100.   Timer1.Enabled:=True;
  101. end;
  102.  
  103. end.
  104.