home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Freeware / Programare / alite / D6 / sRegisterIt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-06-24  |  1.9 KB  |  59 lines
  1. unit sRegisterIt;
  2. {$I sDefs.inc}
  3.  
  4. interface
  5.  
  6. uses
  7.   Classes, sScrollBar,
  8.   {$IFNDEF ALITE}
  9.     sCustomComboBox, sCurrencyEdit, sSpinEdit, sMemo, sRadioButton, sComboEdit,
  10.     sPageControl, sCustomMenuManager, sCurrEdit, sToolEdit, sMonthCalendar,
  11.     sHintManager, sBevel, sGroupBox, sStatusBar, sGauge, sTrackBar, sCalculator,
  12.     sCustomMaskEdit, sCustomListBox, sEditorsManager, sComboBoxes, sSplitter,
  13.     sControlsManager, sEdit, sCustomLabel, sSkinManager, sSkinProvider, sTabControl,
  14.     sCheckBox, sStyleUtil, sPanel, sCustomButton, sScrollBox, sImageList, sCheckListBox,
  15.     sAlphaListBox, sTreeView, sListView;
  16.   {$ELSE}
  17.     sEdit, sCustomLabel, sSkinManager, sSkinProvider,
  18.     sCheckBox, sStyleUtil, sPanel, sCustomButton;
  19.   {$ENDIF}
  20.  
  21. procedure Register;
  22.  
  23. implementation
  24.  
  25. uses Registry, Windows, sUtils, SysUtils;
  26.  
  27. procedure Register;
  28. begin
  29.  
  30. {$IFNDEF ALITE}
  31.  
  32.   RegisterComponents('AlphaControls', [
  33.     TsEdit, TsCheckBox, TsPanel, TsButton
  34.     ,TsBitBtn, TsMemo, TsComboEdit, TsCurrencyEdit, TsMaskEdit, TsListBox, TsDateEdit,
  35.     TsGauge, TsTrackBar, TsRadioButton, TsPageControl, TsStatusBar, TsDirectoryEdit,
  36.     TsContainer, TsSpeedButton, TsColorSelect, TsCalcEdit, TsFileNameEdit, TsSplitter, 
  37.     TsToolBar, TsSpinEdit, TsBevel, TsGroupBox, TsComboBox, TsLabel, TsColorBox, 
  38.     TsDragBar, TsWebLabel, TsMonthCalendar, TsScrollBar, TsScrollBox, TsComboBoxEx,
  39.     TsTabControl, TsCheckListBox, TsTreeView, TsListView{, TsAlphaListBox}]);
  40.  
  41.   RegisterComponents('AlphaTools', [
  42.     TsMenuManager, TsHintManager, TsSkinProvider, TsSkinManager,
  43.     TsCalculator, TsEditorsManager, TsControlsManager{, TsImageList in progress}]);
  44.  
  45.   RegisterNoIcon([TsTabSheet]);
  46.   RegisterClasses([TsTabSheet]);
  47.  
  48. {$ELSE}
  49.  
  50.   RegisterComponents('AlphaLite', [
  51.     TsSkinManager, TsSkinProvider, TsEdit, TsCheckBox, TsPanel, TsButton,
  52.     TsScrollBar, TsLabel, TsWebLabel]);
  53.  
  54. {$ENDIF}
  55.  
  56. end;
  57.  
  58. end.
  59.