tntjvdb_register.pas

来自「TntExUpdate 是 流行的 TntUnicodeControls控件的扩」· PAS 代码 · 共 41 行

unit TntJvDB_Register;

interface

procedure Register;

implementation

uses
  DesignIntf, Classes,
  TntVer, TntJvAbout,
  TntJvDBCombobox, TntJvDBLookup, TntJvDBSpinEdit, TntJvMemDS;

const
  TNT_JV_DATA_CONTROLS = 'Tnt Jv Data Controls';
  TNT_JV_DATA_ACCESS = 'Tnt Jv Data Access';

procedure Register;
procedure RegH (CC: TClass);
begin
  RegisterPropertyEditor(TypeInfo(TAboutInfo), CC, 'About', TAboutTntJv);
end;
begin
  // ------- Jv Data Controls -------
  RegisterComponents(TNT_JV_DATA_CONTROLS, [TTntJvDBComboBox]);
  RegisterComponents(TNT_JV_DATA_CONTROLS, [TTntJvDBLookupCombo]);
  RegisterComponents(TNT_JV_DATA_CONTROLS, [TTntJvDbLookupList]);
  RegisterComponents(TNT_JV_DATA_CONTROLS, [TTntJvDBLookupEdit]);
  RegisterComponents(TNT_JV_DATA_CONTROLS, [TTntJvDBSpinEdit]);
  // ------- Jv Data Access --------
  RegisterComponents(TNT_JV_DATA_ACCESS, [TTntJvMemoryData]);

  RegH (TTntJvDBComboBox);
  RegH (TTntJvDBLookupCombo);
  RegH (TTntJvDbLookupList);
  RegH (TTntJvDBLookupEdit);
  RegH (TTntJvDBSpinEdit);
end;

end.