abkdbstd.pas

来自「著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行」· PAS 代码 · 共 55 行

unit AbkDBStd;

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

interface
{$I abks.inc}

procedure Register;

implementation

uses Classes,
  AbDBCtrls;

procedure Register;
begin

  RegisterComponents('AbDBAware', [TAbDBVSlider]);
  RegisterComponents('AbDBAware', [TAbDBHSlider]);
  RegisterComponents('AbDBAware', [TAbDBDial]);
  RegisterComponents('AbDBAware', [TAbDBGearDial]);

  RegisterComponents('AbDBAware', [TAbDBValueInd]);

  RegisterComponents('AbDBAware', [TAbDBBar]);
  RegisterComponents('AbDBAware', [TAbDBHBar]);
  RegisterComponents('AbDBAware', [TAbDBVBar]);
  RegisterComponents('AbDBAware', [TAbDBThermometer]);
  RegisterComponents('AbDBAware', [TAbDBTank]);

  RegisterComponents('AbDBAware', [TAbDBHMeter]);
  RegisterComponents('AbDBAware', [TAbDBVMeter]);
  RegisterComponents('AbDBAware', [TAbDB120Meter]);
  RegisterComponents('AbDBAware', [TAbDB180Meter]);
  RegisterComponents('AbDBAware', [TAbDB270Meter]);

  RegisterComponents('AbDBAware', [TAbDBLED]);

  RegisterComponents('AbDBAware', [TAbDBColBitBtn]);
  RegisterComponents('AbDBAware', [TAbDBRockerSwitch]);
  RegisterComponents('AbDBAware', [TAbDBToggleSwitch]);

end;

end.