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

📄 sdefaults.pas

📁 I mComputermaster programmisDelphi+pascal
💻 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, tpPageControl, tpTabControl, tpToolBar, tpStatusBar);

const
  acLastSupportedType = tpStatusBar; // Do not change

  // Names of standard and 3rd-party controls for automatic skinning (may be changed before recompiling of the package)
{$IFNDEF RUNIDEONLY} // Third-party list is empty by default now because is not used in most projects AC2K9
  sl_Third_Edit = ' ';
  sl_Third_Panel = ' ';
  sl_Third_Button = ' ';
  sl_Third_BitBtn = ' ';
  sl_Third_CheckBox = ' ';
  sl_Third_GroupBox = ' ';
  sl_Third_Grid = ' ';
  sl_Third_TreeView = ' ';
  sl_Third_ComboBox = ' ';
  sl_Third_ListView = ' ';
  sl_Third_WWEdit = ' ';
  sl_Third_GridEH = ' ';
  sl_Third_VirtualTree = ' ';
  sl_Third_PageControl = ' ';
  sl_Third_TabControl = ' ';
  sl_Third_ToolBar = ' ';
  sl_Third_StatusBar = ' ';
{$ELSE}
  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 +
    'TRichEdit'          + #13#10 +
    'TDateTimePicker';

  sl_Third_Panel =
{$IFDEF TNTUNICODE}
    'TTntPanel'          + #13#10 +
{$ENDIF}
    'TPanel';

  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 +
    'TGroupButton';

  sl_Third_GroupBox =
{$IFDEF TNTUNICODE}
    'TTntGroupBox'       + #13#10 +
    'TTntRadioGroup'     + #13#10 +
    'TTntDBRadioGroup'   + #13#10 +
{$ENDIF}
    'TGroupBox'          + #13#10 +
    'TRadioGroup';

  sl_Third_Grid =
{$IFDEF TNTUNICODE}
    'TTntStringGrid'     + #13#10 +
    'TTntDrawGrid'       + #13#10 +
    'TTntDBGrid'         + #13#10 +
{$ENDIF}
    'TStringGrid'        + #13#10 +
    'TDrawGrid';

  sl_Third_TreeView =
{$IFDEF TNTUNICODE}
    'TTntTreeView'       + #13#10 +
{$ENDIF}
    'TTreeView';

  sl_Third_ComboBox =
{$IFDEF TNTUNICODE}
    'TTntComboBox'       + #13#10 +
    'TTntDBComboBox'     + #13#10 +
{$ENDIF}
    'TComboBox'          + #13#10 +
    'TColorBox';

  sl_Third_ListView =
{$IFDEF TNTUNICODE}
    'TTntListView'       + #13#10 +
{$ENDIF}
    'TListView';

  sl_Third_WWEdit =
    ' ';

  sl_Third_GridEH =
    ' ';

  sl_Third_VirtualTree =
    ' ';

  sl_Third_PageControl =
    'TPageControl';

  sl_Third_TabControl =
    'TTabControl';

  sl_Third_ToolBar =
    'TToolBar';

  sl_Third_StatusBar =
    'TStatusBar';
{$ENDIF}

  // 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, sl_Third_PageControl, sl_Third_TabControl, sl_Third_ToolBar, sl_Third_StatusBar);
  acThirdCaptions : array[0..ord(acLastSupportedType)] of string = ('Edit', 'Button', 'BitBtn', 'CheckBox', 'ComboBox', 'Grid', 'GroupBox', 'ListView', 'Panel',
    'TreeView', 'wwEdit', 'GridEh', 'VirtualTree', 'PageControl', 'TabControl', 'ToolBar', 'StatusBar');

  // 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 + -