From f9cb15106185dce267df99acd5af5ed3ceba13ca Mon Sep 17 00:00:00 2001 From: michl Date: Mon, 23 Oct 2017 09:19:46 +0000 Subject: [PATCH] LCL: Fixed TSpinEditEx Focus on Tab Click doesn't work. Issue #32601 git-svn-id: trunk@56162 - --- components/lazcontrols/spinex.inc | 6 ++++++ components/lazcontrols/spinex.pp | 1 + lcl/groupededit.pp | 1 - 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/components/lazcontrols/spinex.inc b/components/lazcontrols/spinex.inc index 9dae8ac158..3ed850d61e 100644 --- a/components/lazcontrols/spinex.inc +++ b/components/lazcontrols/spinex.inc @@ -368,6 +368,12 @@ begin SetInitialBounds(0, 0, CX, CY); end; +procedure TCustomFloatSpinEditEx.GetTabOrderList(List: TFPList); +begin +// just the TCustomEditButton as container should be tabable, see issue #32335 +// so no inherited adding of child controls +end; + function TCustomFloatSpinEditEx.GetLimitedValue(const AValue: Double): Double; begin Result := AValue; diff --git a/components/lazcontrols/spinex.pp b/components/lazcontrols/spinex.pp index 3f4913c2f3..61ecfb31f7 100644 --- a/components/lazcontrols/spinex.pp +++ b/components/lazcontrols/spinex.pp @@ -144,6 +144,7 @@ type property MinRepeatValue: Byte read FMinRepeatValue write SetMinRepeatValue default 100; public constructor Create(TheOwner: TComponent); override; + procedure GetTabOrderList(List: TFPList); override; function GetLimitedValue(const AValue: Double): Double; virtual; function ValueToStr(const AValue: Double): String; virtual; function StrToValue(const S: String): Double; virtual; diff --git a/lcl/groupededit.pp b/lcl/groupededit.pp index e01b240f39..45f09158e7 100644 --- a/lcl/groupededit.pp +++ b/lcl/groupededit.pp @@ -1167,7 +1167,6 @@ begin FDirectInput := True; FIsReadOnly := False; TabStop := True; - inherited TabStop := False; FocusOnBuddyClick := False; FSpacing := 0; SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);