home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk12 / lib.pak / SYSREG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  826 b   |  29 lines
  1. unit SysReg;
  2.  
  3. interface
  4.  
  5. uses DsgnIntf, Classes;
  6.  
  7. procedure Register;
  8.  
  9. implementation
  10.  
  11. uses SysUtils, Dialogs, FileCtrl, FiltEdit, StdCtrls, ExtCtrls, LibConst,
  12.   MPlayer, Forms;
  13.  
  14.  
  15. procedure Register;
  16. begin
  17.   RegisterComponents(LoadStr(srDialogs), [TOpenDialog, TSaveDialog, TFontDialog,
  18.     TColorDialog, TPrintDialog, TPrinterSetupDialog, TFindDialog,
  19.     TReplaceDialog]);
  20.   RegisterComponents(LoadStr(srSystem), [TTimer, TPaintBox, TFileListBox, 
  21.     TDirectoryListBox, TDriveComboBox, TFilterComboBox, TMediaPlayer]);
  22.  
  23.   RegisterPropertyEditor(TypeInfo(string), TFilterComboBox, 'Filter', TFilterProperty);
  24.   RegisterPropertyEditor(TypeInfo(string), TOpenDialog, 'Filter', TFilterProperty);
  25.   RegisterPropertyEditor(TypeInfo(string), TMediaPlayer, 'Filename', TMPFilenameProperty);
  26. end;
  27.  
  28. end.
  29.