paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 20:28:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

designer: skip invisible for designer controls from tab-order dialog

Browse Source 
git-svn-id: trunk@18459 -
This commit is contained in:
paul 2009-01-27 04:19:52 +00:00
parent 685e4613f7
commit e3f461ec5f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/taborderdlg.pas
View File

@ -217,7 +217,8 @@ begin
for i := 0 to ParentControl.ControlCount - 1 do for i := 0 to ParentControl.ControlCount - 1 do
begin begin
AControl := ParentControl.Controls[i]; AControl := ParentControl.Controls[i];
if not (AControl is TWinControl) then // skip non TWinControls and ivisible for designer controls
if not (AControl is TWinControl) or (csNoDesignVisible in AControl.ControlStyle) then
continue; continue;
AWinControl := TWinControl(AControl); AWinControl := TWinControl(AControl);
CurTab := AWinControl.TabOrder; CurTab := AWinControl.TabOrder;