<%
var
aTopicList: THndTopicsInfoArray;
aKeywordList: THndKeywordsInfoArray;
nBlocLevel: integer = 0;
nCurTopic, nCurTopicLevel, nDif, nClose: integer;
nCurKeyword, nCurKeywordLevel, nCurKeywordTopic: integer;
sCurTopic, sCurKeyword, sProjectTitle: string;
sKeywordLink, sKeywordOnClick: string;
aAssociatedTopics: array of string;
begin
// Setup the file name
HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile);
sProjectTitle := HndProjects.GetProjectTitle();
aTopicList := HndTopics.GetTopicList(False);
aKeywordList := HndKeywords.GetKeywordList(False);
%>
<% print(HTMLEncode(sProjectTitle)); %>
<% print(HTMLEncode(sProjectTitle)); %>
<% print(HTMLEncode(HndProjects.GetProjectCopyright())); %>
<% print(HTMLEncode(sProjectTitle)); %>
<%
for nCurKeyword := 0 to length(aKeywordList) - 1 do
begin
sCurKeyword := aKeywordList[nCurKeyword].id;
nCurKeywordLevel := HndKeywords.GetKeywordLevel(sCurKeyword);
aAssociatedTopics := HndTopicsKeywords.GetTopicsAssociatedWithKeyword(sCurKeyword);
if Length(aAssociatedTopics) > 0 then
begin
sKeywordLink := format('%s.html', [HndTopics.GetTopicHelpId(aAssociatedTopics[0])]);
sKeywordOnClick := 'return ShowKwPopup(this, [';
for nCurKeywordTopic := 0 to Length(aAssociatedTopics) - 1 do
begin
if nCurKeywordTopic > 0 then sKeywordOnClick := sKeywordOnClick + ',';
sKeywordOnClick := sKeywordOnClick + format('[''%s'',''%s.html'']', [HndTopics.GetTopicCaption(aAssociatedTopics[nCurKeywordTopic]), HndTopics.GetTopicHelpId(aAssociatedTopics[nCurKeywordTopic])]);
end;
sKeywordOnClick := sKeywordOnClick + ']);';
end
else begin
sKeywordLink := '';
sKeywordOnClick := 'return false;';
end;
%>
<% print(HTMLEncode(HndKeywords.GetKeywordCaption(sCurKeyword))); %>
<%
end;
%>
<% print(HTMLEncode(HndProjects.GetProjectCopyright())); %>
<% print(HTMLEncode(sProjectTitle)); %>
<% print(HTMLEncode(HndProjects.GetProjectCopyright())); %>
<%
end.
%>