tntjvctl_register.pas

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

unit TntJvCtl_Register;

interface

procedure Register;

implementation

uses
  DesignIntf, Classes,
  TntVer, TntJvAbout,
  TntJvExStdCtrls,
  TntJvButtons, TntJvBitBtn, TntJvPanel, TntJvLabel, TntJvGroupBox, TntJvRadioButton,
  TntJvSpeedButton, TntJvRadioGroup, TntJvToolEdit, TntJvCheckBox, TntJvCheckListBox,
  TntJvEdit,
  TntJvMemo,
  TntJvSpin, TntJvCombobox, TntJvColorCombo;

procedure Register;
procedure RegH (CC: TClass);
begin
  RegisterPropertyEditor(TypeInfo(TAboutInfo), CC, 'About', TAboutTntJv);
end;
begin
  RegisterComponents('Tnt Jv Controls',
    [  // ------- Jv Controls -------
     TTntJvLabel, TTntJvButton, TTntJvBitBtn, TTntJvSpeedButton,
     TTntJvPanel, TTntJvGroupBox,
     TTntJvCheckBox, TTntJvComboBox, TTntJvColorComboBox, TTntJvFontComboBox,
     TTntJvRadioButton, TTntJvRadioGroup,
     TTntJvEdit, TTntJvMemo,
     TTntJvComboEdit, TTntJvFilenameEdit, TTntJvDirectoryEdit, TTntJvDateEdit,
     TTntJvCheckListBox,
     TTntJvCheckedComboBox, TTntJvSpinEdit]);
  RegH (TTntJvLabel);
  RegH (TTntJvButton);
  RegH (TTntJvComboBox);
  RegH (TTntJvColorComboBox);
  RegH (TTntJvFontComboBox);
  RegH (TTntJvBitBtn);
  RegH (TTntJvSpeedButton);
  RegH (TTntJvGroupBox);
  RegH (TTntJvCheckBox);
  RegH (TTntJvRadioButton);
  RegH (TTntJvRadioGroup);
  RegH (TTntJvEdit);
  RegH (TTntJvMemo);
  RegH (TTntJvComboEdit);
  RegH (TTntJvFilenameEdit);
  RegH (TTntJvDirectoryEdit);
  RegH (TTntJvDateEdit);
  RegH (TTntJvCheckListBox);
  RegH (TTntJvCheckedComboBox);
  RegH (TTntJvSpinEdit);
end;

end.