home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / Slide_1.pas < prev    next >
Pascal/Delphi Source File  |  1997-01-07  |  1KB  |  53 lines
  1.  
  2. Unit Slide_1;
  3.  
  4. {
  5.              A unit for SLIDETST.DPR, a testprogram for:
  6.                                                          TzSlideBar
  7.                                                          TzAngleLabel
  8.                                                          TzBigLabel
  9.                       The ZieglerCollection one (TM)
  10.                                 Version 1,01
  11.  
  12.            (C) Copyright 1995,96,97 By ZieglerSoft, all rights reserved
  13. }
  14.  
  15. Interface
  16.  
  17. Uses
  18.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls, Mystd, SlideBar;
  20.  
  21. Type
  22.   TForm1 = class(TForm)
  23.     zSlideBar1: TzSlideBar;
  24.     zAngleLabel1: TzAngleLabel;
  25.     zSlideBar2: TzSlideBar;
  26.     zBigLabel1: TzBigLabel;
  27.     zBigLabel2: TzBigLabel;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Procedure FormCreate(Sender: TObject);
  31.     Procedure zSlideBar1Change(Sender: TObject);
  32.   End;
  33.  
  34. Var
  35.   Form1: TForm1;
  36.  
  37. Implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. Procedure TForm1.FormCreate(Sender: TObject);
  42. Begin
  43.   zSlideBar1Change(Sender);
  44. End;
  45.  
  46. Procedure TForm1.zSlideBar1Change(Sender: TObject);
  47. Begin
  48.   zAnglelabel1.Caption:=zSlideBar1.CurrentLabel;
  49.   zSlideBar2.Value:=9-zSlideBar1.Value;
  50. End;
  51.  
  52. End.
  53.