tntunicodecontrolsex_register.pas

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

unit TntUnicodeControlsEx_Register;

interface

procedure Register;

implementation

uses
  DesignIntf, Classes, SysUtils,
  TntVer, TntAbout,
  TntDBCtrlsEx, TntLookupComboBoxEx, TntDbEx, TntADODB, TntDBGridsEx,
  TntUnicodeControlsEx_DesignEditors;

type
  TAboutTntH = class(TAboutTnt)
  protected
    function DialogTitle: string; override;
    function DialogMess: string; override;
    function PropertyTitle: string; override;
  end;

{--------------------------------------}
{-PROTECTED--------}

function TAboutTntH.DialogMess: string;
begin
  Result := Format ('Adapted by'#13#10'%s'#13#10#13#10'Used:'#13#10'%s',
   [FLMess, TntWareStr]);
end;

function TAboutTntH.DialogTitle: string;
begin
  Result := 'Tnt-Ex';
end;

function TAboutTntH.PropertyTitle: string;
begin
  Result := Concat ('Tnt-Ex, Version ', TntJVCL_VersionString);
end;

{--------------------------------------}
const
  TNT_STANDARD = 'Tnt Standard';
  TNT_ADDITIONAL = 'Tnt Additional';
  TNT_WIN32 = 'Tnt Win32';
  TNT_DATA_CONTROLS = 'Tnt Data Controls';
  TNT_DIALOGS = 'Tnt Dialogs';

procedure Register;
procedure RegH (CC: TClass);
begin
  RegisterPropertyEditor(TypeInfo(TAboutInfo), CC, 'About', TAboutTntH);
end;
begin
  // ------- Standard -------
  RegisterComponents(TNT_STANDARD, [TTntDynLookupComboBox]);
  RegisterComponents(TNT_STANDARD, [TTntValueComboBox]);

  // ------- Data Controls -------
  //RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRadioGroup]);
  //RegisterComponents(TNT_DATA_CONTROLS, [TTntDBMemo]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBNavigator]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBNavigatorEx]);

  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBDynLookupComboBox]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBGridEx]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEditEx]);
  RegisterClass(TTntColumnEx);

  // --- ADO ---
  RegisterComponents('ADO', [TTntADOQuery]);
  RegisterComponents('ADO', [TTntADOStoredProc]);
  // --- Fields ---

  RegisterTntFieldsEx;

  // --- Editors ---
  RegisterPropertyEditor(TypeInfo(WideString), TTntADOStoredProc, 'ProcedureName', TProcedureNameProperty);
  RegH (TTntDynLookupComboBox);
  RegH (TTntValueComboBox);
  RegH (TTntDBNavigator);
  RegH (TTntDBNavigatorEx);
  RegH (TTntDBDynLookupComboBox);
  RegH (TTntDBGridEx);
  RegH (TTntDBEditEx);
end;

end.