home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Demos / ShellControls / ShellReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-05-22  |  1.4 KB  |  34 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Borland Delphi Visual Component Library         }
  4. {                                                       }
  5. {       Copyright (c) 1995,2001 Inprise Corporation     }
  6. {                                                       }
  7. {*******************************************************}
  8. unit ShellReg platform;
  9.  
  10. interface
  11.  
  12. procedure Register;
  13.  
  14. implementation
  15.  
  16. uses Classes, TypInfo, Controls, DesignIntf, ShellCtrls, ShellConsts, RootEdit;
  17.  
  18. procedure Register;
  19. begin
  20.   GroupDescendentsWith(TShellChangeNotifier, Controls.TControl);
  21.   RegisterComponents(SPalletePage, [TShellTreeView, TShellComboBox, TShellListView,
  22.     TShellChangeNotifier]);
  23.   RegisterPropertyEditor(TypeInfo(TRoot), TShellTreeView, SPropertyName, TRootProperty);
  24.   RegisterPropertyEditor(TypeInfo(TRoot), TShellComboBox, SPropertyName, TRootProperty);
  25.   RegisterPropertyEditor(TypeInfo(TRoot), TShellListView, SPropertyName, TRootProperty);
  26.   RegisterPropertyEditor(TypeInfo(TRoot), TShellChangeNotifier, SPropertyName, TRootProperty);
  27.   RegisterComponentEditor(TShellTreeView, TRootEditor);
  28.   RegisterComponentEditor(TShellListView, TRootEditor);
  29.   RegisterComponentEditor(TShellComboBox, TRootEditor);
  30.   RegisterComponentEditor(TShellChangeNotifier, TRootEditor);
  31. end;
  32.  
  33. end.
  34.