home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d123456 / DFS.ZIP / CBtnReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-06-27  |  530 b   |  32 lines
  1. {$I DFS.INC}
  2.  
  3. unit CBtnReg;
  4.  
  5. interface
  6.  
  7. procedure Register;
  8.  
  9. implementation
  10.  
  11. uses
  12.   {$IFDEF DFS_NO_DSGNINTF}
  13.   DesignIntf,
  14.   DesignEditors,
  15.   {$ELSE}
  16.   DsgnIntf,
  17.   {$ENDIF}
  18.   DFSClrBn, ColorAEd, CBtnForm, DFSAbout, Classes;
  19.  
  20.  
  21. procedure Register;
  22. begin
  23.   RegisterComponents('DFS', [TdfsColorButton]);
  24.   RegisterPropertyEditor(TypeInfo(TColorArrayClass), NIL, '',
  25.      TColorArrayProperty);
  26.   RegisterPropertyEditor(TypeInfo(string), TdfsColorButton, 'Version',
  27.      TdfsVersionProperty);
  28. end;
  29.  
  30.  
  31. end.
  32.