sregisterit.pas

I mComputermaster programmisDelphi+pascal

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, acAlphaImageList;
  {$ELSE}
    sEdit, sSkinManager, sSkinProvider, sComboBox, sCheckBox;
  {$ENDIF}

procedure Register;

implementation

uses Registry, Windows, Graphics, acntUtils, acPng, acAlphaHints, 
  SysUtils{$IFNDEF ALITE}, sColorDialog{$ENDIF}{$IFDEF SPLASH}, ToolsAPI{$ENDIF};

{$IFDEF SPLASH}
{$R ACLOGO.RES}
procedure RegisterWithSplashScreen;
var
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromResourceName(hInstance, 'ACLOGO');
  try
    SplashScreenServices.AddPluginBitmap('AlphaControls 2009',
      Bmp.Handle, False, {$IFDEF RUNIDEONLY}'Trial edition'{$ELSE}'Registered'{$ENDIF}, '(version ' + sSkinManager.CurrentVersion + ')');
  except on E : Exception do
  end;
  Bmp.Free;
end;
{$ENDIF}

procedure Register;
begin

{$IFNDEF ALITE}
{$IFDEF SPLASH}
  RegisterWithSplashScreen;
{$ENDIF}

  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, TsColordialog{, TsFontDialog}, 
    TsPathDialog, TsAlphaImageList, TsAlphaHints]);

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

{$ELSE}

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

{$ENDIF}

end;

end.