Delphi控件源码

开发平台：
Delphi

VrReg.pas：源码内容
							{*****************************************************}
{                                                     }
{     Varian Component Workshop                       }
{                                                     }
{     Varian Software NL (c) 1996-2000                }
{     All Rights Reserved                             }
{                                                     }
{*****************************************************}
unit VrReg;
{$I VRLIB.INC}
interface
uses {$IFDEF VRSHARE}VrShareWin,{$ENDIF}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DsgnIntf, VrConst, VrTypes, VrClasses, VrControls, VrSysUtils,
  VrAnalog, VrArrow, VrBlotter, VrBorder, VrCalendar, VrCheckLed, VrDigit,
  VrGauge, VrGradient, VrImageLed, VrJoyPad, VrLabel, VrLCD, VrLeds, VrLights,
  VrMatrix, VrMeter, VrNavigator, VrRaster, VrScale, VrScanner, VrScope,
  VrSpectrum, VrSpinner, VrSwitch, VrTrackBar, VrSlider, VrTrayGauge,
  VrProgressBar, VrPaletteDlg, VrHyperLink, VrBanner, VrDeskTop,
  VrDesign, VrBitmapsDlg, VrPropEdit, VrHotImage, VrLevelBar, VrSystem,
  VrAnimate, VrThreads, VrUpDown, VrSlideShow, VrFormShape, VrCompass,
  VrButtons, VrShapeBtn, VrAudio, VrWaveDlg;
procedure Register;
implementation
{$R VRLIB.RES}
procedure Register;
begin
  RegisterComponents('Varian Workshop', [TVrAnalogClock,
    TVrArrow, TVrBlotter, TVrCalendar, TVrCheckLed, TVrGauge,
    TVrGradient, TVrJoypad, TVrNum, TVrClock, TVrLed, TVrLights,
    TVrMatrix, TVrRaster, TVrScanner, TVrIndicator, TVrSpectrum,
    TVrSlider, TVrLevelBar]);
  RegisterComponents('Varian Page 2', [TVrBorder,
    TVrDigit, TVrImageLed, TVrLabel, TVrMeter, TVrMediaButton,
    TVrNavigator, TVrScale, TVrScope, TVrShadowButton, TVrSpinner,
    TVrSwitch, TVrTrackBar, TVrTrayGauge, TVrUserLed, TVrProgressBar,
    TVrBanner, TVrHyperLink, TVrHotImage]);
  RegisterComponents('Varian Page 3', [TVrDemoButton, TVrUpDown,
    TVrSlideShow, TVrCompass, TVrCounter, TVrBitmapImage,
    TVrDeskTop, TVrAnimate, TVrBitmapButton, TVrFormShape,
    TVrBitmapList, TVrStringList, TVrTimer, TVrThread, TVrKeyStatus,
    TVrTrayIcon, TVrCopyFile, TVrBitmapCheckBox, TVrBitmapRadioButton]);
  RegisterComponents('Varian Page 4', [TVrHyperButton, TVrWave,
    TVrShapeBtn, TVrDirScan, TVrMatrixGroup]);
  RegisterPropertyEditor(TypeInfo(TVrPalette), nil, '', TVrPaletteProperty);
  RegisterPropertyEditor(TypeInfo(TVrVersion), nil, '', TVrVersionProperty);
  RegisterPropertyEditor(TypeInfo(TVrBitmaps), nil, '', TVrBitmapsProperty);
  RegisterPropertyEditor(TypeInfo(TVrAudioData), TVrWave, 'Sound', TVrWaveSoundProperty);
  RegisterComponentEditor(TVrBitmapList, TVrBitmapListEditor);
  RegisterComponentEditor(TVrStringList, TVrStringListEditor);
  RegisterComponentEditor(TVrWave, TVrWaveEditor);
end;
end.

						