sregisterit.pas

来自「Alpha Controls.v5.46b Source」· PAS 代码 · 共 67 行

unit sRegisterIt;
{$I sDefs.inc}

interface

uses
  Classes, sScrollBar, sLabel, sButton, sBitBtn, sSpeedButton, sPanel,
  {$IFDEF TNTUNICODE}sListBox,{$ELSE}sAlphaListBox,{$ENDIF} sGauge,
  {$IFNDEF ALITE}
    sHintManager, sToolBar, sColorSelect, sDialogs,
    sComboBox, sCurrencyEdit, sSpinEdit, sMemo, sRadioButton, sComboEdit,
    sPageControl, sCurrEdit, sToolEdit, sMonthCalendar,
    sBevel, sGroupBox, sStatusBar, sTrackBar, sCalculator,
    sMaskEdit, sComboBoxes, sSplitter,
    sEdit, sSkinManager, sSkinProvider, sTabControl, sFontCtrls,
    sCheckBox, sScrollBox, sCheckListBox, sRichEdit, sFileCtrl,
    sTreeView, sListView, sFrameAdapter, sUpDown, sFrameBar,
    acShellCtrls, acCoolBar, acProgressBar, acNotebook,
    acHeaderControl, acMagn;
  {$ELSE}
    sEdit, sSkinManager, sSkinProvider, sComboBox, sCheckBox;
  {$ENDIF}

procedure Register;

implementation

uses Registry, Windows, acntUtils, SysUtils{$IFNDEF ALITE}, sColorDialog{$ENDIF};

procedure Register;
begin

{$IFNDEF ALITE}
  RegisterComponents('AlphaStandard', [
    TsLabel, TsEdit, TsMemo, TsButton, TsCheckBox, TsRadioButton,
    TsListBox, TsComboBox, TsScrollBar, TsGroupBox, TsRadioGroup, TsPanel, TsBitBtn,
    TsSpeedButton, TsMaskEdit, TsBevel, TsScrollBox, TsCheckListBox, TsSplitter,
    TsTabControl, TsPageControl, TsRichEdit, TsTrackBar, TsProgressBar, TsUpDown, TsTreeView,
    TsListView, TsHeaderControl, TsStatusBar, TsToolBar, TsGauge, TsSpinEdit, TsCoolBar, TsNotebook]);

  RegisterComponents('AlphaAdditional', [
    TsWebLabel, TsDecimalSpinEdit, TsColorSelect, TsDragBar, TsComboBoxEx, TsColorBox, 
    TsMonthCalendar, TsComboEdit, TsCurrencyEdit, TsDateEdit, TsCalcEdit, TsDirectoryEdit,
    TsFileNameEdit, TsFilterComboBox, TsFontComboBox, TsFontListBox,
    TsFrameBar, TsColorsPanel, TsStickyLabel, TsLabelFX, TsShellTreeView, TsShellComboBox,
    TsShellListView, TsTimePicker]);

  RegisterComponents('AlphaTools', [
    TsSkinManager, TsSkinProvider, TsFrameAdapter, TsHintManager,
    TsCalculator, TsOpenDialog, TsSaveDialog, TsOpenPictureDialog,
    TsSavePictureDialog, TsMagnifier{, TsImageList in progress}, TsColordialog{, TsFontDialog}, TsPathDialog]);

  RegisterNoIcon([TsTabSheet]);
  RegisterClasses([TsTabSheet, TsEditLabel, TsStdColorsPanel, TsDlgShellListView]);

{$ELSE}

  RegisterComponents('AlphaLite', [
    TsSkinManager, TsSkinProvider, TsEdit, TsCheckBox, TsPanel, TsButton,
    TsScrollBar, TsLabel, TsWebLabel, TsBitBtn, TsComboBox, TsListBox, TsGauge]);

{$ENDIF}

end;

end.