| 22,7 → 22,9 |
|---|
| |
| {$Z4} |
| {$A+} |
| {$IfNDef D7UP} |
| {$WEAKPACKAGEUNIT} |
| {$EndIf} |
| |
| uses Windows, ActiveX, DirectX, DShow; |
| |
| 1109,18 → 1111,18 |
|---|
| out lplpDDClipper: IDirectDrawClipper; pUnkOuter: IUnknown): HResult; stdcall; |
| function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry; |
| out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult;stdcall; |
| function CreateSurface(const lpDDSurfaceDesc: DDSURFACEDESC; |
| function CreateSurface(const lpDDSurfaceDesc: TDDSURFACEDESC; |
| out lplpDDSurface: IDirectDrawSurface; pUnkOuter: IUnknown): HResult; stdcall; |
| function DuplicateSurface(lpDDSurface: IDirectDrawSurface; |
| out lplpDupDDSurface: IDirectDrawSurface): HResult; stdcall; |
| function EnumDisplayModes(dwFlags: DWORD; |
| const lpDDSurfaceDesc: DDSURFACEDESC; lpContext: Pointer; |
| lpEnumModesCallback: LPDDENUMMODESCALLBACK): HResult; stdcall; |
| function EnumSurfaces(dwFlags: DWORD; const lpDDSD: DDSURFACEDESC; |
| lpContext: Pointer; lpEnumCallback: LPDDENUMSURFACESCALLBACK): HResult; stdcall; |
| const lpDDSurfaceDesc: TDDSURFACEDESC; lpContext: Pointer; |
| lpEnumModesCallback: {LPDDENUMMODESCALLBACK}TDDEnumModesCallback): HResult; stdcall; |
| function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSURFACEDESC; |
| lpContext: Pointer; lpEnumCallback: {LPDDENUMSURFACESCALLBACK}TDDEnumSurfacesCallback): HResult; stdcall; |
| function FlipToGDISurface: HResult; stdcall; |
| function GetCaps(var lpDDDriverCaps: DDCAPS; var lpDDHELCaps: DDCAPS): HResult; stdcall; |
| function GetDisplayMode(var lpDDSurfaceDesc: DDSURFACEDESC): HResult; stdcall; |
| function GetCaps(var lpDDDriverCaps: TDDCAPS; var lpDDHELCaps: TDDCAPS): HResult; stdcall; |
| function GetDisplayMode(var lpDDSurfaceDesc: TDDSURFACEDESC): HResult; stdcall; |
| function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall; |
| function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult; stdcall; |
| function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall; |
| 1133,7 → 1135,7 |
|---|
| dwFlags: DWORD): HResult; stdcall; |
| function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall; |
| // IDirectDraw2 methods |
| function GetAvailableVidMem(var lpDDSCaps: DDSCAPS; |
| function GetAvailableVidMem(var lpDDSCaps: TDDSCAPS; |
| var lpdwTotal, lpdwFree: DWORD): HResult; stdcall; |
| // IDirectDraw3 methods |
| function GetSurfaceFromDC(hdc: HDC; out ppSurface: IDirectDrawSurface): HResult; stdcall; |