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.GetDeadZoneTk2gTJoystick.GetRangeUk2gTJoystick.SetID\k2gTJoystick.SetAutoCenter[k2gTCustomInput.SetForceFeedbacköµÞgTJoystick.SetDeadZoneYk2gTJoystick.SetRangeZk2f
PKeyAssignÞk0gDefKeyAssignD¢gDefKeyAssign2_1D¢gDefKeyAssign2_2D¢cdButtonsÈCÒïcdSpinOýÜf TSpinEditiAíg
.TSpinEditÃ*aÙgTSpinEdit.SetValueaxgTSpinEdit.GetValue_xcdExtCtrlsÈCÒïfTBevelDq¸ g.TBevelZcdMenusÈ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.TLabelXg
.TCheckBoxØ»ÀcdComCtrlsÈCÒïfTPageControl* ùf TTabSheet4Lg .TPageControlòâäg
.TTabSheetæ#cdDialogsÈCÒïcdFormsÈCÒïfTFormg.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.Assign6Í\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÷! GfBooleanNcÇfInteger|ogTObject.Dispatchûä kgTObject.NewInstanceýä kgTObject.FreeInstanceþä kfString8ÿñf
AnsiString8ÿñg LoadResStringà]ØfChargQÏg@LStrClrãóg@LStrAsgw@g @LStrFromCharnw÷g @LStrCat3X,Tdg @LStrArrayClr³¢Â¿g@HandleFinallyX,TdgOrd gLow gHigh fPointerÅ(XgFalse¦1ØogExit gTrue§1ØoceDXConsts gSNonec~vgSKeyLeft½ zgSKeyUpèsg SKeyRight½ägSKeyDownyc&.TDelphiXInputEditFormZ«òâ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(FinalizationX,Td \! 8c(
DXInptEdit !8cG 4FdÝ"