mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 09:49:22 +02:00
lcl: groupededit: fix TabStop mechanism (fix regression after r54926 #2d7967420e). Issue #31811, #31229
git-svn-id: trunk@54930 -
This commit is contained in:
parent
94b65e57e9
commit
693a5d6f99
@ -205,6 +205,8 @@ type
|
|||||||
|
|
||||||
procedure BuddyClick; virtual;
|
procedure BuddyClick; virtual;
|
||||||
|
|
||||||
|
procedure DoEnter; override;
|
||||||
|
|
||||||
procedure EditChange; virtual;
|
procedure EditChange; virtual;
|
||||||
procedure EditClick; virtual;
|
procedure EditClick; virtual;
|
||||||
procedure EditDblClick; virtual;
|
procedure EditDblClick; virtual;
|
||||||
@ -930,6 +932,13 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TCustomAbstractGroupedEdit.DoEnter;
|
||||||
|
begin
|
||||||
|
inherited DoEnter;
|
||||||
|
if not (csDesigning in ComponentState) then
|
||||||
|
FEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TCustomAbstractGroupedEdit.EditChange;
|
procedure TCustomAbstractGroupedEdit.EditChange;
|
||||||
begin
|
begin
|
||||||
if Assigned(FOnEditChange) then FOnEditChange(Self);
|
if Assigned(FOnEditChange) then FOnEditChange(Self);
|
||||||
|
Loading…
Reference in New Issue
Block a user