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

lcl: groupededit: fix TabStop mechanism. Issue #31811

Browse Source 
git-svn-id: trunk@54926 -
This commit is contained in:
ondrej 2017-05-14 13:14:59 +00:00
parent eae5407804
commit 2d7967420e
2 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/editbtn.pas
View File

@ -1076,7 +1076,6 @@ begin
inherited Create(AOwner);
FButtonOnlyWhenFocused := False;
FocusOnButtonClick := False;
Edit.TabStop := False;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);

12
lcl/groupededit.pp
View File

@ -205,8 +205,6 @@ type
procedure BuddyClick; virtual;
procedure DoEnter; override;
procedure EditChange; virtual;
procedure EditClick; virtual;
procedure EditDblClick; virtual;
@ -620,7 +618,7 @@ end;
function TCustomAbstractGroupedEdit.GetTabStop: Boolean;
begin
Result := inherited TabStop;
Result := FEdit.TabStop;
end;
function TCustomAbstractGroupedEdit.RealGetText: TCaption;
@ -932,12 +930,6 @@ begin
end;
end;
procedure TCustomAbstractGroupedEdit.DoEnter;
begin
inherited DoEnter;
FEdit.SetFocus;
end;
procedure TCustomAbstractGroupedEdit.EditChange;
begin
if Assigned(FOnEditChange) then FOnEditChange(Self);
@ -1132,7 +1124,6 @@ end;
procedure TCustomAbstractGroupedEdit.SetTabStop(AValue: Boolean);
begin
inherited TabStop := AValue;
FEdit.TabStop := AValue;
end;
@ -1193,6 +1184,7 @@ begin
FDirectInput := True;
FIsReadOnly := False;
TabStop := True;
inherited TabStop := False;
FocusOnBuddyClick := False;
FSpacing := 0;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);