paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 00:38:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fixed TSpinEditEx Focus on Tab Click doesn't work. Issue #32601

Browse Source 
git-svn-id: trunk@56162 -
This commit is contained in:
michl 2017-10-23 09:19:46 +00:00
parent f7a5ad2332
commit f9cb151061
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazcontrols/spinex.inc
View File

@ -368,6 +368,12 @@ begin
SetInitialBounds(0, 0, CX, CY); SetInitialBounds(0, 0, CX, CY);
end; 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; function TCustomFloatSpinEditEx.GetLimitedValue(const AValue: Double): Double;
begin begin
Result := AValue; Result := AValue;

1
components/lazcontrols/spinex.pp
View File

@ -144,6 +144,7 @@ type
property MinRepeatValue: Byte read FMinRepeatValue write SetMinRepeatValue default 100; property MinRepeatValue: Byte read FMinRepeatValue write SetMinRepeatValue default 100;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
procedure GetTabOrderList(List: TFPList); override;
function GetLimitedValue(const AValue: Double): Double; virtual; function GetLimitedValue(const AValue: Double): Double; virtual;
function ValueToStr(const AValue: Double): String; virtual; function ValueToStr(const AValue: Double): String; virtual;
function StrToValue(const S: String): Double; virtual; function StrToValue(const S: String): Double; virtual;

1
lcl/groupededit.pp
View File

@ -1167,7 +1167,6 @@ begin
FDirectInput := True; FDirectInput := True;
FIsReadOnly := False; FIsReadOnly := False;
TabStop := True; TabStop := True;
inherited TabStop := False;
FocusOnBuddyClick := False; FocusOnBuddyClick := False;
FSpacing := 0; FSpacing := 0;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY); SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);