Rev 1 | Show entire file | Regard 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 | ||