Subversion Repositories spacemission

Rev

Rev 4 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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.  
  54.