Subversion Repositories spacemission

Rev

Rev 4 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1 daniel-mar 1
unit DXReg;
2
 
3
 
4
interface
5
 
6
 
7
uses
8
  Windows, SysUtils, Classes, Forms, Dialogs, Graphics, TypInfo,
9
  DXDraws, DXSounds, DIB, Wave, DXInput, DXPlay, DXSprite,
10
  DXClass;
11
 
12
 
13
procedure Register;
14
 
15
 
16
implementation
17
 
18
 
19
const
20
  SNone = '(None)';
21
  SSettingImage = '&Image...';
22
  SSettingWave = '&Wave...';
23
  SDXGFileFilter = 'DXG file(*.dxg)|*.dxg|All files(*.*)|*.*';
24
  SDXGOpenFileFilter = 'DXG file(*.dxg)|*.dxg|Bitmap file(*.bmp)|*.bmp|All files(*.*)|*.*';
25
  SDXWFileFilter = 'DXW file(*.dxw)|*.dxw|All files(*.*)|*.*';
26
  SDXWOpenFileFilter = 'DXW file(*.dxw)|*.dxw|Wave file(*.wav)|*.wav|All files(*.*)|*.*';
27
  SSinglePlayer = '&Single player';
28
  SMultiPlayer1 = 'Multi player &1';
29
  SMultiPlayer2 = 'Multi player &2';
30
 
31
  SOpen = '&Open...';
32
  SSave = '&Save..';
33
 
34
procedure Register;
35
begin
36
  RegisterComponents('DelphiX',
37
    [TDXDraw,
38
    TDXDIB,
39
    TDXImageList,
40
    TDX3D,
41
    TDXSound,
42
    TDXWave,
43
    TDXWaveList,
44
    TDXInput,
45
    TDXPlay,
46
    TDXSpriteEngine,
47
    TDXTimer,
48
    TDXPaintBox]);
49
end;
50
 
51
end.
52
 
53