home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d123456 / DFS.ZIP / SystemControlPackReg.pas < prev    next >
Pascal/Delphi Source File  |  2001-06-28  |  6KB  |  112 lines
  1. {$I DFS.INC}                    { Defines for all Delphi Free Stuff components }
  2. {$I SYSTEMCONTROLPACK.INC}      { Defines specific to these components }
  3.  
  4. { -----------------------------------------------------------------------------}
  5. { System Control Pack                                                          }
  6. { -----------------------------------------------------------------------------}
  7. { A set of components that allow you to emulate most of the Windows Explorer   }
  8. { behavior.  Included is a treeview, listview and combobox.  This unit         }
  9. { registers the components for use in the IDE.                                 }
  10. {                                                                              }
  11. { Copyright 1999-2001, Brad Stowers.  All Rights Reserved.                     }
  12. {                                                                              }
  13. { Copyright:                                                                   }
  14. { All Delphi Free Stuff (hereafter "DFS") source code is copyrighted by        }
  15. { Bradley D. Stowers (hereafter "author"), and shall remain the exclusive      }
  16. { property of the author.                                                      }
  17. {                                                                              }
  18. { Distribution Rights:                                                         }
  19. { You are granted a non-exlusive, royalty-free right to produce and distribute }
  20. { compiled binary files (executables, DLLs, etc.) that are built with any of   }
  21. { the DFS source code unless specifically stated otherwise.                    }
  22. { You are further granted permission to redistribute any of the DFS source     }
  23. { code in source code form, provided that the original archive as found on the }
  24. { DFS web site (http://www.delphifreestuff.com) is distributed unmodified. For }
  25. { example, if you create a descendant of TDFSColorButton, you must include in  }
  26. { the distribution package the colorbtn.zip file in the exact form that you    }
  27. { downloaded it from http://www.delphifreestuff.com/mine/files/colorbtn.zip.   }
  28. {                                                                              }
  29. { Restrictions:                                                                }
  30. { Without the express written consent of the author, you may not:              }
  31. {   * Distribute modified versions of any DFS source code by itself. You must  }
  32. {     include the original archive as you found it at the DFS site.            }
  33. {   * Sell or lease any portion of DFS source code. You are, of course, free   }
  34. {     to sell any of your own original code that works with, enhances, etc.    }
  35. {     DFS source code.                                                         }
  36. {   * Distribute DFS source code for profit.                                   }
  37. {                                                                              }
  38. { Warranty:                                                                    }
  39. { There is absolutely no warranty of any kind whatsoever with any of the DFS   }
  40. { source code (hereafter "software"). The software is provided to you "AS-IS", }
  41. { and all risks and losses associated with it's use are assumed by you. In no  }
  42. { event shall the author of the softare, Bradley D. Stowers, be held           }
  43. { accountable for any damages or losses that may occur from use or misuse of   }
  44. { the software.                                                                }
  45. {                                                                              }
  46. { Support:                                                                     }
  47. { Support is provided via the DFS Support Forum, which is a web-based message  }
  48. { system.  You can find it at http://www.delphifreestuff.com/discus/           }
  49. { All DFS source code is provided free of charge. As such, I can not guarantee }
  50. { any support whatsoever. While I do try to answer all questions that I        }
  51. { receive, and address all problems that are reported to me, you must          }
  52. { understand that I simply can not guarantee that this will always be so.      }
  53. {                                                                              }
  54. { Clarifications:                                                              }
  55. { If you need any further information, please feel free to contact me directly.}
  56. { This agreement can be found online at my site in the "Miscellaneous" section.}
  57. {------------------------------------------------------------------------------}
  58. { The lateset version of my components are always available on the web at:     }
  59. {   http://www.delphifreestuff.com/                                            }
  60. { See SCP.txt for notes, known issues, and revision history.                   }
  61. { -----------------------------------------------------------------------------}
  62. { Date last modified:  June 28, 2001                                           }
  63. { -----------------------------------------------------------------------------}
  64.  
  65. unit SystemControlPackReg;
  66.  
  67. interface
  68.  
  69. procedure Register;
  70.  
  71. implementation
  72.  
  73. uses
  74.   {$IFDEF DFS_NO_DSGNINTF}
  75.   DesignIntf,
  76.   DesignEditors,
  77.   {$ELSE}
  78.   DsgnIntf,
  79.   {$ENDIF}
  80.   {$IFDEF DFS_SCP_SYSTREEVIEW}
  81.   SystemTreeView,
  82.   {$ENDIF}
  83.   {$IFDEF DFS_SCP_SYSLISTVIEW}
  84.   SystemListView,
  85.   {$ENDIF}
  86.   {$IFDEF DFS_SCP_SYSCOMBOBOX}
  87.   SystemComboBox,
  88.   {$ENDIF}
  89.   DFSAbout, Classes;
  90.  
  91. procedure Register;
  92. begin
  93. {$IFDEF DFS_SCP_SYSTREEVIEW}
  94.   RegisterComponents('DFS', [TdfsSystemTreeView]);
  95.   RegisterPropertyEditor(TypeInfo(string), TdfsSystemTreeView, 'Version',
  96.      TDFSVersionProperty);
  97. {$ENDIF}
  98. {$IFDEF DFS_SCP_SYSLISTVIEW}
  99.   RegisterComponents('DFS', [TdfsSystemListView]);
  100.   RegisterPropertyEditor(TypeInfo(string), TdfsSystemListView, 'Version',
  101.      TDFSVersionProperty);
  102. {$ENDIF}
  103. {$IFDEF DFS_SCP_SYSCOMBOBOX}
  104.   RegisterComponents('DFS', [TdfsSystemComboBox]);
  105.   RegisterPropertyEditor(TypeInfo(string), TdfsSystemComboBox, 'Version',
  106.      TDFSVersionProperty);
  107. {$ENDIF}
  108. end;
  109.  
  110.  
  111. end.
  112.