I just installed the 7.1 update to Component Pack and was unable to start my application. As the main screen was being drawn, the app froze with 100% CPU.
Stepping through the code brought me to line 8950 in AdvToolbar.pas. The loop counter in GetToolbarPager never increments, causing the app to lock up. Inserting an Inc(i) where shown below cures the problem and the app now starts correctly.
function TCustomAdvToolBarStyler.GetToolBarPager: TAdvToolBarPager;
var
i: integer;
ctrl: TCustomControl;
begin
i := 0;
Result := nil;
while (i < FControlList.Count) do
begin
ctrl := TCustomControl(FControlList);
if (ctrl is TAdvToolBarPager) then
begin
Result := ctrl as TAdvToolBarPager;
Break;
end;
//********* missing Inc(i);
end;
end;
This is strange that this issue was not uncovered in our tests.
But yes, it is a problem that is fixed and we'll schedule an interim update asap.