123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142 |
- {
- Free Pascal port of the OpenPTC C++ library.
- Copyright (C) 2001-2003 Nikolay Nikolov ([email protected])
- Original C++ version by Glenn Fiedler ([email protected])
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
- You should have received a copy of the GNU Lesser General Public
- License along with this library; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- }
- Procedure DirectXCheck(result : HRESULT);
- Begin
- If result = DD_OK Then
- Exit;
- { $IFDEF __PTC_DIRECTX_ERROR_STRINGS__}
- Case result Of
- DDERR_ALREADYINITIALIZED : Raise TPTCError.Create('DDERR_ALREADYINITIALIZED');
- DDERR_CANNOTATTACHSURFACE : Raise TPTCError.Create('DDERR_CANNOTATTACHSURFACE');
- DDERR_CANNOTDETACHSURFACE : Raise TPTCError.Create('DDERR_CANNOTDETACHSURFACE');
- DDERR_CURRENTLYNOTAVAIL : Raise TPTCError.Create('DDERR_CURRENTLYNOTAVAIL');
- DDERR_EXCEPTION : Raise TPTCError.Create('DDERR_EXCEPTION');
- DDERR_GENERIC : Raise TPTCError.Create('DDERR_GENERIC');
- DDERR_HEIGHTALIGN : Raise TPTCError.Create('DDERR_HEIGHTALIGN');
- DDERR_INCOMPATIBLEPRIMARY : Raise TPTCError.Create('DDERR_INCOMPATIBLEPRIMARY');
- DDERR_INVALIDCAPS : Raise TPTCError.Create('DDERR_INVALIDCAPS');
- DDERR_INVALIDCLIPLIST : Raise TPTCError.Create('DDERR_INVALIDCLIPLIST');
- DDERR_INVALIDMODE : Raise TPTCError.Create('DDERR_INVALIDMODE');
- DDERR_INVALIDOBJECT : Raise TPTCError.Create('DDERR_INVALIDOBJECT');
- DDERR_INVALIDPARAMS : Raise TPTCError.Create('DDERR_INVALIDPARAMS');
- DDERR_INVALIDPIXELFORMAT : Raise TPTCError.Create('DDERR_INVALIDPIXELFORMAT');
- DDERR_INVALIDRECT : Raise TPTCError.Create('DDERR_INVALIDRECT');
- DDERR_LOCKEDSURFACES : Raise TPTCError.Create('DDERR_LOCKEDSURFACES');
- DDERR_NO3D : Raise TPTCError.Create('DDERR_NO3D');
- DDERR_NOALPHAHW : Raise TPTCError.Create('DDERR_NOALPHAHW');
- DDERR_NOCLIPLIST : Raise TPTCError.Create('DDERR_CLIPLIST');
- DDERR_NOCOLORCONVHW : Raise TPTCError.Create('DDERR_NOCOLORCONVHW');
- DDERR_NOCOOPERATIVELEVELSET : Raise TPTCError.Create('DDERR_NOCOOPERATIVELEVELSET');
- DDERR_NOCOLORKEY : Raise TPTCError.Create('DDERR_NOCOLORKEY');
- DDERR_NOCOLORKEYHW : Raise TPTCError.Create('DDERR_NOCOLORKEYHW');
- DDERR_NODIRECTDRAWSUPPORT : Raise TPTCError.Create('DDERR_NODIRECTDRAWSUPPORT');
- DDERR_NOEXCLUSIVEMODE : Raise TPTCError.Create('DDERR_NOEXCLUSIVEMODE');
- DDERR_NOFLIPHW : Raise TPTCError.Create('DDERR_NOFLIPHW');
- DDERR_NOGDI : Raise TPTCError.Create('DDERR_NOGDI');
- DDERR_NOMIRRORHW : Raise TPTCError.Create('DDERR_NOMIRRORHW');
- DDERR_NOTFOUND : Raise TPTCError.Create('DDERR_NOTFOUND');
- DDERR_NOOVERLAYHW : Raise TPTCError.Create('DDERR_NOOVERLAYHW');
- DDERR_NORASTEROPHW : Raise TPTCError.Create('DDERR_NORASTEROPHW');
- DDERR_NOROTATIONHW : Raise TPTCError.Create('DDERR_NOROTATIONHW');
- DDERR_NOSTRETCHHW : Raise TPTCError.Create('DDERR_NOSTRETCHHW');
- DDERR_NOT4BITCOLOR : Raise TPTCError.Create('DDERR_NOT4BITCOLOR');
- DDERR_NOT4BITCOLORINDEX : Raise TPTCError.Create('DDERR_NOT4BITCOLORINDEX');
- DDERR_NOT8BITCOLOR : Raise TPTCError.Create('DDERR_NOT8BITCOLOR');
- DDERR_NOTEXTUREHW : Raise TPTCError.Create('DDERR_NOTEXTUREHW');
- DDERR_NOVSYNCHW : Raise TPTCError.Create('DDERR_NOVSYNCHW');
- DDERR_NOZBUFFERHW : Raise TPTCError.Create('DDERR_NOZBUFFERHW');
- DDERR_NOZOVERLAYHW : Raise TPTCError.Create('DDERR_NOZOVERLAYHW');
- DDERR_OUTOFCAPS : Raise TPTCError.Create('DDERR_OUTOFCAPS');
- DDERR_OUTOFMEMORY : Raise TPTCError.Create('DDERR_OUTOFMEMORY');
- DDERR_OUTOFVIDEOMEMORY : Raise TPTCError.Create('DDERR_OUTOFVIDEOMEMORY');
- DDERR_OVERLAYCANTCLIP : Raise TPTCError.Create('DDERR_OVERLAYCANTCLIP');
- DDERR_OVERLAYCOLORKEYONLYONEACTIVE : Raise TPTCError.Create('DDERR_OVERLAYCOLORKEYONLYONEACTIVE');
- DDERR_PALETTEBUSY : Raise TPTCError.Create('DDERR_PALETTEBUSY');
- DDERR_COLORKEYNOTSET : Raise TPTCError.Create('DDERR_COLORKEYNOTSET');
- DDERR_SURFACEALREADYATTACHED : Raise TPTCError.Create('DDERR_SURFACEALREADYATTACHED');
- DDERR_SURFACEALREADYDEPENDENT : Raise TPTCError.Create('DDERR_SURFACEALREADYDEPENDENT');
- DDERR_SURFACEBUSY : Raise TPTCError.Create('DDERR_SURFACEBUSY');
- DDERR_CANTLOCKSURFACE : Raise TPTCError.Create('DDERR_CANTLOCKSURFACE');
- DDERR_SURFACEISOBSCURED : Raise TPTCError.Create('DDERR_SURFACEISOBSCURED');
- DDERR_SURFACELOST : Raise TPTCError.Create('DDERR_SURFACELOST');
- DDERR_SURFACENOTATTACHED : Raise TPTCError.Create('DDERR_SURFACENOTATTACHED');
- DDERR_TOOBIGHEIGHT : Raise TPTCError.Create('DDERR_TOOBIGHEIGHT');
- DDERR_TOOBIGSIZE : Raise TPTCError.Create('DDERR_TOOBIGSIZE');
- DDERR_TOOBIGWIDTH : Raise TPTCError.Create('DDERR_TOOBIGWIDTH');
- DDERR_UNSUPPORTED : Raise TPTCError.Create('DDERR_UNSUPPORTED');
- DDERR_UNSUPPORTEDFORMAT : Raise TPTCError.Create('DDERR_UNSUPPORTEDFORMAT');
- DDERR_UNSUPPORTEDMASK : Raise TPTCError.Create('DDERR_UNSUPPORTEDMASK');
- DDERR_VERTICALBLANKINPROGRESS : Raise TPTCError.Create('DDERR_VERTICALBLANKINPROGRESS');
- DDERR_WASSTILLDRAWING : Raise TPTCError.Create('DDERR_WASSTILLDRAWING');
- DDERR_XALIGN : Raise TPTCError.Create('DDERR_XALIGN');
- DDERR_INVALIDDIRECTDRAWGUID : Raise TPTCError.Create('DDERR_INVALIDDIRECTDRAWGUID');
- DDERR_DIRECTDRAWALREADYCREATED : Raise TPTCError.Create('DDERR_DIRECTDRAWALREADYCREATED');
- DDERR_NODIRECTDRAWHW : Raise TPTCError.Create('DDERR_NODIRECTDRAWHW');
- DDERR_PRIMARYSURFACEALREADYEXISTS : Raise TPTCError.Create('DDERR_PRIMARYSURFACEALREADYEXISTS');
- DDERR_NOEMULATION : Raise TPTCError.Create('DDERR_NOEMULATION');
- DDERR_REGIONTOOSMALL : Raise TPTCError.Create('DDERR_REGIONTOOSMALL');
- DDERR_CLIPPERISUSINGHWND : Raise TPTCError.Create('DDERR_CLIPPERISUSINGHWND');
- DDERR_NOCLIPPERATTACHED : Raise TPTCError.Create('DDERR_NOCLIPPERATTACHED');
- DDERR_NOHWND : Raise TPTCError.Create('DDERR_NOHWND');
- DDERR_HWNDSUBCLASSED : Raise TPTCError.Create('DDERR_HWNDSUBCLASSED');
- DDERR_HWNDALREADYSET : Raise TPTCError.Create('DDERR_HWNDALREADYSET');
- DDERR_NOPALETTEATTACHED : Raise TPTCError.Create('DDERR_NOPALETTEATTACHED');
- DDERR_NOPALETTEHW : Raise TPTCError.Create('DDERR_NOPALETTEHW');
- DDERR_BLTFASTCANTCLIP : Raise TPTCError.Create('DDERR_BLTFASTCANTCLIP');
- DDERR_NOBLTHW : Raise TPTCError.Create('DDERR_NOBLTHW');
- DDERR_NODDROPSHW : Raise TPTCError.Create('DDERR_NODDROPSHW');
- DDERR_OVERLAYNOTVISIBLE : Raise TPTCError.Create('DDERR_OVERLAYNOTVISIBLE');
- DDERR_NOOVERLAYDEST : Raise TPTCError.Create('DDERR_NOOVERLAYDEST');
- DDERR_INVALIDPOSITION : Raise TPTCError.Create('DDERR_INVALIDPOSITION');
- DDERR_NOTAOVERLAYSURFACE : Raise TPTCError.Create('DDERR_NOTAOVERLAYSURFACE');
- DDERR_EXCLUSIVEMODEALREADYSET : Raise TPTCError.Create('DDERR_EXCLUSIVEMODEALREADYSET');
- DDERR_NOTFLIPPABLE : Raise TPTCError.Create('DDERR_NOTFLIPPABLE');
- DDERR_CANTDUPLICATE : Raise TPTCError.Create('DDERR_CANTDUPLICATE');
- DDERR_NOTLOCKED : Raise TPTCError.Create('DDERR_NOTLOCKED');
- DDERR_CANTCREATEDC : Raise TPTCError.Create('DDERR_CANTCREATEDC');
- DDERR_NODC : Raise TPTCError.Create('DDERR_NODC');
- DDERR_WRONGMODE : Raise TPTCError.Create('DDERR_WRONGMODE');
- DDERR_IMPLICITLYCREATED : Raise TPTCError.Create('DDERR_IMPLICITLYCREATED');
- DDERR_NOTPALETTIZED : Raise TPTCError.Create('DDERR_NOPALETTIZED');
- DDERR_UNSUPPORTEDMODE : Raise TPTCError.Create('DDERR_UNSUPPORTEDMODE');
- DDERR_NOMIPMAPHW : Raise TPTCError.Create('DDERR_NOMIPMAPHW');
- DDERR_INVALIDSURFACETYPE : Raise TPTCError.Create('DDERR_INVALIDSURFACETYPE');
- DDERR_DCALREADYCREATED : Raise TPTCError.Create('DDERR_DCALREADYCREATED');
- DDERR_CANTPAGELOCK : Raise TPTCError.Create('DDERR_CANTPAGELOCK');
- DDERR_CANTPAGEUNLOCK : Raise TPTCError.Create('DDERR_CANTPAGEUNLOCK');
- DDERR_NOTPAGELOCKED : Raise TPTCError.Create('DDERR_NOTPAGELOCKED');
- DDERR_NOTINITIALIZED : Raise TPTCError.Create('DDERR_NOTINITIALIZED');
- End;
- { $ENDIF}
- Raise TPTCError.Create('DDERR $' + HexStr(result, 8));
- End;
- Procedure DirectXCheck(result : HRESULT; Const message : String);
- Begin
- Try
- DirectXCheck(result);
- Except
- On error : TPTCError Do
- Raise TPTCError.Create(message, error);
- End;
- End;
|