<% var sProjectTitle, sDefaultTopicId: string; begin // Need BOM for UTF8 files HndGeneratorInfo.BOMOutput := True; HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile); sProjectTitle := HndProjects.GetProjectTitle(); // Try to get the default topic sDefaultTopicId := HndProjectsMeta.GetItemMetaStringValue('DefaultTopic', ''); // None defined: the first one is the default topic if (sDefaultTopicId = '') then sDefaultTopicId := HndTopics.GetTopicNextVisible(HndTopics.GetProjectTopic()); if (sDefaultTopicId <> '') then sDefaultTopicId := HndTopics.GetTopicHelpId(sDefaultTopicId); %> <% end. %>