📄 sdefaults.pas
字号:
unit sDefaults;
{$i sDefs.inc}
interface
uses sConst, ComCtrls;
type // Do not change types
TacThirdPartyTypes = (tpEdit, tpButton, tpBitBtn, tpCheckBox, tpComboBox, tpGrid, tpGroupBox, tpListView, tpPanel, tpTreeView, tpwwEdit, tpGridEh, tpVirtualTree);
const
acLastSupportedType = tpVirtualTree; // Do not change
// Names of standard and 3rd-party controls for automatic skinning (may be changed before recompiling of the package)
sl_Third_Edit =
{$IFDEF TNTUNICODE}
'TTntEdit' + #13#10 +
'TTntMemo' + #13#10 +
'TTntListBox' + #13#10 +
'TTntCheckListBox' + #13#10 +
'TTntRichEdit' + #13#10 +
'TTntDBEdit' + #13#10 +
'TTntDBMemo' + #13#10 +
'TTntDBRichEdit' + #13#10 +
{$ENDIF}
'TEdit' + #13#10 +
'TMemo' + #13#10 +
'TMaskEdit' + #13#10 +
'TLabeledEdit' + #13#10 +
'THotKey' + #13#10 +
'TListBox' + #13#10 +
'TCheckListBox' + #13#10 +
'TDBListBox' + #13#10 +
'TRichEdit' + #13#10 +
'TDBMemo' + #13#10 +
'TSynEdit' + #13#10 +
'TSynMemo' + #13#10 +
'TDBSynEdit' + #13#10 +
'TDBLookupListBox' + #13#10 +
'TDBRichEdit' + #13#10 +
'TDBCtrlGrid' + #13#10 +
'TDateTimePicker' + #13#10 +
'TDBEdit';
sl_Third_Panel =
{$IFDEF TNTUNICODE}
'TTntPanel' + #13#10 +
{$ENDIF}
'TPanel' + #13#10 +
'TDBCtrlPanel';
sl_Third_Button =
{$IFDEF TNTUNICODE}
'TTntButton' + #13#10 +
{$ENDIF}
'TButton';
sl_Third_BitBtn =
{$IFDEF USEPNG}
'TPngBitBtn' + #13#10 +
{$ENDIF}
{$IFDEF TNTUNICODE}
'TTntBitBtn' + #13#10 +
{$ENDIF}
'TBitBtn';
sl_Third_CheckBox =
{$IFDEF TNTUNICODE}
'TTntCheckBox' + #13#10 +
'TTntRadioButton' + #13#10 +
'TTntDBCheckBox' + #13#10 +
'TTntDBRadioButton' + #13#10 +
'TTntGroupButton' + #13#10 +
{$ENDIF}
'TCheckBox' + #13#10 +
'TRadioButton' + #13#10 +
'TDBCheckBox' + #13#10 +
'TDBCheckBoxEh' + #13#10 +
'TGroupButton';
sl_Third_GroupBox =
{$IFDEF TNTUNICODE}
'TTntGroupBox' + #13#10 +
'TTntRadioGroup' + #13#10 +
'TTntDBRadioGroup' + #13#10 +
{$ENDIF}
'TGroupBox' + #13#10 +
'TDBRadioGroup' + #13#10 +
'TRadioGroup';
sl_Third_Grid =
{$IFDEF TNTUNICODE}
'TTntStringGrid' + #13#10 +
'TTntDrawGrid' + #13#10 +
'TTntDBGrid' + #13#10 +
{$ENDIF}
'TStringGrid' + #13#10 +
'TDrawGrid' + #13#10 +
'TRichView' + #13#10 +
'TDBRichViewEdit' + #13#10 +
'TRichViewEdit' + #13#10 +
'TDBRichView' + #13#10 +
'TwwDBGrid' + #13#10 +
'TAdvStringGrid' + #13#10 +
'TDBAdvGrid' + #13#10 +
'TValueListEditor' + #13#10 +
'TDBGrid';
sl_Third_TreeView =
{$IFDEF TNTUNICODE}
'TTntTreeView' + #13#10 +
{$ENDIF}
'TTreeView' + #13#10 +
'TRzTreeView' + #13#10 +
'TDBTreeView';
sl_Third_ComboBox =
{$IFDEF TNTUNICODE}
'TTntComboBox' + #13#10 +
'TTntDBComboBox' + #13#10 +
{$ENDIF}
'TComboBox' + #13#10 +
'TColorBox' + #13#10 +
'TDBComboBox';
sl_Third_ListView =
{$IFDEF TNTUNICODE}
'TTntListView' + #13#10 +
{$ENDIF}
'TListView';
sl_Third_WWEdit =
'TDBLookupComboBox' + #13#10 +
'TwwDBComboBox' + #13#10 +
'TwwDBCustomCombo' + #13#10 +
'TwwDBCustomLookupCombo';
sl_Third_VirtualTree =
'TVirtualStringTree' + #13#10 +
'TVirtualStringTreeDB' + #13#10 +
'TEasyListview' + #13#10 +
'TVirtualExplorerListview' + #13#10 +
'TVirtualExplorerTreeview' + #13#10 +
'TVirtualExplorerTree' + #13#10 +
'TVirtualDrawTree';
sl_Third_GridEH =
'TDBGridEh';
// Do not change
acThirdNames : array[0..ord(acLastSupportedType)] of string = (sl_Third_Edit, sl_Third_Button, sl_Third_BitBtn, sl_Third_CheckBox,
sl_Third_ComboBox, sl_Third_Grid, sl_Third_GroupBox, sl_Third_ListView, sl_Third_Panel, sl_Third_TreeView, sl_Third_wwEdit, sl_Third_GridEh, sl_Third_VirtualTree);
acThirdCaptions : array[0..ord(acLastSupportedType)] of string = ('Edit', 'Button', 'BitBtn', 'CheckBox', 'ComboBox', 'Grid', 'GroupBox', 'ListView', 'Panel',
'TreeView', 'wwEdit', 'GridEh', 'VirtualTree');
// Values which may be changed before package installing :
// Skins
DefSkinsDir = 'c:\Skins'; // Default directory with skins
// Buttons
DefNumGlyphs = 1; // Default number of glyphs in image
DefDisabledGlyphKind = [dgBlended];
DefDisabledKind = [dkBlended];
DefDisabledBlend = 0.4;
DefMakeSkinMenu = False; // True; Changed in the v5.44 after many requests from AC users
// Glyphs
DefGlyphBlend = 0;
{$IFNDEF NOTFORHELP}
// Calendar
DefWeekends = [dowSunday];
{$IFDEF CHANGEFORMSINDESIGN}
ChangeFormsInDesign = True;
{$ELSE}
ChangeFormsInDesign = False;
{$ENDIF}
{$ENDIF}
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -