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

LCL: formatting and little optimizing

Browse Source 
git-svn-id: trunk@33596 -
This commit is contained in:
juha 2011-11-17 22:57:20 +00:00
parent e597ae1306
commit 1d2f226d61
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/wincontrol.inc
View File

@ -4150,7 +4150,6 @@ procedure TWinControl.SetTabStop(NewTabStop: Boolean);
begin
if FTabStop = NewTabStop then
Exit;
FTabStop := NewTabStop;
UpdateTabOrder(FTabOrder);
Perform(CM_TABSTOPCHANGED, 0, 0);
@ -4501,9 +4500,9 @@ end;
procedure TWinControl.FixupTabList;
var
Count, I, J: Integer;
List: TFPList;
I, J: Integer;
Control: TWinControl;
List: TFPList;
WinControls: TFPList;
begin
if FControls <> nil then
@ -4513,19 +4512,20 @@ begin
try
for i:=0 to FControls.Count-1 do
if TObject(FControls[i]) is TWinControl then
WinControls.Add(TWinControl(FControls[i]));
Count := WinControls.Count;
List.Count := Count;
for I := 0 to Count - 1 do
WinControls.Add(FControls[i]);
List.Count := WinControls.Count;
for I := 0 to WinControls.Count - 1 do
begin
Control := TWinControl(WinControls[I]);
J := Control.FTabOrder;
if (J >= 0) and (J < Count) then List[J] := Control;
if (J >= 0) and (J < WinControls.Count) then
List[J] := Control;
end;
for I := 0 to Count - 1 do
for I := 0 to List.Count - 1 do
begin
Control := TWinControl(List[I]);
if Control <> nil then Control.UpdateTabOrder(TTabOrder(I));
if Control <> nil then
Control.UpdateTabOrder(TTabOrder(I));
end;
finally
List.Free;