mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-27 11:20:33 +02:00
the value for TabStop no longer depends on CanTab method. It's now purely up to the LCL control to regarding TabStop default value
git-svn-id: branches/macosfullkeyboardaccess@62721 -
This commit is contained in:
parent
0ef7355796
commit
0b13418dc4
@ -6168,10 +6168,6 @@ begin
|
|||||||
if AControl is TWinControl then
|
if AControl is TWinControl then
|
||||||
begin
|
begin
|
||||||
ListAdd(FTabList, AControl);
|
ListAdd(FTabList, AControl);
|
||||||
|
|
||||||
if (csDesigning in ComponentState) and (not (csLoading in ComponentState))
|
|
||||||
and AControl.CanTab then
|
|
||||||
TWinControl(AControl).TabStop := true;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
AControl.FParent := Self;
|
AControl.FParent := Self;
|
||||||
|
Loading…
Reference in New Issue
Block a user