Subversion Repositories spacemission

Rev

Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 57
Line 1... Line 1...
1 
unit DXPlayFm;
 1 
unit DXPlayFm;
2 
 
 2 
 
3 
interface
 - 
 
4 
{$INCLUDE DelphiXcfg.inc}
 3 
{$INCLUDE DelphiXcfg.inc}
- 
 
 4 
 
- 
 
 5 
{$IFNDEF UseDirectPlay}
- 
 
 6 
// If you want to use DXPlayFm.pas, please enable the IFDEF UseDirectPlay in DelphiXcfg.inc
- 
 
 7 
interface
- 
 
 8 
implementation
- 
 
 9 
{$ELSE} // !UseDirectPlay
- 
 
 10 
 
- 
 
 11 
interface
- 
 
 12 
 
5 
uses
 13 
uses
6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 14 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 
  StdCtrls, ExtCtrls, DXPlay, ActiveX, DXETable, DIB,
 15 
  StdCtrls, ExtCtrls, DXPlay, ActiveX, DXETable, DIB,
8 
{$IfDef StandardDX}
 16 
{$IfDef StandardDX}
9 
  DirectDraw, DirectPlay;
 17 
  DirectDraw, DirectPlay;
Line 426... Line 434...
426 
      Key := 0;        
 434 
      Key := 0;        
427 
    end;
 435 
    end;
428 
  end;
 436 
  end;
429 
end;
 437 
end;
430 
 
 438 
 
- 
 
 439 
{$ENDIF} // UseDirectPlay
- 
 
 440 
 
431 
end.
 441 
end.
432 
 
 442