Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # :ð k¹â6×0ù DXInput <pDelphiXcfg.inch½ö(pDXInput.pasi½ö( dSystem gTObject.SafeCallException² |
2 | ÄgTObject.AfterConstruction³ |
||
3 | ÄgTObject.BeforeDestruction´ |
||
4 | ÄgTObject.Dispatchµ |
||
5 | ÄgTObject.DefaultHandler¶ |
||
6 | ÄgTObject.NewInstance· |
||
7 | ÄgTObject.FreeInstance¸ |
||
8 | ÄgTObject.Destroy¹ |
||
9 | ÄfTObject|ê®ìfInteger fÂg.TObject_¾>f |
||
10 | AnsiString¶+{fBooleanúefTGUIDuÀ~fstring¶+{g@AbstractErroré`pÅgSizeOf gFillChar g @FillChar$gLow gHigh gExit gInc gOrd g@BeforeDestructionºS«g @ClassDestroyüÅàg |
||
11 | @IntfClear-¸\gTObject.Create¡ |
||
12 | Äg@ClassCreateçVÃg@LStrAsgÔg@AsClassEÞTÒg@AfterConstructionKgTObject.Free¢ |
||
13 | Ä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çØfTKeyboardStateyógVK_UP~ç1g |
||
14 | VK_NUMPAD8ä~ç1gVK_DOWN$~ç1g |
||
15 | VK_NUMPAD2Ò~ç1gVK_LEFT~ç1g |
||
16 | VK_NUMPAD4Ø~ç1gVK_RIGHT!~ç1g |
||
17 | VK_NUMPAD6Þ~ç1gVK_SPACE~ç1g VK_RETURNÓ}ç1gVK_F2ÿ~ç1g |
||
18 | VK_NUMPAD0Ì~ç1g |
||
19 | VK_NUMPAD5Û~ç1gINFINITE¿yßÞgGetForegroundWindowñöãg VK_ESCAPEý}ç1gVK_BACKÄ}ç1gVK_TABÇ}ç1g |
||
20 | VK_CONTROLß}ç1gVK_SHIFTÜ}ç1gVK_MENUâ}ç1g |
||
21 | VK_CAPITALè}ç1gVK_F1ü~ç1gVK_F3ç1gVK_F4ç1gVK_F5ç1gVK_F6ç1gVK_F7ç1gVK_F8ç1gVK_F9ç1gVK_F10ç1g |
||
22 | VK_NUMLOCKÜç1g VK_SCROLLßç1g |
||
23 | VK_NUMPAD7á~ç1g |
||
24 | VK_NUMPAD9ç~ç1gVK_SUBTRACTó~ç1gVK_ADDí~ç1g |
||
25 | VK_NUMPAD1Ï~ç1g |
||
26 | VK_NUMPAD3Õ~ç1g |
||
27 | 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 |
||
28 | .Exception ΪsgAnsiPosË gException.CreateFmtÊâ¹g |
||
29 | CompareMem.ì|g |
||
30 | fmOpenRead¬}ç1gfmShareDenyWrite~ç1gException.CreateÉâ¹cdClasses fTPersistentÁ1ÙfTListv rfTStream¬Ï{g.TPersistent¤Õ+gTPersistent.AssignToç!FqgTPersistent.DefinePropertiesè!Fqf |
||
31 | TComponentAffTFilerò)| 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.CreateNÝ gTCollectionItem.Destroy-\hgTCollection.GetCountNÝ gTCollection.GetItemNÝ fTFileStream4¸îµg.TFileStreamÌgTFileStream.CreateZØNgTStream.ReadComponentResßïgfmCreate*r2gTStream.WriteComponentResáïf.35È@ÙXg csLoadingAêÖëg csReadingDêÖëgcsDesigningMêÖëgTStream.ReadBufferÛïgTStream.WriteBufferÜïcdControls f |
||
32 | TWndMethod8gTWinControl.GetHandle;¾ßcdForms fTCustomFormI].g.TCustomForm,1ãcdMMSystem fTJoyCaps@©Ág joyGetDevCaps¾!®ÉgJOYERR_NOERROR¬}ç1f |
||
33 | 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 |
||
34 | 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_dfDIKeyboardYÐg |
||
35 | DIK_ESCAPE¯}ç1gDIK_1²}ç1gDIK_2µ}ç1gDIK_3¸}ç1gDIK_4»}ç1gDIK_5¾}ç1gDIK_6Á}ç1gDIK_7Ä}ç1gDIK_8Ç}ç1gDIK_9Ê}ç1gDIK_0Í}ç1g |
||
36 | 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 |
||
37 | 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 |
||
38 | DIK_LSHIFT*~ç1g DIK_BACKSLASH-~ç1gDIK_Z0~ç1gDIK_X3~ç1gDIK_C6~ç1gDIK_V9~ç1gDIK_B<~ç1gDIK_N?~ç1gDIK_MB~ç1g DIK_COMMAE~ç1g |
||
39 | DIK_PERIODH~ç1g DIK_SLASHK~ç1g |
||
40 | 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 |
||
41 | 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 |
||
42 | DIK_DIVIDEKç1g DIK_RMENUTç1gDIK_HOMEç1gDIK_UPç1g DIK_PRIORç1gDIK_LEFTç1g DIK_RIGHTç1gDIK_ENDç1gDIK_DOWNç1gDIK_NEXTç1g |
||
43 | DIK_INSERT¢ç1g |
||
44 | DIK_DELETE¥ç1gDIK_LWIN½ç1gDIK_RWINÀç1gDIK_APPSÃç1fTDIKeyboardStateuaEÐg GUID_SysMousedÜ¢gc_dfDIMouseYÐfTDIPropDWORDte¸ÚfTDIPropRangeoÈfTDIDeviceInstanceAk¶hf |
||
45 | TDIDevCapsO^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?wg.TControlSubClassZ×gTControlSubClass.Createc_ceDXConsts gSEffectNotFoundiif@gSCannotChangediif@gSNecessaryDirectInputUseMouseiif@gSNoFormiif@ceTypes fTPointçØc5DXInput _¸Ïc5System c5SysInit c5Windows c5Messages c5SysUtils %c5Classes Ic5Controls -c5Forms 9c5MMSystem Ec5DirectX yc5DXClass %c&.EDXInputError |
||
46 | ÍØz * EDXInputError 'ù²|&.EForceFeedbackEffectError ?*i~ *EForceFeedbackEffectError \V>%etNone 7 %etConstantForce : % |
||
47 | etPeriodic = %etCondition @ *TForceFeedbackEffectType ¾åu&.TForceFeedbackEffectObject áÅh *TForceFeedbackEffectObject 7 è&.TForceFeedbackEffect Ü |
||
48 | *TForceFeedbackEffect Cþ¸&.TForceFeedbackEffects cÕqø *TForceFeedbackEffects ¦%isUp Q?Ê %isDown T?Ê %isLeft W?Ê %isRight Z?Ê % isButton1 ]?Ê % isButton2 `?Ê |
||
49 | % isButton3 c?Ê % isButton4 f?Ê % isButton5 i?Ê % isButton6 l?Ê % isButton7 o?Ê % isButton8 r?Ê % isButton9 u?Ê % |
||
50 | isButton10 x?Ê % |
||
51 | isButton11 {?Ê % |
||
52 | isButton12 ~?Ê % |
||
53 | isButton13 ?Ê % |
||
54 | isButton14 ?Ê "% |
||
55 | isButton15 ?Ê $% |
||
56 | isButton16 ?Ê &% |
||
57 | isButton17 ?Ê (% |
||
58 | isButton18 ?Ê *% |
||
59 | isButton19 ?Ê ,% |
||
60 | isButton20 ?Ê .% |
||
61 | isButton21 ?Ê 0% |
||
62 | isButton22 ?Ê 2% |
||
63 | isButton23 ?Ê 4% |
||
64 | isButton24 ¢?Ê 6% |
||
65 | isButton25 ¥?Ê 8% |
||
66 | isButton26 ¨?Ê :% |
||
67 | isButton27 «?Ê <% |
||
68 | isButton28 ®?Ê >% |
||
69 | isButton29 ±?Ê @% |
||
70 | isButton30 ´?Ê B% |
||
71 | isButton31 ·?Ê D% |
||
72 | isButton32 º?Ê F* TDXInputState Ø 7*TDXInputStates ûÕö& .TCustomInput :ÒÎ *TCustomInput WþðL(TCustomInput.Update å |
||
73 | Ø!Self ce * |
||
74 | PKeyAssign |
||
75 | O½ò* |
||
76 | TKeyAssign UÅuþ*TKeyAssignList -W{ä& |
||
77 | .TKeyboard ½W0 * TKeyboard Ú1yÞ¢&.TMouse ¥·H¤ *TMouse Âãj±¦& |
||
78 | .TJoystick lìZ&¨ * TJoystick }Ôª&.TCustomDXInput \è¬ *TCustomDXInput 0 |
||
79 | 5®& .TDXInput A½° *TDXInput 8m:k²7.21F ´ 5DXConsts =c( AssignKey " KeyAssignList !State "Keysb ¶ø!." |