Go to most recent revision | Blame | Last modification | View Log | RSS feed
# :ð k¹â6‚×0ù DXInput– <pDelphiXcfg.inch½ö(pDXInput.pasi½ö( dSystem gTObject.SafeCallException²
Ä„gTObject.AfterConstruction³
Ä„gTObject.BeforeDestruction´
Ä„gTObject.Dispatchµ
Ä„gTObject.DefaultHandler¶
Ä„gTObject.NewInstance·
Ä„gTObject.FreeInstance¸
Ä„gTObject.Destroy¹
Ä„fTObject|ê®ìfInteger ™fÂg.TObject_¾Œ>f
AnsiString¶+{ŸfBooleanúefTGUIDuÀ~fstring¶+{Ÿg@AbstractErroré`pÅgSizeOf gFillChar g @FillCharž$šgLow gHigh gExit gInc gOrd g@BeforeDestructionºS«g @ClassDestroyüÅàŽg
@IntfClear-Џ\gTObject.Create¡
Ä„g@ClassCreateçVÃg@LStrAsg‘Ôœg@AsClassEÞTÒg@AfterConstructionƒKgTObject.Free¢
Ä„g@IsClass“˜¡g@HandleFinallyé`pÅgCopy g @LStrCopyé`pÅg LoadResString[WbgMaxIntBdÕg @LStrLAsg‘Ôœg@RaiseExcepté`pÅg @LStrArrayClrüŸg@LStrClr\ª«>gBreak g@LStrCmpé`pÅgTrunc gSqrt/ `Bg@TRUNCé`pÅfPointerï•fHRESULT[ìÀ€gTruevÉšøgFalsesÉšøg@IntfAddRefë–éfByteµág @SetUnioné`pÅfPGUID3Ýig@TryFinallyExité`pÅg @IntfCastk@Ò¨g@HandleAnyExceptioné`pÅg@RaiseAgainé`pÅg@DoneExcepté`pÅgAbs fIUnknownJXÓþg @IntfCopy>¦y¼gDec cdSysInit g HInstanceW6ûKcdWindows fDWORDIÐáKfTPointçØfTKeyboardState˜yó„gVK_UP~ç1g
VK_NUMPAD8ä~ç1gVK_DOWN$~ç1g
VK_NUMPAD2Ò~ç1gVK_LEFT~ç1g
VK_NUMPAD4Ø~ç1gVK_RIGHT!~ç1g
VK_NUMPAD6Þ~ç1gVK_SPACE~ç1g VK_RETURNÓ}ç1gVK_F2ÿ~ç1g
VK_NUMPAD0Ì~ç1g
VK_NUMPAD5Û~ç1gINFINITE¿yßÞgGetForegroundWindowñöãg VK_ESCAPEý}ç1gVK_BACKÄ}ç1gVK_TABÇ}ç1g
VK_CONTROLß}ç1gVK_SHIFTÜ}ç1gVK_MENUâ}ç1g
VK_CAPITALè}ç1gVK_F1ü~ç1gVK_F3ç1gVK_F4ç1gVK_F5ç1gVK_F6ç1gVK_F7ç1gVK_F8ç1gVK_F9ç1gVK_F10ç1g
VK_NUMLOCKÜŠç1g VK_SCROLLߊç1g
VK_NUMPAD7á~ç1g
VK_NUMPAD9ç~ç1gVK_SUBTRACTó~ç1gVK_ADDí~ç1g
VK_NUMPAD1Ï~ç1g
VK_NUMPAD3Õ~ç1g
VK_DECIMALö~ç1gVK_F11ç1gVK_F12ç1g VK_DIVIDEù~ç1gVK_HOME~ç1gVK_PRIOR~ç1gVK_END~ç1gVK_NEXT~ç1g VK_INSERT3~ç1g VK_DELETE6~ç1gVK_LWIN½~ç1gVK_RWINÀ~ç1gVK_APPSÃ~ç1gGetKeyboardState>.ŸgMulDiv6½ÍVfTHandleIÐáKgWA_INACTIVE¬}ç1cdMessages fTMessageÝ=5g WM_CREATE¯}ç1gWM_ACTIVATEAPP ~ç1fTWMActivateAppÌq'ägWM_ACTIVATE¾}ç1fTWMActivateÿ°cdSysUtils f Exception¢úÌ!g
.Exception…ΪsgAnsiPosË gException.CreateFmtÊâ¹g
CompareMem.ì|g
fmOpenRead¬}ç1gfmShareDenyWrite~ç1gException.CreateÉâ¹cdClasses fTPersistentÁ1ÙfTListv rfTStream¬Ï{‚g.TPersistent¤Õ+gTPersistent.AssignToç!FqgTPersistent.DefinePropertiesè!Fqf
TComponentƒAffTFilerò)| gTPersistent.Assignë!Fqg.TComponentfù·gTComponent.DefinePropertiesÀa0þgTComponent.NotificationÆa0þgTComponent.ReadStateÈa0þgTComponent.SetNameÍa0þgTComponent.UpdateRegistryÒa0þgTComponent.ValidateRenameÓa0þgTComponent.WriteStateÖa0þgTComponent.QueryInterface×a0þgTComponent.BeforeDestructionàa0þgTComponent.SafeCallExceptionïa0þg.TListYÝOÿg TList.Add¥)‡EgPoint`r6gTList.Remove³)‡EgTPersistent.Destroyê!Fqg TList.Getž)‡Eg TList.IndexOf¯)‡EgTList.Insert°)‡EfTCollectionItemk GÐfTCollection\.Ȉg.TCollectionItemNá$"gTCollectionItem.GetDisplayName•-\hgTCollectionItem.SetCollection–-\hgTCollectionItem.SetIndex—-\hgTCollectionItem.SetDisplayName˜-\hgTComponent.LoadedÅa0þgTComponent.CreateÞa0þgTComponent.Destroyßa0þgTCollectionItem.Create™-\hg.TCollection?¦ÚgTCollection.CreatešNÝ gTCollectionItem.Destroyš-\hgTCollection.GetCount‡NÝ gTCollection.GetItem”NÝ fTFileStream4¸îµg.TFileStreamŒÌgTFileStream.CreateZØNgTStream.ReadComponentResßïgfmCreate*r2gT
Stream.WriteComponentResáïf.35È@ÙXg csLoadingAêÖëg csReadingDêÖëgcsDesigningMêÖëgTStream.ReadBufferÛïgTStream.WriteBufferÜïcdControls f
TWndMethodˆ8gTWinControl.GetHandleœ;¾ßcdForms fTCustomFormI].‘g.TCustomForm,1ãcdMMSystem fTJoyCaps@©Ág joyGetDevCaps¾!®ÉgJOYERR_NOERROR¬}ç1f
TJoyInfoExT…ŠƒgJOY_RETURNX¯}ç1gJOY_RETURNY²}ç1gJOY_RETURNZ¸}ç1g JOY_RETURNPOVl~ç1gJOY_RETURNBUTTONS¬Šç1gJOY_RETURNCENTERED-þò1gjoyGetPosExu(ftagJOYCAPSA@©ÁcdDirectX f TDIEffect/žhØfTDIEnvelopeHR]fTDIConstantForceÈcåfTDIConditioni|•TfTDIPeriodic³©)fIDirectInputEffect¥»¡pf TDIDataFormat›–âzfTDIObjectDataFormatý»%ÜfIDirectInputDeviceˆ×êfIDirectInputDevice2%Lœ®fIDirectInputDeviceAˆ×êfIDirectInputDevice2A%Lœ®f TDIMouseStateúv§jfTDIJoyState2±ªQÀgDIJOFS_X¬}ç1gDIJOFS_Y¸}ç1gDIJOFS_ZÄ}ç1fIDirectInput™¤šf IDirectInputA™¤šf TDIEffect_DX6/žhØgDIEFF_CARTESIANÜ}ç1gDIEFF_OBJECTOFFSETS²}ç1gDIEB_NOTRIGGERÑrâfTDIEffectInfoAdTnâgDIENUM_STOP¬}ç1gGUID_ConstantForcedÜ¢gDIEFT_PERIODICµ}ç1gDIEFT_CONDITION¸}ç1gDIEP_DIRECTIONl~ç1g DIEP_DURATION¯}ç1g DIEP_ENVELOPE¬Šç1g DIEP_GAIN¸}ç1gDIEP_SAMPLEPERIOD²}ç1gDIEP_TRIGGERBUTTONÄ}ç1gDIEP_TRIGGERREPEATINTERVALÜ}ç1gDIEP_TYPESPECIFICPARAMS-õò1g
DIEP_START/rçgDIEGES_PLAYING¯}ç1gDIERR_INPUTLOST.–Ó“gDIERR_NOTACQUIREDø•Ó“gDISCL_NONEXCLUSIVE²}ç1gDISCL_EXCLUSIVE¯}ç1gDISCL_BACKGROUNDÄ}ç1gDISCL_FOREGROUND¸}ç1gDI_OKÔ•¾fTDIDeviceObjectInstanceA:“è%gDIENUM_CONTINUE¯}ç1gGUID_UnknowndÜ¢g DIDFT_ALL¬}ç1gGUID_SysKeyboarddÜ¢gc_dfDIKeyboardŠYОg
DIK_ESCAPE¯}ç1gDIK_1²}ç1gDIK_2µ}ç1gDIK_3¸}ç1gDIK_4»}ç1gDIK_5¾}ç1gDIK_6Á}ç1gDIK_7Ä}ç1gDIK_8Ç}ç1gDIK_9Ê}ç1gDIK_0Í}ç1g
DIK_EQUALSÓ}ç1gDIK_BACKÖ}ç1gDIK_TABÙ}ç1gDIK_QÜ}ç1gDIK_Wß}ç1gDIK_Eâ}ç1gDIK_Rå}ç1gDIK_Tè}ç1gDIK_Yë}ç1gDIK_Uî}ç1gDIK_Iñ}ç1gDIK_Oô}ç1gDIK_P÷}ç1gDIK_LBRACKETú}ç1gDIK_RBRACKETý}ç1g
DIK_RETURN ~ç1gDIK_LCONTROL~ç1gDIK_A~ç1gDIK_S ~ç1gDIK_D~ç1gDIK_F~ç1gDIK_G~ç1gDIK_H~ç1gDIK_J~ç1gDIK_K~ç1gDIK_L~ç1g DIK_SEMICOLON!~ç1gDIK_APOSTROPHE$~ç1g
DIK_LSHIFT*~ç1g DIK_BACKSLASH-~ç1gDIK_Z0~ç1gDIK_X3~ç1gDIK_C6~ç1gDIK_V9~ç1gDIK_B<~ç1gDIK_N?~ç1gDIK_MB~ç1g DIK_COMMAE~ç1g
DIK_PERIODH~ç1g DIK_SLASHK~ç1g
DIK_RSHIFTN~ç1gDIK_MULTIPLYQ~ç1g DIK_LMENUT~ç1g DIK_SPACEW~ç1gDIK_CAPITALZ~ç1gDIK_F1]~ç1gDIK_F2`~ç1gDIK_F3c~ç1gDIK_F4f~ç1gDIK_F5i~ç1gDIK_F6l~ç1gDIK_F7o~ç1gDIK_F8r~ç1gDIK_F9u~ç1gDIK_F10x~ç1gDIK_NUMLOCK{~ç1g
DIK_SCROLL~~ç1gDIK_NUMPAD7~ç1gDIK_NUMPAD8„~ç1gDIK_NUMPAD9‡~ç1gDIK_SUBTRACTŠ~ç1gDIK_NUMPAD4~ç1gDIK_NUMPAD5~ç1gDIK_NUMPAD6“~ç1gDIK_ADD–~ç1gDIK_NUMPAD1™~ç1gDIK_NUMPAD2œ~ç1gDIK_NUMPAD3Ÿ~ç1gDIK_NUMPAD0¢~ç1gDIK_DECIMAL¥~ç1gDIK_F11±~ç1gDIK_F12´~ç1gDIK_NUMPADENTER ‹ç1gDIK_RCONTROL‹ç1g
DIK_DIVIDEK‹ç1g DIK_RMENUT‹ç1gDIK_HOME‹ç1gDIK_UP„‹ç1g DIK_PRIOR‡‹ç1gDIK_LEFT‹ç1g DIK_RIGHT“‹ç1gDIK_END™‹ç1gDIK_DOWNœ‹ç1gDIK_NEXTŸ‹ç1g
DIK_INSERT¢‹ç1g
DIK_DELETE¥‹ç1gDIK_LWIN½‹ç1gDIK_RWINÀ‹ç1gDIK_APPSËç1fTDIKeyboardStateuaEÐg GUID_SysMousedÜ¢gc_dfDIMouseŠYОfTDIPropDWORDte¸ÚfTDIPropRangeoÈžfTDIDeviceInstanceA†k¶hf
TDIDevCaps‹O^’gDIDEVTYPE_JOYSTICK¸}ç1gDIEDFL_ATTACHEDONLY¯}ç1gDIDC_FORCEFEEDBACK-õò1g GUID_JoystickdÜ¢gDIDF_ABSAXIS¯}ç1gDIPROP_AUTOCENTER™ÜÚügDIPH_DEVICE¬}ç1fPDIJOYSTATE2:‘ˆgDIPROP_DEADZONEÜÚüg DIPH_BYOFFSET¯}ç1gDIPROP_RANGEŠÜÚügDIRECTINPUT_VERSION-ó1cdDXClass fTControlSubClass:?|…gMin…Ò´g DXLoadLibrary?wˆ“g.TControlSubClassZ×gTControlSubClass.Createc_‘ceDXConsts gSEffectNotFoundiif@gSCannotChangediif@gSNecessaryDirectInputUseMouseiif@gSNoFormiif@ceTypes fTPointçØc5DXInput€ _¸ŽÏc5System c5SysInit ˆc5Windows Œc5Messages c5SysUtils %c5Classes Ic5Controls -c5Forms 9c5MMSystem Ec5DirectX yc5DXClass %c&.EDXInputError€
ÍØz * EDXInputErrorˆ 'ù²†|&.EForceFeedbackEffectError€ ?*i~ *EForceFeedbackEffectErrorˆ \V>€%etNoneŠ 7‚ %etConstantForceŠ :‚ %
etPeriodicŠ =‚ %etConditionŠ @‚ *TForceFeedbackEffectTypeˆ ¾åu‚&.TForceFeedbackEffectObject€ áÅh„ *TForceFeedbackEffectObjectˆ 7 è†&.TForceFeedbackEffect€ Ü
ˆ *TForceFeedbackEffectˆ Cþ¸Š&.TForceFeedbackEffects€ cÕqøŒ *TForceFeedbackEffectsˆ €”¦Ž%isUpŠ Q?ƒÊ %isDownŠ T?ƒÊ %isLeftŠ W?ƒÊ %isRightŠ Z?ƒÊ % isButton1Š ]?ƒÊ % isButton2Š `?ƒÊ
% isButton3Š c?ƒÊ % isButton4Š f?ƒÊ % isButton5Š i?ƒÊ % isButton6Š l?ƒÊ % isButton7Š o?ƒÊ % isButton8Š r?ƒÊ % isButton9Š u?ƒÊ %
isButton10Š x?ƒÊ %
isButton11Š {?ƒÊ %
isButton12Š ~?ƒÊ %
isButton13Š ?ƒÊ %
isButton14Š „?ƒÊ "%
isButton15Š ‡?ƒÊ $%
isButton16Š Š?ƒÊ &%
isButton17Š ?ƒÊ (%
isButton18Š ?ƒÊ *%
isButton19Š “?ƒÊ ,%
isButton20Š –?ƒÊ .%
isButton21Š ™?ƒÊ 0%
isButton22Š œ?ƒÊ 2%
isButton23Š Ÿ?ƒÊ 4%
isButton24Š ¢?ƒÊ 6%
isButton25Š ¥?ƒÊ 8%
isButton26Š ¨?ƒÊ :%
isButton27Š «?ƒÊ <%
isButton28Š ®?ƒÊ >%
isButton29Š ±?ƒÊ @%
isButton30Š ´?ƒÊ B%
isButton31Š ·?ƒÊ D%
isButton32Š º?ƒÊ F* TDXInputStateˆ Ø•…7*TDXInputStatesˆ …ûÕö’& .TCustomInput€ :ÒΞ” *TCustomInputˆ WþðL–(TCustomInput.Update€ —å
ؘ–!Self – cœe –*
PKeyAssignˆ
O½òš*
TKeyAssignˆ UÅuþœ*TKeyAssignListˆ -W{äž&
.TKeyboard€ ½W0 * TKeyboardˆ Ú1yÞ¢&.TMouse€ ¥·H¤ *TMouseˆ Âãj±¦&
.TJoystick€ lìZ&¨ * TJoystickˆ ‰}Ôª&.TCustomDXInput€ \膬 *TCustomDXInputˆ 0ˆ
5®& .TDXInput€ A½° *TDXInputˆ 8m:k²7.21F ´ 5DXConsts =c( AssignKey ž ˜ " KeyAssignList ž !State "Keysb ¶ø!."