Delphi 与 DirectX 之 DelphiX(2): DelphiX 各单元概览

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

---

DXClass 单元

TControlSubClass
TControlSubClassProc
TCustomDXTimer
TDirectX
TDirectXDriver
TDirectXDrivers
TDXForm
TDXPictureClip
TDXTimer
TDXTimerEvent
THashCollection
THashCollectionItem

TDblPoint

Min(Val1,Val2: Integer): Integer      
PointInRect(const Poin: TPoint; const Rect: TRect): Boolean
RectInRect(const Rect1,Rect2: TRect): Boolean
OverlapRect(const Rect1,Rect2: TRect): Boolean
WideRect(ALeft,ATop,AWidth,AHeight: Integer): TRect
InitCosinTable
Cos256(i: Integer): Double
Sin256(i: Integer): Double
ReleaseCom(out Com)
DXLoadLibrary(const FileName,FuncName: string): TFarProc
FreeLibList
MakeHashCode(const Str: string): Integer
Get2PointRange(a,b: TDblPoint): Double
GetARadFromB(A,B: TDblPoint): Double
Get256(dX,dY: Double): Double
GetPointFromRangeAndAngle(SP: TDblPoint; Range,Angle: Double): TDblPoint
In2DRowCol: T2DRowCol
Trans2DRowCol(x,y: double): T2DRowCol
Scale2DRowCol(x,y: double): T2DRowCol
Rotate2DRowCol(Theta: double): T2DRowCol
Multipl2DRowCol(A,B: T2DRowCol): T2DRowCol
RotateIntoX2DRowCol(x,y: double): T2DRowCol
ScaleAt2DRowCol(x,y,Sx,Sy: double): T2DRowCol
ReflectAcross2DRowCol(x,y,dx,dy: Double): T2DRowCol
RotateAround2DRowCol(x,y,Theta: Double): T2DRowCol
Apply2DVector(V: T2DVector; M: T2DRowCol): T2DVector
DblPoint(a,b: Double): TDblPoint
TruncDblPoint(DblPos: TDblPoint): TPoint
PointInCircl(PPos,CPos: TPoint; R: integer): Boolean
CircleInCirc(C1Pos,C2Pos: TPoint; R1,R2: Integer): Boolean
SegmentInCircle(SPos,EPos,CPos: TPoint; R: Integer): Boolean
Angle256(Angle: Single): Single
CheckNearAThanB(S,A,B: TDblPoint): Boolean
CircumCenter3Pt(const x1,y1,x2,y2,x3,y3: Single; outPx,Py: Singl): Boolean
Distance(const x1,y1,x2,y2: Double): Double
InCenter(const x1,y1,x2,y2,x3,y3: Double; outPx,Py: Double)
PointInTriangl(const Px,Py,x1,y1,x2,y2,x3,y3: Double): Boolean
Log(const Co,FName: string)

T2DRowCol
T2DVector
TCellRange
TControlSubClassProc
TDXTimerEvent

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

CosinTable: array[0..255] of Double
LibList: TStringList
SetAppExStyleCount: Integer

DXDraws 单元

TBlit
TBlitMoveEvent
TCustomDXDraw
TCustomDXImageList
TD2D
TD2DTextureFilter
TD2DTextures
TDirect3DTexture
TDirect3DTexture2
TDirectDraw
TDirectDrawClipper
TDirectDrawOverlay
TDirectDrawPalette
TDirectDrawSurface
TDirectDrawSurfaceCanvas
TDXDraw
TDXDrawDisplay
TDXDrawDisplayMode
TDXDrawDriver
TDXDrawDriverBlt
TDXDrawDriverFlip
TDXDrawNotifyEvent
TDXDrawNotifyType
TDXDrawOption
TDXFont
TDXImageList
TDXPowerFont
TDXPowerFontAfterTextOutEvent
TDXPowerFontBeforeTextOutEvent
TDXPowerFontEffectsParameters
TDXPowerFontTextOutEffect
TDXPowerFontTextOutType
TDXTBase
TDXTextureImage
TDXTextureImageFileBlockHeaderWriter
TDXTextureImageFileCompressType
TDXTextureImageLoadFunc
TDXTextureImageProgressEvent
TDXTextureImageType
TDXTImageChannel
TInitializeDirect3DOption
TOnRender
TOnUpdateTextures
TPictureCollection
TPictureCollectionComponent
TPictureCollectionItem
TPictureCollectionItemPattern
TRenderMirrorFlip
TRenderType
TTextureRec
TTrace
TTracePointsType
TTraces
TWaveType

TBlitRec
TBlurImageProp
TDXTextureImageChannel
TDXTextureImageFileBlockHeader
TDXTextureImageFileBlockHeader_StartGroup
TDXTextureImageFileBlockHeaderWriter_BlockInfo
TDXTextureImageFileHeader
TDXTextureImageHeader_Image_Format
TDXTextureImageHeader_Image_Format_Index
TDXTextureImageHeader_Image_Format_RGB
TDXTextureImageHeader_Image_GroupInfo
TDXTextureImageHeader_Image_PixelData
TDXTextureImageHeader_Image_TransparentColor
TDXTImageChannelInfo
TDXTImageFormat
TPath
TRGB

dxtMakeChannel(Mask: DWORD; indexed: Boolean): TDXTextureImageChannel  
dxtEncodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORD
dxtDecodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORD
dib2dxt(DIBImage: TDIB; out DXTImage: TDXTextureImage)
DXDraw_Draw(...); 
DXDraw_Paint(...); 
DXDraw_Render(...); 
DXDirectDrawEnumerate(lpCallback: TDDEnumCallbackA;  lpContext: Pointer): HRESULT
EnumDirectDrawDrivers:TDirectXDrivers
ClipRect(var DestRect: TRect; const DestRect2: TRect): Boolean
ClipRect2(var DestRect, SrcRect: TRect; const DestRect2, SrcRect2: TRect): Boolean
Conv24to16(Color: Integer): Word
Conv16to24(Color: Word): Integer
GetRGB(Color: cardinal; var R, G, B: Byte)
RGBToBGR(Color: cardinal): cardinal
BPPToDDBD(BPP: DWORD): DWORD
FreeZBufferSurface(Surface: TDirectDrawSurface; var ZBuffer: TDirectDrawSurface)
Direct3DInitializing(...); 
Direct3DInitializing_DXDraw(Options: TInitializeDirect3DOptions;  DXDraw: TCustomDXDraw)
InitializeDirect3D(...); 
InitializeDirect3D7(...); 
TDXDrawRGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads;  AllowPalette256: Boolean): TPaletteEntries
GetWidthBytes(Width, BitCount: Integer): Integer
DXTextureImage_LoadDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImage_LoadBitmapFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImageLoadFuncList:TList
DXTextureImage_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): Integer
IsNotZero(Z: TRect): Boolean
Mod2f(i: Double; i2: Integer): Double

PByte3
PDXDrawNotifyEvent
PDXTextureImageFileBlockHeaderWriter_BlockInfo
PPathArr
PRGB
PTextureArr
PTextureRec
TBlitMoveEvent
TBlurImageArr
TByte3
TD2D4Vertex
TD2DTextureFilter
TDirectDrawDisplay
TDirectDrawDisplayMode
TDXDrawNotifyEvent
TDXDrawNotifyType
TDXDrawOption
TDXDrawOptions
TDXPowerFontAfterTextOutEvent
TDXPowerFontBeforeTextOutEvent
TDXPowerFontTextOutEffect
TDXPowerFontTextOutType
TDXTextureImageFileCompressType
TDXTextureImageLoadFunc
TDXTextureImageProgressEvent
TDXTextureImageType
TDXTextureImage_PaletteEntries
TDXTImageChannel
TDXTImageChannels
TInitializeDire3DOption
TInitializeDire3DOptions
TOnRender
TOnUpdateTextures
TPathArr
TRenderMirrorFlip
TRenderMirrorFlipSet
TRenderType
TTextureArr
TTracePointsType
TWaveType

maxTexBlock = 2048  
maxVideoBlockSize = 2048
DXTextureImageGroupType_Normal = 0
DXTextureImageGroupType_Mipmap = 1
Alphabet =  ???
PowerAlphabet = ???
ccDefaultSpecular = $FFFFFFFF
ZeroRect: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 = $100
DXTextureImageCompress_None = 0
DXTextureImageCompress_ZLIB = 1
DXTextureImageFileCategoryType_Image = $100
DXTextureImageFileBlockID_EndFile = 0
DXTextureImageFileBlockID_EndGroup = 1
DXTextureImageFileBlockID_StartGroup = 2
DXTextureImageFileBlockID_Image_Format = DXTextureImageFileCategoryType_Image + 1
DXTextureImageFileBlockID_Image_PixelData = DXTextureImageFileCategoryType_Image + 2
DXTextureImageFileBlockID_Image_GroupInfo = DXTextureImageFileCategoryType_Image + 3
DXTextureImageFileBlockID_Image_Name = DXTextureImageFileCategoryType_Image + 4
DXTextureImageFileBlockID_Image_TransparentColor = DXTextureImageFileCategoryType_Image + 5
SurfaceDivWidth = maxVideoBlockSize
SurfaceDivHeight = maxVideoBlockSize

DirectDrawDrivers: TDirectXDrivers 
D2D: TD2D = nil  
RenderError: boolean = false
_DXTextureImageLoadFuncList: TList

DIB 单元

TColorLinePixelGeometry
TColorLineStyle
TCustomDXDIB
TCustomDXPaintBox
TDIB
TDIBitmap
TDIBSharedImage
TDistortType
TDXDIB
TDXPaintBox
TFilterMode
TFilterTypeResample
TGlobalMemoryStream
TPaletteItem
TPaletteManager

TBGR
TDIBPixelFormat
TLightSource
TLocalDIBPixelFormat

MakeDIBPixelFormat(RBitCount, GBitCount, BBitCount: Integer): TDIBPixelFormat
MakeDIBPixelFormatMask(RBitMask, GBitMask, BBitMask: Integer): TDIBPixelFormat
pfRGB(const PixelFormat: TDIBPixelFormat; R, G, B: Byte): DWORD
pfGetRGB(const PixelFormat: TDIBPixelFormat; Color: DWORD; var R, G, B: Byte)
pfGetRValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
pfGetGValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
pfGetBValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
GreyscaleColorTable:TRGBQuads
RGBQuad(R, G, B: Byte): TRGBQuad
PaletteEntryToRGBQuad(const Entry: TPaletteEntry): TRGBQuad
PaletteEntriesToRGBQuads(const Entries: TPaletteEntries): TRGBQuads
RGBQuadToPaletteEntry(const RGBQuad: TRGBQuad): TPaletteEntry
RGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads): TPaletteEntries
PosValue(Value: Integer): Integer
DSin(const C: TOC): Single
DCos(const C: TOC): Single
GetScale(SourceWidth, SourceHeight, TargetWidth, TargetHeight: Integer): Single
MakeDib(out DIB: TDIB; const iWidth, iHeight, iBitCount: Integer; iFillColor: TColor{$IFDEF VER4UP} = clBlack{$ENDIF})
MakeDIB2(out DIB: TDIB; iBitmap: TBitmap)
PaletteManager:TPaletteManager
EmptyDIBImage:TDIBSharedImage
IntToByte(i: Integer): Byte
TrimInt(i, Min, Max: Integer): Integer

PArrayBGR
PArrayByte
PArrayDWord
PArrayWord
PBGR
PBytes
PLines
PLocalDIBPixelFormat
PPBytes
PRGBA
PRGBQuads
TArrayBGR
TArrayByte
TArrayDWord
TArrayWord
TBytes
TColorLinePixelGeometry
TColorLineStyle
TDistortType
TFilter
TFilterMode
TFilterTypeResample
TLightArray
TLines
TMatrixSetting
TOC
TPaletteEntries
TPBytes
TRGBA
TRGBQuads

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: TPaletteManager
FEmptyDIBImage: TDIBSharedImage

DXSounds 单元

TAudioFileStream
TAudioStream
TAudioStreamNotify
TCustomDXSound
TCustomDXWaveList
TDirectSound
TDirectSoundBuffer
TDXMusic
TDXSound
TDXSoundDirectSound
TDXSoundNotifyEvent
TDXSoundNotifyType
TDXSoundOption
TDXWaveList
TMidiCollectionComponent
TMusicDataProp
TMusicListCollection
TMusicListCollectionItem
TSoundCaptureFormat
TSoundCaptureFormats
TSoundCaptureStream
TSoundCaptureStreamNotify
TSoundEngine
TWaveCollection
TWaveCollectionComponent
TWaveCollectionItem

TMidiDataHeader

DXDirectSoundCreate(lpGUID: PGUID; out lpDS: IDirectSound; pUnkOuter: IUnknown): HRESULT
DXDirectSoundEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULT
DXDirectSoundCaptureCreate(lpGUID: PGUID; out lplpDSC: IDirectSoundCapture;  pUnkOuter: IUnknown): HRESULT
DXDirectSoundCaptureEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULT
EnumDirectSoundDrivers_DSENUMCALLBACK(...): BOOL
EnumDirectSoundDrivers: TDirectXDrivers
EnumDirectSoundCaptureDrivers: TDirectXDrivers

PDXSoundNotifyEvent
TDXSoundNotifyEvent
TDXSoundNotifyType
TDXSoundOption
TDXSoundOptions

dm_OK = 0
DSBCAPS_CTRLDEFAULT = DSBCAPS_CTRLFREQUENCY or DSBCAPS_CTRLPAN or DSBCAPS_CTRLVOLUME

DirectSoundDrivers: TDirectXDrivers
DirectSoundCaptureDrivers: TDirectXDrivers

DXWave 单元

TCustomDXWave
TCustomWaveStream
TCustomWaveStream2
TDXWave
TWave
TWaveFileStream
TWaveObjectStream
TWaveStream

TWaveChunkHeader
TWaveFileHeader

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

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

DXPlay 单元

TCustomDXPlay
TDXPlay
TDXPlayEvent
TDXPlayMessageEvent
TDXPlayModemSetting
TDXPlayPlayer
TDXPlayPlayers
TDXPlayRecvThread
TDXPlaySendCompleteEvent
TDXPlaySendCompleteResult
TDXPlayTCPIPSetting

DXPlayMessageType(P: Pointer): DWORD
DXPlayStringToGUID(const S: string): TGUID
DXDirectPlayCreate(...): HRESULT
GUIDToString(const ClassID: TGUID): string
DXDirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackW; lpContext: Pointer): HRESULT
DXDirectPlayLobbyCreate(...): HRESULT

TDXPlayEvent
TDXPlayMessageEvent
TDXPlaySendCompleteEvent
TDXPlaySendCompleteResult

DXSprite 单元

TBackgroundSprite
TCollisionEvent
TCustomDXSpriteEngine
TDrawEvent
TDXSpriteEngine
TGetImage
TImageSprite
TImageSpriteEx
TMoveEvent
TSCFinalize
TSCInitialize
TSprite
TSpriteClass
TSpriteCollection
TSpriteCollectionItem
TSpriteEngine
TSpriteType

TMapDataHeader
TMapType

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

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

DXInput 单元

TCustomDXInput
TCustomInput
TDXInput
TDXInputState
TForceFeedbackEffect
TForceFeedbackEffectComponent
TForceFeedbackEffectItem
TForceFeedbackEffectObject
TForceFeedbackEffects
TForceFeedbackEffectType
TJoystick
TKeyboard
TMouse

DefKeyAssign: TKeyAssignList
DefKeyAssign2_1: TKeyAssignList
DefKeyAssign2_2: TKeyAssignList
AssignKey(var KeyAssignList: TKeyAssignList; State: TDXInputState; const Keys: array of Integer)
ConvertTime(i: Integer): DWORD
SetDWORDProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, dwValue: DWORD): HResult
SetRangeProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, Value: DWORD): HResult
TJoystick_EnumJoysticksCallback(const lpddi: TDIDeviceInstanceA; pvRef: Pointer): HRESULT
InitDirectInput(out DI: IDirectInput)
FinDirectInput(var DI: IDirectInput)

PKeyAssign
TDXInputState
TDXInputStates
TForceFeedbackEffectType
TKeyAssign
TKeyAssignList

FDirectInput: IDirectInput
FDirectInputCount: Integer