?? tntunicodevcl_register.pas
字號:
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntUnicodeVcl_Register;
{$INCLUDE ..\Source\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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -