Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4 | daniel-mar | 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. |