Design/TntUnicodeVcl_Register.pas

   1
   2 {*****************************************************************************}
   3 {                                                                             }
   4 {    Tnt Delphi Unicode Controls                                              }
   5 {      http://www.tntware.com/delphicontrols/unicode/                         }
   6 {        Version: 2.3.0                                                       }
   7 {                                                                             }
   8 {    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
   9 {                                                                             }
  10 {*****************************************************************************}
  11
  12 unit TntUnicodeVcl_Register;
  13
  14 {$INCLUDE ..\Source\TntCompilers.inc}
  15
  16 interface
  17
  18 { TODO: Install program  (handle Std, Prof, Ent versions)  (ie. no database stuff for personal edition) }
  19 { TODO: $IFDEF DelphiPersonalEdition }
  20
  21 procedure Register;
  22
  23 implementation
  24
  25 uses
  26   Classes, DB, TntForms, TntMenus, TntStdCtrls, TntCheckLst, TntGrids, TntExtCtrls, TntComCtrls,
  27   TntButtons, TntDB, TntDBCtrls, TntDBGrids, TntActnList, TntDialogs, TntExtDlgs, DesignIntf;
  28
  29 const
  30   TNT_STANDARD      = 'Tnt Standard';
  31   TNT_ADDITIONAL    = 'Tnt Additional';
  32   TNT_WIN32         = 'Tnt Win32';
  33   TNT_DATA_CONTROLS = 'Tnt Data Controls';
  34   TNT_DIALOGS       = 'Tnt Dialogs';
  35
  36 procedure Register;
  37 begin
  38   {$IFDEF COMPILER_9_UP}
  39   //  ForceDemandLoadState(dlDisable);
  40   {$ENDIF}
  41
  42   // ------- Standard -------
  43   RegisterComponents(TNT_STANDARD, [TTntMainMenu]);
  44   RegisterComponents(TNT_STANDARD, [TTntPopupMenu]);
  45   RegisterComponents(TNT_STANDARD, [TTntLabel]);
  46   RegisterComponents(TNT_STANDARD, [TTntEdit]);
  47   RegisterComponents(TNT_STANDARD, [TTntMemo]);
  48   RegisterComponents(TNT_STANDARD, [TTntButton]);
  49   RegisterComponents(TNT_STANDARD, [TTntCheckBox]);
  50   RegisterComponents(TNT_STANDARD, [TTntRadioButton]);
  51   RegisterComponents(TNT_STANDARD, [TTntListBox]);
  52   RegisterComponents(TNT_STANDARD, [TTntComboBox]);
  53   RegisterComponents(TNT_STANDARD, [TTntScrollBar]);
  54   RegisterComponents(TNT_STANDARD, [TTntGroupBox]);
  55   RegisterComponents(TNT_STANDARD, [TTntRadioGroup]);
  56   RegisterComponents(TNT_STANDARD, [TTntPanel]);
  57   RegisterComponents(TNT_STANDARD, [TTntActionList]);
  58
  59   // ------- Additional -------
  60   RegisterComponents(TNT_ADDITIONAL, [TTntBitBtn]);
  61   RegisterComponents(TNT_ADDITIONAL, [TTntSpeedButton]);
  62   { -- TTntMaskEdit goes here -- }
  63   RegisterComponents(TNT_ADDITIONAL, [TTntStringGrid]);
  64   RegisterComponents(TNT_ADDITIONAL, [TTntDrawGrid]);
  65   RegisterComponents(TNT_ADDITIONAL, [TTntImage]);
  66   RegisterComponents(TNT_ADDITIONAL, [TTntShape]);
  67   RegisterComponents(TNT_ADDITIONAL, [TTntBevel]);
  68   RegisterComponents(TNT_ADDITIONAL, [TTntScrollBox]);
  69   RegisterComponents(TNT_ADDITIONAL, [TTntCheckListBox]);
  70   RegisterComponents(TNT_ADDITIONAL, [TTntSplitter]);
  71   RegisterComponents(TNT_ADDITIONAL, [TTntStaticText]);
  72   RegisterComponents(TNT_ADDITIONAL, [TTntControlBar]);
  73
  74   // ------- Win32 -------
  75   RegisterComponents(TNT_WIN32, [TTntTabControl]);
  76   RegisterComponents(TNT_WIN32, [TTntPageControl]);
  77   RegisterComponents(TNT_WIN32, [TTntRichEdit]);
  78   RegisterComponents(TNT_WIN32, [TTntTrackBar]);
  79   RegisterComponents(TNT_WIN32, [TTntProgressBar]);
  80   RegisterComponents(TNT_WIN32, [TTntUpDown]);
  81   { -- TTntHotKey goes here -- }
  82   { -- TTntAnimate goes here -- }
  83   RegisterComponents(TNT_WIN32, [TTntDateTimePicker]);
  84   RegisterComponents(TNT_WIN32, [TTntMonthCalendar]);
  85   RegisterComponents(TNT_WIN32, [TTntTreeView]);
  86   RegisterComponents(TNT_WIN32, [TTntListView]);
  87   { -- TTntHeader goes here -- }
  88   RegisterComponents(TNT_WIN32, [TTntStatusBar]);
  89   RegisterComponents(TNT_WIN32, [TTntToolBar]);
  90   { -- TTntCoolBar goes here -- }
  91   RegisterComponents(TNT_WIN32, [TTntPageScroller]);
  92   { -- TTntComboBoxEx goes here -- }
  93
  94   // ------- System -------
  95   RegisterComponents(TNT_ADDITIONAL, [TTntPaintBox]);
  96   { -- TTntMediaPlayer goes here -- }
  97   { -- TTntOleContainer goes here -- }
  98
  99   // ------- Data Controls -------
 100   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBGrid]);
 101   { -- TTntDBNavigator goes here -- }
 102   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBText]);
 103   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEdit]);
 104   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBMemo]);
 105   { -- TTntDBImage goes here -- }
 106   { -- TTntDBListBox goes here -- }
 107   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBComboBox]);
 108   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBCheckBox]);
 109   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRadioGroup]);
 110   { -- TTntDBLookupListBox goes here -- }
 111   { -- TTntDBLookupComboBox goes here -- }
 112   RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRichEdit]);
 113   { -- TTntDBCtrlGrid here -- }
 114   { -- TTntDBLookupListBox goes here -- }
 115   { -- TTntDBChart goes here -- }
 116
 117   // ------- Dialogs -------
 118   RegisterComponents(TNT_DIALOGS, [TTntOpenDialog]);
 119   RegisterComponents(TNT_DIALOGS, [TTntSaveDialog]);
 120   RegisterComponents(TNT_DIALOGS, [TTntOpenPictureDialog]);
 121   RegisterComponents(TNT_DIALOGS, [TTntSavePictureDialog]);
 122
 123   // --------- Fields --------------
 124   RegisterTntFields;
 125
 126   // --------- Classes --------------
 127   RegisterClass(TTntMenuItem);
 128   RegisterClass(TTntTabSheet);
 129   RegisterClass(TTntToolButton);
 130 end;
 131
 132 end.