home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Essentials / SETUP.EXE / %MAINDIR% / EsReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-28  |  2.8 KB  |  90 lines
  1. {*********************************************************}
  2. {*                    ESREG.PAS 1.05                     *}
  3. {*      Copyright (c) 1997-98 TurboPower Software Co     *}
  4. {*                 All rights reserved.                  *}
  5. {*********************************************************}
  6.  
  7. {$I ES.INC}
  8.  
  9. {$B-} {Complete Boolean Evaluation}
  10. {$I+} {Input/Output-Checking}
  11. {$P+} {Open Parameters}
  12. {$T-} {Typed @ Operator}
  13. {$W-} {Windows Stack Frame}
  14. {$X+} {Extended Syntax}
  15.  
  16. {$IFNDEF Win32}
  17.   {$G+} {286 Instructions}
  18.   {$N+} {Numeric Coprocessor}
  19.   {$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
  20. {$ENDIF}
  21.  
  22. unit EsReg;
  23.   {-registration unit for the Essentials components}
  24.  
  25. {$IFDEF Win32}
  26.   {$IFNDEF Ver93}                                                      {!!.04}
  27.     {$R ESREG.R32}
  28.   {$ENDIF}
  29. {$ELSE}
  30.   {$R ESREG.R16}
  31. {$ENDIF Win32}
  32.  
  33. interface
  34.  
  35. uses
  36.   {$IFDEF Win32} Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF}
  37.   DsgnIntf, Classes, Controls, Graphics, TypInfo,
  38.   EsBase, EsBase0, EsLabel, EsGrad, EsRollUp, EsCalc,
  39.   EsEdCalc, EsCal, EsEdCal, EsClrCbx, EsMnuBtn, EsEdPop,
  40.   EsTile, EsMarque, EsLabel0, EsDir, EsAbout0, EsWebPE;
  41.  
  42.  
  43. procedure Register;
  44.  
  45.  
  46. implementation
  47.  
  48.  
  49. procedure Register;
  50. begin
  51.   RegisterPropertyEditor(TypeInfo(TWinControl), TEsAttachedLabel, 'EsControl', TEsControlProperty);
  52.  
  53.   RegisterPropertyEditor(TypeInfo(TEsCustomSettings), TEsCustomLabel, 'CustomSettings', TEsCustomSettingsProperty);
  54.  
  55.   RegisterPropertyEditor(TypeInfo(string), TEsBase, 'Version', TEsVersionProperty);
  56.   RegisterPropertyEditor(TypeInfo(string), TEsCustomLabel, 'Version', TEsVersionProperty);
  57.   RegisterPropertyEditor(TypeInfo(string), TEsCustomRollUp, 'Version', TEsVersionProperty);
  58.   RegisterPropertyEditor(TypeInfo(string), TEsEdPopup, 'Version', TEsVersionProperty);
  59.   RegisterPropertyEditor(TypeInfo(string), TEsCustomColorComboBox, 'Version', TEsVersionProperty);
  60.   RegisterPropertyEditor(TypeInfo(string), TEsCustomTile, 'Version', TEsVersionProperty);
  61.   RegisterPropertyEditor(TypeInfo(string), TEsCustomGradient, 'Version', TEsVersionProperty);
  62.  
  63.   {register web component editor}
  64.   RegisterComponentEditor(TEsBase, TEsWebEditor);
  65.   RegisterComponentEditor(TEsCustomRollUp, TEsWebEditor);
  66.   RegisterComponentEditor(TEsEdPopup, TEsWebEditor);
  67.   RegisterComponentEditor(TEsCustomColorComboBox, TEsWebEditor);
  68.   RegisterComponentEditor(TEsCustomTile, TEsWebEditor);
  69.   RegisterComponentEditor(TEsCustomGradient, TEsWebEditor);
  70.  
  71.   {register label component editor}
  72.   RegisterComponentEditor(TEsCustomLabel, TEsLabelEditor);
  73.  
  74.   RegisterComponents('Essentials 1',
  75.     [TEsLabel,
  76.      TEsScrollingMarquee,
  77.      TEsCalendar,
  78.      TEsCalculator,
  79.      TEsDateEdit,
  80.      TEsNumberEdit,
  81.      TEsMenuButton,
  82.      TEsColorComboBox,
  83.      TEsTile,
  84.      TEsGradient,
  85.      TEsRollUp
  86.      ]);
  87. end;
  88.  
  89. end.
  90.