⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sdefaults.pas

📁 Alpha Controls.v5.46b Source
💻 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 + -