• 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
    

  • 相关阅读:
    es操作
    MySQL逻辑架构
    ceshimd
    mysql资料
    已解决 : VMware Workstation 与 Hyper-V 不兼容。请先从系统中移除 Hyper-V 角色
    MySQL数据库操作
    phpstorm配置laravel语法提示
    MySQL日志之慢查询日志(slow-log)
    456
    topcoder srm 553
  • 原文地址:https://www.cnblogs.com/del/p/1372452.html
Copyright © 2020-2023  润新知