diff --git a/windows/src/developer/TIKE/help/Keyman.Developer.System.HelpTopics.pas b/windows/src/developer/TIKE/help/Keyman.Developer.System.HelpTopics.pas index faffe983e8..d4a8638c58 100644 --- a/windows/src/developer/TIKE/help/Keyman.Developer.System.HelpTopics.pas +++ b/windows/src/developer/TIKE/help/Keyman.Developer.System.HelpTopics.pas @@ -21,8 +21,8 @@ const SHelpTopic_Context_Messages = 'context/messages'; SHelpTopic_Context_MustIncludeDebug = 'context/must-include-debug'; SHelpTopic_Context_New = 'context/new'; - SHelpTopic_Context_NewProject = 'context/new-project'; //TODO: Add it - SHelpTopic_Context_NewBasicProject = 'context/new-basic-project'; //TODO: Add it + SHelpTopic_Context_NewProject = 'context/new-project'; + SHelpTopic_Context_NewProjectParameters = 'context/new-project-parameters'; SHelpTopic_Context_NewFileDetails = 'context/new-file-details'; SHelpTopic_Context_OnScreenKeyboardEditor = 'context/keyboard-editor#toc-on-screen-tab'; SHelpTopic_Context_Options = 'context/options'; diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProject.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProject.pas index 531cd92e0c..db9a21ac7f 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProject.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProject.pas @@ -153,7 +153,7 @@ end; function TfrmNewProject.GetHelpTopic: string; begin - Result := SHelpTopic_Context_New; + Result := SHelpTopic_Context_NewProject; end; procedure TfrmNewProject.lvItemsDblClick(Sender: TObject); @@ -179,6 +179,9 @@ begin 'needed for a keyboard project.'; kptBlank: lblDescription.Caption := 'Creates a blank, untitled project.'; + kptImportWindowsKeyboard: lblDescription.Caption := + 'Creates a new keyboard project, importing from a Windows system keyboard '+ + 'and generating all the basic files needed for a keyboard project.'; end; end; diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProjectParameters.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProjectParameters.pas index 2bcbfafd02..b66b0f2c7d 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProjectParameters.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProjectParameters.pas @@ -82,6 +82,8 @@ type procedure SetBCP47Tags(const Value: string); procedure SetKeyboardID(const Value: string); procedure SetKeyboardName(const Value: string); + protected + function GetHelpTopic: string; override; public property KeyboardName: string read GetKeyboardName write SetKeyboardName; property Copyright: string read GetCopyright; @@ -105,6 +107,8 @@ uses UfrmMain, utilstr, utilsystem, + Keyman.Developer.System.HelpTopics, + Keyman.Developer.System.Project.Project, Keyman.Developer.System.Project.ProjectFile, Keyman.Developer.System.KeyboardProjectTemplate, Keyman.Developer.UI.UfrmSelectBCP47Language, @@ -350,6 +354,11 @@ begin Result := Trim(editCopyright.Text); end; +function TfrmNewProjectParameters.GetHelpTopic: string; +begin + Result := SHelpTopic_Context_NewProjectParameters; +end; + function TfrmNewProjectParameters.GetKeyboardID: string; begin Result := Trim(LowerCase(editFileName.Text));