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 |