function TMAINFORM.RefreshRelevancyBar: Boolean;
var
I: Integer;
lDataSets: TBizDataSetList;
lFunc: TFunc;
begin
Result := RelevancyNavBar <> nil;
if not Result then
Exit;
lDataSets := TBizDataSetList.Create;
try
RelevancyNavBar.ClearBindDataSets;
GetRelevancyBarDataSets(lDataSets);
for I := 0 to lDataSets.Count - 1 do
RelevancyNavBar.BindDataSet(lDataSets[I] as TBizDataSet);
RelevancyNavBar.ReloadRelevancies(Context, FuncBroker.Func.BizClassURL.BizURL.URL);
finally
lDataSets.Free;
end;
TShowRelevancyNavBarMessage.Show(Context, RelevancyNavBar.GroupCount > 0);
end;