Subversion Repositories spacemission

Rev

Rev 1 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 4
Line 20... Line 20...
20
 
20
 
21
interface
21
interface
22
 
22
 
23
{$Z4}
23
{$Z4}
24
{$A+}
24
{$A+}
-
 
25
{$IfNDef D7UP}
25
{$WEAKPACKAGEUNIT}
26
{$WEAKPACKAGEUNIT}
-
 
27
{$EndIf}
26
 
28
 
27
uses Windows, ActiveX, DirectX, DShow;
29
uses Windows, ActiveX, DirectX, DShow;
28
 
30
 
29
(*==========================================================================;
31
(*==========================================================================;
30
 *
32
 *
Line 1107... Line 1109...
1107
    function Compact: HResult; stdcall;
1109
    function Compact: HResult; stdcall;
1108
    function CreateClipper(dwFlags: DWORD;
1110
    function CreateClipper(dwFlags: DWORD;
1109
        out lplpDDClipper: IDirectDrawClipper; pUnkOuter: IUnknown): HResult; stdcall;
1111
        out lplpDDClipper: IDirectDrawClipper; pUnkOuter: IUnknown): HResult; stdcall;
1110
    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
1112
    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
1111
        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult;stdcall;
1113
        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult;stdcall;
1112
    function CreateSurface(const lpDDSurfaceDesc: DDSURFACEDESC;
1114
    function CreateSurface(const lpDDSurfaceDesc: TDDSURFACEDESC;
1113
        out lplpDDSurface: IDirectDrawSurface; pUnkOuter: IUnknown): HResult; stdcall;
1115
        out lplpDDSurface: IDirectDrawSurface; pUnkOuter: IUnknown): HResult; stdcall;
1114
    function DuplicateSurface(lpDDSurface: IDirectDrawSurface;
1116
    function DuplicateSurface(lpDDSurface: IDirectDrawSurface;
1115
        out lplpDupDDSurface: IDirectDrawSurface): HResult; stdcall;
1117
        out lplpDupDDSurface: IDirectDrawSurface): HResult; stdcall;
1116
    function EnumDisplayModes(dwFlags: DWORD;
1118
    function EnumDisplayModes(dwFlags: DWORD;
1117
        const lpDDSurfaceDesc: DDSURFACEDESC; lpContext: Pointer;
1119
        const lpDDSurfaceDesc: TDDSURFACEDESC; lpContext: Pointer;
1118
        lpEnumModesCallback: LPDDENUMMODESCALLBACK): HResult; stdcall;
1120
        lpEnumModesCallback: {LPDDENUMMODESCALLBACK}TDDEnumModesCallback): HResult; stdcall;
1119
    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: DDSURFACEDESC;
1121
    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSURFACEDESC;
1120
        lpContext: Pointer; lpEnumCallback: LPDDENUMSURFACESCALLBACK): HResult; stdcall;
1122
        lpContext: Pointer; lpEnumCallback: {LPDDENUMSURFACESCALLBACK}TDDEnumSurfacesCallback): HResult; stdcall;
1121
    function FlipToGDISurface: HResult; stdcall;
1123
    function FlipToGDISurface: HResult; stdcall;
1122
    function GetCaps(var lpDDDriverCaps: DDCAPS; var lpDDHELCaps: DDCAPS): HResult; stdcall;
1124
    function GetCaps(var lpDDDriverCaps: TDDCAPS; var lpDDHELCaps: TDDCAPS): HResult; stdcall;
1123
    function GetDisplayMode(var lpDDSurfaceDesc: DDSURFACEDESC): HResult; stdcall;
1125
    function GetDisplayMode(var lpDDSurfaceDesc: TDDSURFACEDESC): HResult; stdcall;
1124
    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
1126
    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
1125
    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult; stdcall;
1127
    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult; stdcall;
1126
    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
1128
    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
1127
    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
1129
    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
1128
    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
1130
    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
Line 1131... Line 1133...
1131
    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
1133
    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
1132
    function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
1134
    function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
1133
        dwFlags: DWORD): HResult; stdcall;
1135
        dwFlags: DWORD): HResult; stdcall;
1134
    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
1136
    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
1135
    // IDirectDraw2 methods
1137
    // IDirectDraw2 methods
1136
    function GetAvailableVidMem(var lpDDSCaps: DDSCAPS;
1138
    function GetAvailableVidMem(var lpDDSCaps: TDDSCAPS;
1137
        var lpdwTotal, lpdwFree: DWORD): HResult; stdcall;
1139
        var lpdwTotal, lpdwFree: DWORD): HResult; stdcall;
1138
    // IDirectDraw3 methods
1140
    // IDirectDraw3 methods
1139
    function GetSurfaceFromDC(hdc: HDC; out ppSurface: IDirectDrawSurface): HResult; stdcall;
1141
    function GetSurfaceFromDC(hdc: HDC; out ppSurface: IDirectDrawSurface): HResult; stdcall;
1140
  end;
1142
  end;
1141
 
1143