tntjvdb_register.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

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.