Go to most recent revision | Blame | Last modification | View Log | RSS feed
Ý * ‰±3 – <pDXInptEdit.pasi½ö( rDXInptEdit.dfmi½ö(dDXInput fTCustomDXInputþÒ¼fTKeyAssignListUß’Þf TDXInputState¼–gisUp@|´gisDown@|´gisLeft@|´gisRight@|´g isButton1@|´g
isButton327@|´gTJoystick.GetDeadZoneTk2€gTJoystick.GetRangeUk2€gTJoystick.SetID\k2€gTJoystick.SetAutoCenter[k2€gTCustomInput.SetForceFeedbacköµÞgTJoystick.SetDeadZoneYk2€gTJoystick.SetRangeZk2€f
PKeyAssignÞk0gDefKeyAssignD¢€gDefKeyAssign2_1D¢€gDefKeyAssign2_2D¢€cdButtonsÈCÒïcdSpinOýÜf TSpinEditiAŠíg
.TSpinEditÃ*aÙgTSpinEdit.SetValueaxgTSpinEdit.GetValue_xcdExtCtrlsÈCÒïfTBevelDq¸ g.TBevelžZcdMenusÈCÒïf
TPopupMenu÷i„³f TMenuItem%(óg.TPopupMenuQS[Ÿg
.TMenuItemÙÞcdStdCtrlsÈCÒïfTButton[PV.f TGroupBoxÞߘfTListBoxR¬_)f TComboBoxôO/fTLabel¬n¼“f TCheckBox~ÒFÔg.TButtonµ9-g
.TGroupBox8þµ„g .TListBox¬•6g
.TComboBox]Ý&g.TLabelX“g
.TCheckBoxØ»ÀcdComCtrlsÈCÒïfTPageControl* ùf TTabSheetŒ4L”g .TPageControl„òâäg
.TTabSheetæ#€cdDialogsÈCÒïcdFormsÈCÒïfTForm–g.TFormkðjgTCustomForm.AlignControls¾`þgTCustomForm.CreateParams¾`þgTCustomForm.CreateWindowHandle¾`þgTCustomForm.CreateWnd ¾`þgTCustomForm.DefineProperties¾`þgTCustomForm.DestroyWindowHandle¾`þgTCustomForm.DoCreate¾`þgTCustomForm.DoDestroy¾`þgTCustomForm.GetClientRect¾`þgTCustomForm.GetFloating¾`þgTCustomForm.Loaded¾`þgTCustomForm.Notification¾`þgTCustomForm.PaintWindow¾`þgTCustomForm.QueryInterface¾`þgTCustomForm.ReadState ¾`þgTCustomForm.SetParentBiDiMode#¾`þgTCustomForm.SetParent%¾`þgTCustomForm.UpdateActions&¾`þgTCustomForm.ValidateRename(¾`þgTCustomForm.WndProc*¾`þgTCustomForm.Resizing+¾`þgTCustomForm.Createb¾`þgTCustomForm.CreateNewc¾`þgTCustomForm.Destroyd¾`þgTCustomForm.AfterConstructione¾`þgTCustomForm.BeforeDestructionf¾`þgTCustomForm.CloseQueryh¾`þgTCustomForm.DefaultHandleri¾`þgTCustomForm.SetFocusu¾`þgTCustomForm.SetFocusedControlv¾`þgTCustomForm.ShowModalx¾`þgTCustomForm.WantChildKeyy¾`þg%TScrolli
ngWinControl.AdjustClientRectäžNTg&TScrollingWinControl.AutoScrollEnabledæžNTg%TScrollingWinControl.AutoScrollInViewçžNTgTCustomForm.Closeg¾`þcdControlsÈCÒïgTWinControl.AssignTo›ægTWinControl.CanAutoSizeŸægTWinControl.CanResize ægTWinControl.ConstrainedResize¢ægTWinControl.CreateHandle¥æg#TWinControl.CustomAlignInsertBeforeªægTWinControl.CustomAlignPosition«ægTWinControl.DestroyWnd¯ægTWinControl.GetClientOrigin¿ægTWinControl.GetControlExtentsÁægTWinControl.GetDeviceContextÂægTWinControl.ShowControlÜægTWinControl.InvalidateægTWinControl.RepaintægTWinControl.SetBoundsægTWinControl.UpdateægTControl.GetActionD9`gTControl.GetDragImagesJ9`gTControl.GetEnabledK9`g!TControl.GetFloatingDockSiteClassM9`gTControl.SetAutoSize\9`gTControl.SetDragMode]9`gTControl.SetEnabled^9`gTControl.SetName_9`gTControl.SetBiDiModec9`gTControl.InitiateAction¢9`cdGraphicsÈCÒïcdClassesÈCÒïgTComponent.UpdateRegistrysv·égTComponent.WriteStatewv·égTComponent.SafeCal
lExceptionv·égTPersistent.AssignŒ6Í\cdSysUtilsÈCÒïgIntToStrJ7ëcdMessagesÈCÒïcdWindowsÈCÒïgVK_TAB¼DСg VK_RETURNÀDСgVK_SHIFTÃDСg VK_ESCAPEÎDСgVK_SPACEÓDСgVK_PRIORÔDСgVK_NEXTÕDСgVK_LEFTØDСgVK_UPÙDСgVK_RIGHTÚDСgVK_DOWNÛDСg
VK_NUMPAD0EСg
VK_NUMPAD9EСgVK_MULTIPLYEСgVK_ADDEСgVK_SUBTRACT EСg
VK_DECIMAL!EСg VK_DIVIDE"EСgVK_F1#EСgVK_F151EСcdSysInitÈCÒïcdSystemÈCÒïfTObject÷! GfBooleanNˆcÇfInteger|ŸogTObject.Dispatchûä kgTObject.NewInstanceýä kgTObject.FreeInstanceþä kfStringš8ÿñf
AnsiStringš8ÿñg LoadResStringà‡]ØfChargQ”Ïg@LStrClrãóˆg@LStrAsg˜w@g @LStrFromCharnw÷g @LStrCat3X,Tdg @LStrArrayClr³¢Â¿g@HandleFinallyX,TdgOrd gLow gHigh fPointerÅž(XgFalse¦1ØogExit gTrue§1ØoceDXConsts gSNonec~v‚gSKeyLeft½ zšgSKeyUpèsšg SKeyRight€½äšgSKeyDownš€yšc&.TDelphiXInputEditForm€Z«òâ2 *TDelphiXInputEditFormˆ Â÷4 DelphiXInputEditFormæ(5÷4 .2f6 (
GetKeyText ±,!Key(#Result,c(DXInputStateText !,!State#Result,c( TDelphiXInputEditForm.FormCreate€… Q8!Self4!Sender$ i i2( sf,øc(TDelphiXInputEditForm.FormShow€… 8!Self4!Sender$c(#TDelphiXInputEditForm.OKButtonClick€… ý8!Self4!Sender$c( TDelphiXInputEditForm.UpdateData€#… P8!Self4cj(SetItemIndex ® 8!ComboBox
!Dataf(ø i(ck('TDelphiXInputEditForm.StateListBoxClick€… I8!Self4!Sender$ KeyAssignc("TDelphiXInputEditForm.Player1Click€… Œ8!Self4!Sender$c($TDelphiXInputEditForm.Player2_1Click€… Œ8!Self4!Sender$c($TDelphiXInputEditForm.Player2_2Click€… ’8!Self4!Sender$c('TDelphiXInputEditForm.CancelButtonClick€… 8!Self4 !Sender$c( TDelphiXInputEditForm.EditChange€ … 8!Self4 !Sender$c(Finalization€X,Td \! 8c(
DXInptEdit€ !8cG 4FdÝ"