home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d123456 / DFS.ZIP / IcCtlReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-06-27  |  790 b   |  38 lines
  1. {$I DFS.INC}
  2.  
  3. unit IcCtlReg;
  4.  
  5. interface
  6.  
  7. {$IFDEF DFS_WIN32}
  8.   {$R IconCtls.res}
  9. {$ELSE}
  10.   {$R IconCtls.r16}
  11. {$ENDIF}
  12.  
  13. procedure Register;
  14.  
  15. implementation
  16.  
  17. uses
  18.   {$IFDEF DFS_NO_DSGNINTF}
  19.   DesignIntf,
  20.   DesignEditors,
  21.   {$ELSE}
  22.   DsgnIntf,
  23.   {$ENDIF}
  24.   IconCtls, DFSAbout, Classes;
  25.  
  26. { Add the components to the Delphi Component Palette.  You will want to modify     }
  27. { this so that it appears on the page of your choice.                              }
  28. procedure Register;
  29. begin
  30.   RegisterComponents('DFS', [TdfsIconComboBox, TdfsIconListBox]);
  31.   RegisterPropertyEditor(TypeInfo(string), TdfsIconComboBox, 'Version',
  32.      TDFSVersionProperty);
  33.   RegisterPropertyEditor(TypeInfo(string), TdfsIconListBox, 'Version',
  34.      TDFSVersionProperty);
  35. end;
  36.  
  37. end.
  38.