uledstyles.pas
上传用户:hbszzs
上传日期:2008-08-20
资源大小:628k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit uledstyles;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   VrJoypad, VrArrow, VrLeds, VrLights, VrImageLed, StdCtrls, VrControls,
  6.   VrBlotter, ExtCtrls;
  7. type
  8.   TForm1 = class(TForm)
  9.     Panel10: TPanel;
  10.     VrBlotter1: TVrBlotter;
  11.     VrLed2: TVrLed;
  12.     VrLed3: TVrLed;
  13.     VrLed4: TVrLed;
  14.     VrLed5: TVrLed;
  15.     VrLed6: TVrLed;
  16.     VrLed7: TVrLed;
  17.     Label16: TLabel;
  18.     VrBlotter2: TVrBlotter;
  19.     VrImageLed1: TVrImageLed;
  20.     VrImageLed2: TVrImageLed;
  21.     Label12: TLabel;
  22.     Label4: TLabel;
  23.     Label15: TLabel;
  24.     VrBlotter3: TVrBlotter;
  25.     VrLights2: TVrLights;
  26.     VrLights1: TVrLights;
  27.     VrLights3: TVrLights;
  28.     Label13: TLabel;
  29.     Label14: TLabel;
  30.     VrLights4: TVrLights;
  31.     Label17: TLabel;
  32.     VrBlotter4: TVrBlotter;
  33.     Label18: TLabel;
  34.     VrUserLed1: TVrUserLed;
  35.     VrUserLed2: TVrUserLed;
  36.     VrUserLed3: TVrUserLed;
  37.     VrUserLed4: TVrUserLed;
  38.     VrBlotter5: TVrBlotter;
  39.     VrArrow3: TVrArrow;
  40.     VrJoypad1: TVrJoypad;
  41.     VrArrow4: TVrArrow;
  42.     VrJoypad2: TVrJoypad;
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  48. var
  49.   Form1: TForm1;
  50. implementation
  51. {$R *.DFM}
  52. end.