paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: groupededit: fix TabStop mechanism (fix regression after r54926 #2d7967420e). Issue #31811, #31229

Browse Source 
git-svn-id: trunk@54930 -
This commit is contained in:
ondrej 2017-05-14 15:57:44 +00:00
parent 94b65e57e9
commit 693a5d6f99
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/groupededit.pp
View File

@ -205,6 +205,8 @@ type
procedure BuddyClick; virtual;
procedure DoEnter; override;
procedure EditChange; virtual;
procedure EditClick; virtual;
procedure EditDblClick; virtual;
@ -930,6 +932,13 @@ begin
end;
end;
procedure TCustomAbstractGroupedEdit.DoEnter;
begin
inherited DoEnter;
if not (csDesigning in ComponentState) then
FEdit.SetFocus;
end;
procedure TCustomAbstractGroupedEdit.EditChange;
begin
if Assigned(FOnEditChange) then FOnEditChange(Self);