Subversion Repositories spacemission

Rev

Blame | Last modification | View Log | RSS feed

  1. {
  2.  SXMedia  Components - Beta 1
  3.  --------------------------------
  4.  Copyright 1999 Dean Ellis
  5.  http://www.sillex.freeserve.co.uk
  6.  
  7.  This unit is part of the SXMedia Component Set. This code is
  8.  supplied as is with no guarantees and must be used at your own
  9.  risk.
  10.  
  11.  No modifications to this code must be made without the express
  12.  permission of the author. Please report any problems to
  13.  support@sillex.freeserve.co.uk
  14.  
  15.  You may use these components to create any freeware/shareware
  16.  applications that you wish. If the components are to be used in
  17.  a commercail product then credit for developement of these components
  18.  should be given.
  19.  
  20.  Credits :
  21.  
  22.  Developer : Dean Ellis
  23.  Testers   : Dominique Louis
  24.              Ivan Blecic
  25.  
  26. }
  27. unit SXReg;
  28.  
  29. {$INCLUDE DelphiXcfg.inc}
  30.  
  31. interface
  32.  
  33. uses Windows, Classes, SysUtils, SXEditor, SXMovie, SXEngine, SXModPlayer,
  34. {$IfNDef VER6UP} DsgnIntf {$Else} Designintf, DesignEditors {$EndIf};
  35.  
  36. procedure Register;
  37.  
  38. implementation
  39.  
  40. {$R SXReg.dcr}
  41.  
  42.  
  43. procedure Register;
  44. begin
  45.   RegisterPropertyEditor(TypeInfo(TFilename), nil, 'Filename', TFilenameProperty);
  46.   RegisterComponentEditor(TSXMovie,TSXComponentEditor);
  47.   RegisterComponentEditor(TSXEngine,TSXComponentEditor);
  48.   RegisterComponentEditor(TSXModPlayer,TSXComponentEditor);
  49.   RegisterComponents('SX Media',[TSXMovie, TSXEngine, TSXModPlayer]);
  50.   RegisterClass(TScreenRect);
  51. end;
  52.  
  53. end.
  54.