DXClass | DXDraws | DIB | DXSounds | DXWave | DXPlay | DXSprite | DXInput
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
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
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
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
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
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
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'
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
XE8 FMX Windows 修復列印旋轉文字問題，xe8
使用數據連接池(TIWDataModulePool).
測試效果圖: 測試代碼:uses GdiPlus;
unit Unit1; interface uses
Delphi寫的計算器，適合初學者參閱。主要利用Delph
Sqlite 本身沒有這個功能, FireDA
