paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 11:59:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fixed TDateEdit/TTimeEdit controls break the tab order. Issue #32533

Browse Source 
git-svn-id: trunk@56031 -
This commit is contained in:
michl 2017-10-11 20:08:20 +00:00
parent 548728f387
commit 93eedde9b9
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/groupededit.pp
View File

@ -407,18 +407,10 @@ implementation
function TGEEdit.PerformTab(ForwardTab: boolean): boolean;
begin
//if not Forward then inherited PerFormTab will set focus to the owning
//TCustomAbstractGroupedEdit, which immediately transfers the focus back to the TGEEdit
//so let TCustomAbstractGroupedEdit do the Performtab in this case
if ForwardTab then
Result := inherited PerformTab(ForwardTab)
if Assigned(Owner) and (Owner is TCustomAbstractGroupedEdit) then
Result := TCustomAbstractGroupedEdit(Owner).PerformTab(ForwardTab)
else
begin
if Assigned(Owner) and (Owner is TCustomAbstractGroupedEdit) then
Result := TCustomAbstractGroupedEdit(Owner).PerformTab(ForwardTab)
else
Result := False;
end;
Result := False;
end;
{ TCustomAbstractGroupedEdit }