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.
|
---|