开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
usliders.pas
资源名称：varian_led_studio_3.34.rar　[点击查看]
上传用户：hbszzs
上传日期：2008-08-20
资源大小：628k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

usliders.pas：源码内容
  1. unit usliders;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   VrControls, VrSlider, VrProgressBar, VrScanner, StdCtrls, VrLcd, ExtCtrls,
  8.   VrTrackBar, VrSystem;
  10. type
  11.   TForm1 = class(TForm)
  12.     VrNum1: TVrNum;
  13.     VrIndicator1: TVrIndicator;
  14.     VrProgressBar1: TVrProgressBar;
  15.     VrProgressBar2: TVrProgressBar;
  16.     VrProgressBar3: TVrProgressBar;
  17.     VrNum3: TVrNum;
  18.     VrSlider1: TVrSlider;
  19.     VrSlider2: TVrSlider;
  20.     VrTrackBar1: TVrTrackBar;
  21.     VrTrackBar2: TVrTrackBar;
  22.     VrTrackBar3: TVrTrackBar;
  23.     VrBitmapList1: TVrBitmapList;
  24.     procedure VrSlider1Change(Sender: TObject);
  25.     procedure VrSlider2Change(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  37. {$R *.DFM}
  39. procedure TForm1.VrSlider1Change(Sender: TObject);
  40. begin
  41.   VrNum1.Value := VrSlider1.Position;
  42.   VrProgressBar1.Position := VrSlider1.Position;
  43.   VrProgressBar2.Position := VrSlider1.Position;
  44.   VrProgressBar3.Position := VrSlider1.Position;
  45. end;
  47. procedure TForm1.VrSlider2Change(Sender: TObject);
  48. begin
  49.   VrNum3.Value := VrSlider2.Position;
  50.   VrIndicator1.Position := VrSlider2.Position;
  51. end;
  53. end.