home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / t1.pas < prev    next >
Pascal/Delphi Source File  |  1997-07-05  |  4KB  |  141 lines
  1. {
  2.              A unit for TEST1.DPR, a testprogram for:
  3.                                                          TzAnimated
  4.                                                          TzFrame
  5.                                                          TzVerSplit
  6.                                                          TzSegmentLabel
  7.                                                          TzSegmentClock
  8.                                                          TzBitmap
  9.                                                          TzSlideBar
  10.                                                          TzGauge
  11.                       The ZieglerCollection one (TM)
  12.                                 Version 1,01
  13.  
  14.            (C) Copyright 1995,96,97 By ZieglerSoft, all rights reserved
  15. }
  16. unit T1;
  17.  
  18. interface
  19.  
  20. uses
  21.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  22.   Forms, Dialogs, Zseg, ExtCtrls, Zsplit, Animate, SlideBar, zGauge,
  23.   StdCtrls, Mystd, Blend;
  24.  
  25. type
  26.   TForm1 = class(TForm)
  27.     zFrame1: TzFrame;
  28.     zVerSplit1: TzVerSplit;
  29.     ScrollBox1: TScrollBox;
  30.     ScrollBox2: TScrollBox;
  31.     zSegmentClock1: TzSegmentClock;
  32.     zSegmentLabel1: TzSegmentLabel;
  33.     zAnimated1: TzAnimated;
  34.     zBitmap1: TzBitmap;
  35.     zSlideBar1: TzSlideBar;
  36.     zSlideBar2: TzSlideBar;
  37.     zGauge1: TzGauge;
  38.     zGauge2: TzGauge;
  39.     zSlideBar3: TzSlideBar;
  40.     zSlideBar4: TzSlideBar;
  41.     zCalc1: TzCalc;
  42.     zShapeBtn1: TzShapeBtn;
  43.     Edit1: TEdit;
  44.     Edit2: TEdit;
  45.     Label1: TLabel;
  46.     Label2: TLabel;
  47.     Label3: TLabel;
  48.     procedure zAnimated1ChangeFrame(Sender: TObject);
  49.     procedure FormCreate(Sender: TObject);
  50.     procedure zSlideBar1Change(Sender: TObject);
  51.     procedure zSlideBar2Change(Sender: TObject);
  52.     procedure zVerSplit1SplitChange(Sender: TObject);
  53.     procedure zSlideBar4Change(Sender: TObject);
  54.     procedure zSlideBar3Change(Sender: TObject);
  55.     procedure zShapeBtn1Click(Sender: TObject);
  56.   private
  57.     { Private declarations }
  58.   public
  59.     { Public declarations }
  60.   end;
  61.  
  62. var
  63.   Form1: TForm1;
  64.  
  65. implementation
  66.  
  67. Uses
  68.   MMSystem;
  69.  
  70. {$R *.DFM}
  71.  
  72. procedure TForm1.zAnimated1ChangeFrame(Sender: TObject);
  73. begin
  74.   Case zAnimated1.Frame of
  75.     0    : Begin
  76.              zAnimated1.Play:=False;
  77.              {$IfNDef Win32}
  78.              If zVerSplit1.WhereSplit>3 then If sndPlaySound('bomb.wav',SND_NODEFAULT or SND_ASYNC or SND_NOSTOP) Then
  79.                While not(sndPlaySound(NIL,SND_NODEFAULT or SND_ASYNC or SND_NOSTOP)) Do
  80.              {$else}
  81.              If zVerSplit1.WhereSplit>3 then If Bool(PlaySound('bomb.wav',0,SND_NODEFAULT or
  82.                SND_ASYNC or SND_NOSTOP or SND_FILENAME)) then
  83.                While Not(Bool(PlaySound(' ',0,SND_ASYNC or SND_ALIAS or SND_NOSTOP))) Do
  84.              {$endif}
  85.                  Application.ProcessMessages;
  86.                zAnimated1.Play:=True;
  87.              End;
  88.     1..2 : zBitmap1.Visible:=True;
  89.   Else
  90.     zBitmap1.Visible:=False;
  91.   End;
  92. end;
  93.  
  94. procedure TForm1.FormCreate(Sender: TObject);
  95. begin
  96.   zSlideBar1.Value:=GetRValue(ColorToRGB(zSegmentLabel1.unlitColor));
  97.   zSlideBar2.Value:=GetGValue(ColorToRGB(zSegmentClock1.unlitColor));
  98. end;
  99.  
  100. procedure TForm1.zSlideBar1Change(Sender: TObject);
  101. begin
  102.   zSegmentLabel1.unlitColor:=RGB(zSlideBar1.Value,0,0);
  103. end;
  104.  
  105. procedure TForm1.zSlideBar2Change(Sender: TObject);
  106. begin
  107.   zSegmentClock1.unlitColor:=RGB(0,zSlideBar2.Value,0);
  108. end;
  109.  
  110. procedure TForm1.zVerSplit1SplitChange(Sender: TObject);
  111. Var
  112.   Where2 : Integer;
  113. begin
  114.   With zVerSplit1 DO Begin
  115.     ScrollBox2.Left:=0;
  116.     ScrollBox2.Width:=WhereSplit;
  117.     Where2:=WhereSplit+SplitterWidth;
  118.     ScrollBox1.Left:=Where2;
  119.     ScrollBox1.Width:=Width-Where2;
  120.   End;
  121. end;
  122.  
  123. procedure TForm1.zSlideBar4Change(Sender: TObject);
  124. begin
  125.   zGauge2.Value:=zSlideBar4.Value;
  126. end;
  127.  
  128. procedure TForm1.zSlideBar3Change(Sender: TObject);
  129. begin
  130.   zGauge1.Value:=100-zSlideBar3.Value;
  131. end;
  132.  
  133. procedure TForm1.zShapeBtn1Click(Sender: TObject);
  134. begin
  135.   zCalc1.CalcLine:=Edit1.Text;
  136.   if zCalc1.Calcresult<>TzcOK then Edit2.Text:='Error' else
  137.     Edit2.Text:=zCalc1.Number;
  138. end;
  139.  
  140. end.
  141.