Delphi 與 DirectX 之 DelphiX(2): DelphiX 各單元概覽

DXClass |
DXDraws |
DIB |
DXSounds |
DXWave |
DXPlay |
DXSprite |
DXInput
DXClass 單元

TControlSubClassTControlSubClassProcTCustomDXTimerTDirectXTDirectXDriverTDirectXDriversTDXFormTDXPictureClipTDXTimerTDXTimerEventTHashCollectionTHashCollectionItem

TDblPoint

Min(Val1,Val2: Integer): Integer      PointInRect(const Poin: TPoint; const Rect: TRect): BooleanRectInRect(const Rect1,Rect2: TRect): BooleanOverlapRect(const Rect1,Rect2: TRect): BooleanWideRect(ALeft,ATop,AWidth,AHeight: Integer): TRectInitCosinTableCos256(i: Integer): DoubleSin256(i: Integer): DoubleReleaseCom(out Com)DXLoadLibrary(const FileName,FuncName: string): TFarProcFreeLibListMakeHashCode(const Str: string): IntegerGet2PointRange(a,b: TDblPoint): DoubleGetARadFromB(A,B: TDblPoint): DoubleGet256(dX,dY: Double): DoubleGetPointFromRangeAndAngle(SP: TDblPoint; Range,Angle: Double): TDblPointIn2DRowCol: T2DRowColTrans2DRowCol(x,y: double): T2DRowColScale2DRowCol(x,y: double): T2DRowColRotate2DRowCol(Theta: double): T2DRowColMultipl2DRowCol(A,B: T2DRowCol): T2DRowColRotateIntoX2DRowCol(x,y: double): T2DRowColScaleAt2DRowCol(x,y,Sx,Sy: double): T2DRowColReflectAcross2DRowCol(x,y,dx,dy: Double): T2DRowColRotateAround2DRowCol(x,y,Theta: Double): T2DRowColApply2DVector(V: T2DVector; M: T2DRowCol): T2DVectorDblPoint(a,b: Double): TDblPointTruncDblPoint(DblPos: TDblPoint): TPointPointInCircl(PPos,CPos: TPoint; R: integer): BooleanCircleInCirc(C1Pos,C2Pos: TPoint; R1,R2: Integer): BooleanSegmentInCircle(SPos,EPos,CPos: TPoint; R: Integer): BooleanAngle256(Angle: Single): SingleCheckNearAThanB(S,A,B: TDblPoint): BooleanCircumCenter3Pt(const x1,y1,x2,y2,x3,y3: Single; outPx,Py: Singl): BooleanDistance(const x1,y1,x2,y2: Double): DoubleInCenter(const x1,y1,x2,y2,x3,y3: Double; outPx,Py: Double)PointInTriangl(const Px,Py,x1,y1,x2,y2,x3,y3: Double): BooleanLog(const Co,FName: string)

T2DRowColT2DVectorTCellRangeTControlSubClassProcTDXTimerEvent

L_Curve = 0R_Curve = 1C_Add = 0C_Dec = 1PaletteMask = $02000000

CosinTable: array[0..255] of DoubleLibList: TStringListSetAppExStyleCount: Integer

DXDraws 單元

TBlitTBlitMoveEventTCustomDXDrawTCustomDXImageListTD2DTD2DTextureFilterTD2DTexturesTDirect3DTextureTDirect3DTexture2TDirectDrawTDirectDrawClipperTDirectDrawOverlayTDirectDrawPaletteTDirectDrawSurfaceTDirectDrawSurfaceCanvasTDXDrawTDXDrawDisplayTDXDrawDisplayModeTDXDrawDriverTDXDrawDriverBltTDXDrawDriverFlipTDXDrawNotifyEventTDXDrawNotifyTypeTDXDrawOptionTDXFontTDXImageListTDXPowerFontTDXPowerFontAfterTextOutEventTDXPowerFontBeforeTextOutEventTDXPowerFontEffectsParametersTDXPowerFontTextOutEffectTDXPowerFontTextOutTypeTDXTBaseTDXTextureImageTDXTextureImageFileBlockHeaderWriterTDXTextureImageFileCompressTypeTDXTextureImageLoadFuncTDXTextureImageProgressEventTDXTextureImageTypeTDXTImageChannelTInitializeDirect3DOptionTOnRenderTOnUpdateTexturesTPictureCollectionTPictureCollectionComponentTPictureCollectionItemTPictureCollectionItemPatternTRenderMirrorFlipTRenderTypeTTextureRecTTraceTTracePointsTypeTTracesTWaveType

TBlitRecTBlurImagePropTDXTextureImageChannelTDXTextureImageFileBlockHeaderTDXTextureImageFileBlockHeader_StartGroupTDXTextureImageFileBlockHeaderWriter_BlockInfoTDXTextureImageFileHeaderTDXTextureImageHeader_Image_FormatTDXTextureImageHeader_Image_Format_IndexTDXTextureImageHeader_Image_Format_RGBTDXTextureImageHeader_Image_GroupInfoTDXTextureImageHeader_Image_PixelDataTDXTextureImageHeader_Image_TransparentColorTDXTImageChannelInfoTDXTImageFormatTPathTRGB

dxtMakeChannel(Mask: DWORD; indexed: Boolean): TDXTextureImageChannel  dxtEncodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORDdxtDecodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORDdib2dxt(DIBImage: TDIB; out DXTImage: TDXTextureImage)DXDraw_Draw(...); DXDraw_Paint(...); DXDraw_Render(...); DXDirectDrawEnumerate(lpCallback: TDDEnumCallbackA;  lpContext: Pointer): HRESULTEnumDirectDrawDrivers:TDirectXDriversClipRect(var DestRect: TRect; const DestRect2: TRect): BooleanClipRect2(var DestRect, SrcRect: TRect; const DestRect2, SrcRect2: TRect): BooleanConv24to16(Color: Integer): WordConv16to24(Color: Word): IntegerGetRGB(Color: cardinal; var R, G, B: Byte)RGBToBGR(Color: cardinal): cardinalBPPToDDBD(BPP: DWORD): DWORDFreeZBufferSurface(Surface: TDirectDrawSurface; var ZBuffer: TDirectDrawSurface)Direct3DInitializing(...); Direct3DInitializing_DXDraw(Options: TInitializeDirect3DOptions;  DXDraw: TCustomDXDraw)InitializeDirect3D(...); InitializeDirect3D7(...); TDXDrawRGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads;  AllowPalette256: Boolean): TPaletteEntriesGetWidthBytes(Width, BitCount: Integer): IntegerDXTextureImage_LoadDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)DXTextureImage_LoadBitmapFunc(Stream: TStream; Image: TDXTextureImage)DXTextureImageLoadFuncList:TListDXTextureImage_SaveDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)DXTextureImage_LoadDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)DXTextureImage_SaveDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)DXTextureImage_LoadBitmapFunc(Stream: TStream; Image: TDXTextureImage)GetBitCount(b: Integer): IntegerIsNotZero(Z: TRect): BooleanMod2f(i: Double; i2: Integer): Double

PByte3PDXDrawNotifyEventPDXTextureImageFileBlockHeaderWriter_BlockInfoPPathArrPRGBPTextureArrPTextureRecTBlitMoveEventTBlurImageArrTByte3TD2D4VertexTD2DTextureFilterTDirectDrawDisplayTDirectDrawDisplayModeTDXDrawNotifyEventTDXDrawNotifyTypeTDXDrawOptionTDXDrawOptionsTDXPowerFontAfterTextOutEventTDXPowerFontBeforeTextOutEventTDXPowerFontTextOutEffectTDXPowerFontTextOutTypeTDXTextureImageFileCompressTypeTDXTextureImageLoadFuncTDXTextureImageProgressEventTDXTextureImageTypeTDXTextureImage_PaletteEntriesTDXTImageChannelTDXTImageChannelsTInitializeDire3DOptionTInitializeDire3DOptionsTOnRenderTOnUpdateTexturesTPathArrTRenderMirrorFlipTRenderMirrorFlipSetTRenderTypeTTextureArrTTracePointsTypeTWaveType

maxTexBlock = 2048  maxVideoBlockSize = 2048DXTextureImageGroupType_Normal = 0DXTextureImageGroupType_Mipmap = 1Alphabet =  ???PowerAlphabet = ???ccDefaultSpecular = $FFFFFFFFZeroRect:TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0)DDPF_PALETTEINDEXED = ...; Mask1:array[0..7] of DWORD = (1, 2, 4, 8, 16, 32, 64, 128)Mask2:array[0..3] of DWORD = (3, 12, 48, 192)Mask4:array[0..1] of DWORD = ($0F, $F0)Shift1:array[0..7] of DWORD = (0, 1, 2, 3, 4, 5, 6, 7)Shift2:array[0..3] of DWORD = (0, 2, 4, 6)Shift4:array[0..1] of DWORD = (0, 4)DXTextureImageFile_Type = 'dxt:'DXTextureImageFile_Version = $100DXTextureImageCompress_None = 0DXTextureImageCompress_ZLIB = 1DXTextureImageFileCategoryType_Image = $100DXTextureImageFileBlockID_EndFile = 0DXTextureImageFileBlockID_EndGroup = 1DXTextureImageFileBlockID_StartGroup = 2DXTextureImageFileBlockID_Image_Format = DXTextureImageFileCategoryType_Image + 1DXTextureImageFileBlockID_Image_PixelData = DXTextureImageFileCategoryType_Image + 2DXTextureImageFileBlockID_Image_GroupInfo = DXTextureImageFileCategoryType_Image + 3DXTextureImageFileBlockID_Image_Name = DXTextureImageFileCategoryType_Image + 4DXTextureImageFileBlockID_Image_TransparentColor = DXTextureImageFileCategoryType_Image + 5SurfaceDivWidth = maxVideoBlockSizeSurfaceDivHeight = maxVideoBlockSize

DirectDrawDrivers: TDirectXDrivers D2D: TD2D = nil  RenderError: boolean = false_DXTextureImageLoadFuncList: TList

DIB 單元

TColorLinePixelGeometryTColorLineStyleTCustomDXDIBTCustomDXPaintBoxTDIBTDIBitmapTDIBSharedImageTDistortTypeTDXDIBTDXPaintBoxTFilterModeTFilterTypeResampleTGlobalMemoryStreamTPaletteItemTPaletteManager

TBGRTDIBPixelFormatTLightSourceTLocalDIBPixelFormat

MakeDIBPixelFormat(RBitCount, GBitCount, BBitCount: Integer): TDIBPixelFormatMakeDIBPixelFormatMask(RBitMask, GBitMask, BBitMask: Integer): TDIBPixelFormatpfRGB(const PixelFormat: TDIBPixelFormat; R, G, B: Byte): DWORDpfGetRGB(const PixelFormat: TDIBPixelFormat; Color: DWORD; var R, G, B: Byte)pfGetRValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): BytepfGetGValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): BytepfGetBValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): ByteGreyscaleColorTable:TRGBQuadsRGBQuad(R, G, B: Byte): TRGBQuadPaletteEntryToRGBQuad(const Entry: TPaletteEntry): TRGBQuadPaletteEntriesToRGBQuads(const Entries: TPaletteEntries): TRGBQuadsRGBQuadToPaletteEntry(const RGBQuad: TRGBQuad): TPaletteEntryRGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads): TPaletteEntriesPosValue(Value: Integer): IntegerDSin(const C: TOC): SingleDCos(const C: TOC): SingleGetScale(SourceWidth, SourceHeight, TargetWidth, TargetHeight: Integer): SingleMakeDib(out DIB: TDIB; const iWidth, iHeight, iBitCount: Integer; iFillColor: TColor{$IFDEF VER4UP} = clBlack{$ENDIF})MakeDIB2(out DIB: TDIB; iBitmap: TBitmap)PaletteManager:TPaletteManagerEmptyDIBImage:TDIBSharedImageIntToByte(i: Integer): ByteTrimInt(i, Min, Max: Integer): Integer

PArrayBGRPArrayBytePArrayDWordPArrayWordPBGRPBytesPLinesPLocalDIBPixelFormatPPBytesPRGBAPRGBQuadsTArrayBGRTArrayByteTArrayDWordTArrayWordTBytesTColorLinePixelGeometryTColorLineStyleTDistortTypeTFilterTFilterModeTFilterTypeResampleTLightArrayTLinesTMatrixSettingTOCTPaletteEntriesTPBytesTRGBATRGBQuads

DefaultFilterRadius: array[TFilterTypeResample] of Single = (0.5, 1, 1, 1.5, 2, 3, 2)EdgeFilter: TFilter = ((-1, -1, -1), (-1, 8, -1), (-1, -1, -1))StrongOutlineFilter: TFilter = ((-100, 0, 0), (0, 0, 0), (0, 0, 100))Enhance3DFilter: TFilter = ((-100, 5, 5), (5, 5, 5), (5, 5, 100))LinearFilter: TFilter = ((-40, -40, -40), (-40, 255, -40), (-40, -40, -40))GranularFilter: TFilter = ((-20, 5, 20), (5, -10, 5), (100, 5, -100))SharpFilter: TFilter = ((-2, -2, -2), (-2, 20, -2), (-2, -2, -2))msEmboss: TMatrixSetting = (-1, -1, 0, -1, 6, 1, 0, 1, 1, 6)msHardEmboss: TMatrixSetting = (-4, -2, -1, -2, 10, 2, -1, 2, 4, 8)msBlur: TMatrixSetting = (1, 2, 1, 2, 4, 2, 1, 2, 1, 16)msSharpen: TMatrixSetting = (-1, -1, -1, -1, 15, -1, -1, -1, -1, 7)msEdgeDetect: TMatrixSetting = (-1, -1, -1, -1, 8, -1, -1, -1, -1, 1)Mask1: array[0..7] of DWORD = ($80, $40, $20, $10, $08, $04, $02, $01)Mask  1 n: array  [ 0.. 7 ]  of DWORD = ...Mask4: array[0..1] of DWORD = ($F0, $0F)Mask4n: array[0..1] of DWORD = ($FFFFFF0F, $FFFFFFF0)Shift1: array[0..7] of DWORD = (7, 6, 5, 4, 3, 2, 1, 0)Shift4: array[0..1] of DWORD = (4, 0)BitmapFileType = Ord('B') + Ord('M') * $100

FPaletteManager: TPaletteManagerFEmptyDIBImage: TDIBSharedImage

DXSounds 單元

TAudioFileStreamTAudioStreamTAudioStreamNotifyTCustomDXSoundTCustomDXWaveListTDirectSoundTDirectSoundBufferTDXMusicTDXSoundTDXSoundDirectSoundTDXSoundNotifyEventTDXSoundNotifyTypeTDXSoundOptionTDXWaveListTMidiCollectionComponentTMusicDataPropTMusicListCollectionTMusicListCollectionItemTSoundCaptureFormatTSoundCaptureFormatsTSoundCaptureStreamTSoundCaptureStreamNotifyTSoundEngineTWaveCollectionTWaveCollectionComponentTWaveCollectionItem

TMidiDataHeader

DXDirectSoundCreate(lpGUID: PGUID; out lpDS: IDirectSound; pUnkOuter: IUnknown): HRESULTDXDirectSoundEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULTDXDirectSoundCaptureCreate(lpGUID: PGUID; out lplpDSC: IDirectSoundCapture;  pUnkOuter: IUnknown): HRESULTDXDirectSoundCaptureEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULTEnumDirectSoundDrivers_DSENUMCALLBACK(...): BOOLEnumDirectSoundDrivers: TDirectXDriversEnumDirectSoundCaptureDrivers: TDirectXDrivers

PDXSoundNotifyEventTDXSoundNotifyEventTDXSoundNotifyTypeTDXSoundOptionTDXSoundOptions

dm_OK = 0DSBCAPS_CTRLDEFAULT = DSBCAPS_CTRLFREQUENCY or DSBCAPS_CTRLPAN or DSBCAPS_CTRLVOLUME

DirectSoundDrivers: TDirectXDriversDirectSoundCaptureDrivers: TDirectXDrivers

DXWave 單元

TCustomDXWaveTCustomWaveStreamTCustomWaveStream2TDXWaveTWaveTWaveFileStreamTWaveObjectStreamTWaveStream

TWaveChunkHeaderTWaveFileHeader

MakePCMWaveFormatEx(var Format: TWaveFormatEx; SamplesPerSec, BitsPerSample, Channels: Integer)

WavePoolSize = 8096ID_RIFF = Ord('R') + Ord('I')*$100 + Ord('F')*$10000 + Ord('F')*$1000000ID_WAVE = Ord('W') + Ord('A')*$100 + Ord('V')*$10000 + Ord('E')*$1000000ID_FMT = Ord('f') + Ord('m')*$100 + Ord('t')*$10000 + Ord(' ')*$1000000ID_FACT = Ord('f') + Ord('a')*$100 + Ord('c')*$10000 + Ord('t')*$1000000ID_DATA = Ord('d') + Ord('a')*$100 + Ord('t')*$10000 + Ord('a')*$1000000

DXPlay 單元

TCustomDXPlayTDXPlayTDXPlayEventTDXPlayMessageEventTDXPlayModemSettingTDXPlayPlayerTDXPlayPlayersTDXPlayRecvThreadTDXPlaySendCompleteEventTDXPlaySendCompleteResultTDXPlayTCPIPSetting

DXPlayMessageType(P: Pointer): DWORDDXPlayStringToGUID(const S: string): TGUIDDXDirectPlayCreate(...): HRESULTGUIDToString(const ClassID: TGUID): stringDXDirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackW; lpContext: Pointer): HRESULTDXDirectPlayLobbyCreate(...): HRESULT

TDXPlayEventTDXPlayMessageEventTDXPlaySendCompleteEventTDXPlaySendCompleteResult

DXSprite 單元

TBackgroundSpriteTCollisionEventTCustomDXSpriteEngineTDrawEventTDXSpriteEngineTGetImageTImageSpriteTImageSpriteExTMoveEventTSCFinalizeTSCInitializeTSpriteTSpriteClassTSpriteCollectionTSpriteCollectionItemTSpriteEngineTSpriteType

TMapDataHeaderTMapType

Mod2(i,i2: Integer): IntegerMod2f(i: Double; i2: Integer): Double

SSpriteNotFound = 'Sprite not found'SSpriteDuplicateName = 'Item duplicate name "%s" error'

DXInput 單元

TCustomDXInputTCustomInputTDXInputTDXInputStateTForceFeedbackEffectTForceFeedbackEffectComponentTForceFeedbackEffectItemTForceFeedbackEffectObjectTForceFeedbackEffectsTForceFeedbackEffectTypeTJoystickTKeyboardTMouse

DefKeyAssign: TKeyAssignListDefKeyAssign2_1: TKeyAssignListDefKeyAssign2_2: TKeyAssignListAssignKey(var KeyAssignList: TKeyAssignList; State: TDXInputState; const Keys: array of Integer)ConvertTime(i: Integer): DWORDSetDWORDProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, dwValue: DWORD): HResultSetRangeProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, Value: DWORD): HResultTJoystick_EnumJoysticksCallback(const lpddi: TDIDeviceInstanceA; pvRef: Pointer): HRESULTInitDirectInput(out DI: IDirectInput)FinDirectInput(var DI: IDirectInput)

PKeyAssignTDXInputStateTDXInputStatesTForceFeedbackEffectTypeTKeyAssignTKeyAssignList

FDirectInput: IDirectInputFDirectInputCount: Integer