abkstd.pas

著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行

unit AbkStd;

{******************************************************************************}
{ Abakus VCL                                                                   }
{                            Abakus std. components                            }
{                                                                              }
{******************************************************************************}
{        e-Mail: [e-mail] , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2000 A.Baecker, All rights Reserved             }
{******************************************************************************}

interface
{$I abks.inc}
{$R Abakus32.res}


procedure Register;

implementation

uses Classes,
  _GClass, AbVMeter, AbVInd, AbVBar, AbTank, AbHMeter, AbHBar,
  AbClock, AbBar,  AbRMeter, AbOpPnt, AbMTrend, AbDial,
  AbHSlide, AbVSlide, AbCompas, AbVCInd, AbTrend, AbPrtTrd, AbLED, AbThMet,
  AbSwitch, AbCBitBt, AbOpHour, AbLabel, AbGradient,
  _AbInfo,
  AbBevel, AbPanel, AbGearDial, AbNumEdit;

procedure Register;
begin
  RegisterComponents('AbMisc', [TAbClock]);
  RegisterComponents('AbMisc', [TAbOpHourCounter]);
  RegisterComponents('AbMisc', [TAbLabel]);
  RegisterComponents('AbMisc', [TAbBevel]);
  RegisterComponents('AbMisc', [TAbPanel]);
  RegisterComponents('AbMisc', [TAbGradient]);
  RegisterComponents('AbMisc', [TAbTimerSpeedBtn]);
  RegisterComponents('AbMisc', [TAbSpinButton]);
  RegisterComponents('AbMisc', [TAbNumEdit]);
  RegisterComponents('AbMisc', [TAbNumSpin]);

  RegisterComponents('AbAnalogInd', [TAbValueInd]);
  RegisterComponents('AbAnalogInd', [TAbBar]);
  RegisterComponents('AbAnalogInd', [TAbVBar]);
  RegisterComponents('AbAnalogInd', [TAbHBar]);
  RegisterComponents('AbAnalogInd', [TAbThermometer]);
  RegisterComponents('AbAnalogInd', [TAbTank]);
  RegisterComponents('AbAnalogInd', [TAbVMeter]);
  RegisterComponents('AbAnalogInd', [TAbHMeter]);
  RegisterComponents('AbAnalogInd', [TAb120Meter]);
  RegisterComponents('AbAnalogInd', [TAb180Meter]);
  RegisterComponents('AbAnalogInd', [TAb270Meter]);
  //RegisterComponents('AbAnalogInd', [TAb360Meter]);
  RegisterComponents('AbAnalogInd', [TAbCompass]);
  RegisterComponents('AbAnalogInd', [TAbVCInd]);
  RegisterComponents('AbAnalogInd', [TAbOperatingPoint]);
  RegisterComponents('AbAnalogInd', [TAbMiniTrend]);
  RegisterComponents('AbAnalogInd', [TAbTrend]);
  RegisterComponents('AbAnalogInd', [TAbPrintTrend]);
  

  RegisterComponents('AbAnalogAdj', [TAbDial]);
  RegisterComponents('AbAnalogAdj', [TAbGearDial]);
  RegisterComponents('AbAnalogAdj', [TAbHSlider]);
  RegisterComponents('AbAnalogAdj', [TAbVSlider]);

  RegisterComponents('AbBinary', [TAbLED]);
  RegisterComponents('AbBinary', [TAbColBitBtn]);
  RegisterComponents('AbBinary', [TAbRockerSwitch]);
  RegisterComponents('AbBinary', [TAbToggleSwitch]);
 // RegisterComponents('Abakus', [TAbLeverSwitch]);      // not ready yet

end;

end.