home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / eXpertDevelopmentKit / SOURCE / XDKREG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-26  |  1.7 KB  |  51 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       eXpert Development Kit                          }
  4. {                                                       }
  5. {       Copyright (c) 1996,97 Sergey Orlik              }
  6. {       - product manager of Borland Russia             }
  7. {                                                       }
  8. {*******************************************************}
  9. unit XDKReg;
  10.  
  11. interface
  12. uses
  13.   SysUtils, Classes, Menus, DsgnIntf,
  14.   XDKExpt, XDKMenu, XDKSteps, XDKStpEd, XDKSnips,
  15.   XDKMnuEd, XDKNotif, XDKGen;
  16.  
  17.  
  18. procedure Register;
  19.  
  20. //=====================================================================
  21. implementation
  22. {$R XDKEXPT.DCR}
  23. {$R XDKMENU.DCR}
  24. {$R XDKNOTIF.DCR}
  25. {$R XDKSNIPS.DCR}
  26. {$R XDKGEN.DCR}
  27.  
  28. //=====================================================================
  29. // Register
  30. procedure Register;
  31. begin
  32. // register Steps
  33.   RegisterComponents('XDK', [TxdkSteps]);
  34.   RegisterClasses([TxdkStepTab]);
  35.   RegisterComponentEditor(TxdkSteps, TxdkStepPagesEditor);
  36.   RegisterComponentEditor(TxdkStepTab, TxdkStepPagesEditor);
  37.  
  38. // register general XDK components
  39.   RegisterComponents('XDK',
  40.    [TxdkStandardExpert, TxdkRepositoryExpert, TxdkAddInMenu,
  41.     TxdkAddInNotifier, {TxdkProjectNotifier, TxdkModuleNotifier,}
  42.     TxdkSnippet,TxdkProjectCreator,TxdkModuleCreator]);
  43.   RegisterNoIcon([TxdkAddInMenuItem]);
  44.   RegisterComponentEditor(TxdkAddInMenu,TxdkAddInMenuEditor);
  45.   RegisterPropertyEditor(TypeInfo(string), TxdkAddInMenu, 'IDEMenuItem', TxdkIDEMenuItemProperty);
  46.   RegisterPropertyEditor(TypeInfo(TxdkAddInMenuItem), TxdkAddInMenu, 'Items',
  47.     TxdkAddInMenuItemProperty);
  48. end;
  49.  
  50. end.
  51.