home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d123456 / DFS.ZIP / GBarReg.pas < prev    next >
Pascal/Delphi Source File  |  2001-06-27  |  562b  |  32 lines
  1. {$I DFS.INC}
  2.  
  3. unit GBarReg;
  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.   GrabBar, DFSAbout, Classes;
  19.  
  20.  
  21.  
  22. { Add the components to the Delphi Component Palette.  You will want to }
  23. { modify this so that it appears on the page of your choice.            }
  24. procedure Register;
  25. begin
  26.   RegisterComponents('DFS', [TdfsGrabBar]);
  27.   RegisterPropertyEditor(TypeInfo(string), TdfsGrabBar, 'Version',
  28.      TDFSVersionProperty);
  29. end;
  30.  
  31. end.
  32.