home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / p1.pas < prev    next >
Pascal/Delphi Source File  |  1997-09-02  |  3KB  |  123 lines
  1. unit P1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, zLed, zPanel, Blend, Animate;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     zScope1: TzScope;
  12.     zDblKnob1: TzDblKnob;
  13.     zPanelMeter1: TzPanelMeter;
  14.     zPanelMeter2: TzPanelMeter;
  15.     zLed1: TzLed;
  16.     zBackground1: TzBackground;
  17.     zFrame1: TzFrame;
  18.     zKnob1: TzKnob;
  19.     zNWColorBtn1: TzNWColorBtn;
  20.     zNWColorBtn2: TzNWColorBtn;
  21.     zKnob2: TzKnob;
  22.     zKnob3: TzKnob;
  23.     procedure zDblKnob1Change(Sender: TObject);
  24.     procedure zLed1Change(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure zKnob1Change(Sender: TObject);
  27.     procedure zNWColorBtn1Click(Sender: TObject);
  28.     procedure zNWColorBtn2Click(Sender: TObject);
  29.     procedure zKnob2Change(Sender: TObject);
  30.     procedure zKnob3Change(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   Form1: TForm1;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TForm1.zDblKnob1Change(Sender: TObject);
  45. begin
  46.   zScope1.Ajust1:=zDblKnob1.Value;
  47.   zScope1.Ajust2:=zDblKnob1.Value2;
  48. end;
  49.  
  50. procedure TForm1.zLed1Change(Sender: TObject);
  51. begin
  52.   zScope1.Channel1:=Trunc(Random(100)+1);
  53.   zPanelmeter1.Value:=zScope1.Channel1;
  54.   zScope1.Channel2:=Trunc(Random(100)+1);
  55.   zPanelmeter2.Value:=zScope1.Channel2;
  56. end;
  57.  
  58. procedure TForm1.FormCreate(Sender: TObject);
  59. begin
  60.   Randomize;
  61.   zDblKnob1.Value:=-100;
  62.   zScope1.Ajust1:=zDblKnob1.Value;
  63.   zScope1.Ajust2:=zDblKnob1.Value2;
  64.   zKnob2.Value:=0;
  65.   zKnob3.Value:=1;
  66. end;
  67.  
  68. procedure TForm1.zKnob1Change(Sender: TObject);
  69. begin
  70.   With zKnob1 Do
  71.     zScope1.FaceColor:=RGB(Value,Value,Value);
  72. end;
  73.  
  74. procedure TForm1.zNWColorBtn1Click(Sender: TObject);
  75. begin
  76.   zLed1.Blink:=Not(zLed1.Blink);
  77. end;
  78.  
  79. procedure TForm1.zNWColorBtn2Click(Sender: TObject);
  80. Var
  81.   B : BeamArray;
  82. begin
  83.   FillChar(B,1000,0);
  84.   zScope1.SetAllChannel1(B);
  85.   zScope1.SetAllChannel2(B);
  86.   zPanelmeter1.Value:=0;
  87.   zPanelmeter2.Value:=0;
  88. end;
  89.  
  90. procedure TForm1.zKnob2Change(Sender: TObject);
  91. begin
  92.   With zScope1 Do Begin
  93.     Case zKnob2.Value of
  94.       0 : Beam1Color:=clLime;
  95.       1 : Beam1Color:=clRed;
  96.       2 : Beam1Color:=clyellow;
  97.       3 : Beam1Color:=clBlue;
  98.       4 : Beam1Color:=clFuchsia;
  99.       5 : Beam1Color:=clAqua;
  100.       6 : Beam1Color:=clWhite;
  101.       7 : Beam1Color:=clSilver;
  102.     End;
  103.   End;
  104. end;
  105.  
  106. procedure TForm1.zKnob3Change(Sender: TObject);
  107. begin
  108.   With zScope1 Do Begin
  109.     Case zKnob3.Value of
  110.       0 : Beam2Color:=clLime;
  111.       1 : Beam2Color:=clRed;
  112.       2 : Beam2Color:=clyellow;
  113.       3 : Beam2Color:=clBlue;
  114.       4 : Beam2Color:=clFuchsia;
  115.       5 : Beam2Color:=clAqua;
  116.       6 : Beam2Color:=clWhite;
  117.       7 : Beam2Color:=clSilver;
  118.     End;
  119.   End;
  120. end;
  121.  
  122. end.
  123.