tntunicodevcl_register.pas

BaiduMp3 search baidu mp3

{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{      http://www.tntware.com/delphicontrols/unicode/                         }
{        Version: 2.2.1                                                       }
{                                                                             }
{    Copyright (c) 2002-2005, Troy Wolbrink ([e-mail])       }
{                                                                             }
{*****************************************************************************}

unit TntUnicodeVcl_Register;

{$INCLUDE ..\TntCompilers.inc}

interface

{ TODO: Install program  (handle Std, Prof, Ent versions)  (ie. no database stuff for personal edition) }
{ TODO: $IFDEF DelphiPersonalEdition }

procedure Register;

implementation

uses
  Classes, DB, TntForms, TntMenus, TntStdCtrls, TntCheckLst, TntGrids, TntExtCtrls, TntComCtrls,
  TntButtons, TntDB, TntDBCtrls, TntDBGrids, TntActnList, TntDialogs, TntExtDlgs, DesignIntf;

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;
begin
  {$IFDEF COMPILER_9_UP}
  //  ForceDemandLoadState(dlDisable);
  {$ENDIF}

  // ------- Standard -------
  RegisterComponents(TNT_STANDARD, [TTntMainMenu]);
  RegisterComponents(TNT_STANDARD, [TTntPopupMenu]);
  RegisterComponents(TNT_STANDARD, [TTntLabel]);
  RegisterComponents(TNT_STANDARD, [TTntEdit]);
  RegisterComponents(TNT_STANDARD, [TTntMemo]);
  RegisterComponents(TNT_STANDARD, [TTntButton]);
  RegisterComponents(TNT_STANDARD, [TTntCheckBox]);
  RegisterComponents(TNT_STANDARD, [TTntRadioButton]);
  RegisterComponents(TNT_STANDARD, [TTntListBox]);
  RegisterComponents(TNT_STANDARD, [TTntComboBox]);
  RegisterComponents(TNT_STANDARD, [TTntScrollBar]);
  RegisterComponents(TNT_STANDARD, [TTntGroupBox]);
  RegisterComponents(TNT_STANDARD, [TTntRadioGroup]);
  RegisterComponents(TNT_STANDARD, [TTntPanel]);
  RegisterComponents(TNT_STANDARD, [TTntActionList]);

  // ------- Additional -------
  RegisterComponents(TNT_ADDITIONAL, [TTntBitBtn]);
  RegisterComponents(TNT_ADDITIONAL, [TTntSpeedButton]);
  { -- TTntMaskEdit goes here -- }
  RegisterComponents(TNT_ADDITIONAL, [TTntStringGrid]);
  RegisterComponents(TNT_ADDITIONAL, [TTntDrawGrid]);
  RegisterComponents(TNT_ADDITIONAL, [TTntImage]);
  RegisterComponents(TNT_ADDITIONAL, [TTntShape]);
  RegisterComponents(TNT_ADDITIONAL, [TTntBevel]);
  RegisterComponents(TNT_ADDITIONAL, [TTntScrollBox]);
  RegisterComponents(TNT_ADDITIONAL, [TTntCheckListBox]);
  RegisterComponents(TNT_ADDITIONAL, [TTntSplitter]);
  RegisterComponents(TNT_ADDITIONAL, [TTntStaticText]);
  RegisterComponents(TNT_ADDITIONAL, [TTntControlBar]);

  // ------- Win32 -------
  RegisterComponents(TNT_WIN32, [TTntTabControl]);
  RegisterComponents(TNT_WIN32, [TTntPageControl]);
  RegisterComponents(TNT_WIN32, [TTntRichEdit]);
  RegisterComponents(TNT_WIN32, [TTntTrackBar]);
  RegisterComponents(TNT_WIN32, [TTntProgressBar]);
  RegisterComponents(TNT_WIN32, [TTntUpDown]);
  { -- TTntHotKey goes here -- }
  { -- TTntAnimate goes here -- }
  RegisterComponents(TNT_WIN32, [TTntDateTimePicker]);
  RegisterComponents(TNT_WIN32, [TTntMonthCalendar]);
  RegisterComponents(TNT_WIN32, [TTntTreeView]);
  RegisterComponents(TNT_WIN32, [TTntListView]);
  { -- TTntHeader goes here -- }
  RegisterComponents(TNT_WIN32, [TTntStatusBar]);
  RegisterComponents(TNT_WIN32, [TTntToolBar]);
  { -- TTntCoolBar goes here -- }
  RegisterComponents(TNT_WIN32, [TTntPageScroller]);
  { -- TTntComboBoxEx goes here -- }

  // ------- System -------
  RegisterComponents(TNT_ADDITIONAL, [TTntPaintBox]);
  { -- TTntMediaPlayer goes here -- }
  { -- TTntOleContainer goes here -- }

  // ------- Data Controls -------
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBGrid]);
  { -- TTntDBNavigator goes here -- }
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBText]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEdit]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBMemo]);
  { -- TTntDBImage goes here -- }
  { -- TTntDBListBox goes here -- }
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBComboBox]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBCheckBox]);
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRadioGroup]);
  { -- TTntDBLookupListBox goes here -- }
  { -- TTntDBLookupComboBox goes here -- }
  RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRichEdit]);
  { -- TTntDBCtrlGrid here -- }
  { -- TTntDBLookupListBox goes here -- }
  { -- TTntDBChart goes here -- }

  // ------- Dialogs -------
  RegisterComponents(TNT_DIALOGS, [TTntOpenDialog]);
  RegisterComponents(TNT_DIALOGS, [TTntSaveDialog]);
  RegisterComponents(TNT_DIALOGS, [TTntOpenPictureDialog]);
  RegisterComponents(TNT_DIALOGS, [TTntSavePictureDialog]);

  // --------- Fields --------------
  RegisterTntFields;

  // --------- Classes --------------
  RegisterClass(TTntMenuItem);
  RegisterClass(TTntTabSheet);
  RegisterClass(TTntToolButton);
end;

end.