home *** CD-ROM | disk | FTP | other *** search
- unit V11_1;
-
- interface
-
- uses
- SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
- Forms, Dialogs, Animate, Std2, Mystd, StdCtrls, zGauge;
-
- type
- TForm1 = class(TForm)
- zMinMax1: TzMinMax;
- zColorBtn1: TzColorBtn;
- zShowApp1: TzShowApp;
- Edit1: TEdit;
- zGradBtn1: TzGradBtn;
- zBigLabel1: TzBigLabel;
- zBitColBtn1: TzBitColBtn;
- zBitColBtn2: TzBitColBtn;
- zGauge1: TzGauge;
- procedure zColorBtn1Click(Sender: TObject);
- procedure zBitColBtn1Click(Sender: TObject);
- procedure zBitColBtn2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
- procedure TForm1.zColorBtn1Click(Sender: TObject);
- begin
- Edit1.Text:=zShowApp1.WindowsString;
- end;
-
- procedure TForm1.zBitColBtn1Click(Sender: TObject);
- begin
- zGauge1.Value:=zGauge1.Value-1;
- end;
-
- procedure TForm1.zBitColBtn2Click(Sender: TObject);
- begin
- zGauge1.Value:=zGauge1.Value+1;
- end;
-
- end.
-