erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-10 01:27:43 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Merge pull request #1247 from keymanapp/developer-help-new-project

Browse source 
[Developer] Add links to online help for New Project
This commit is contained in:
Marc Durdin 2018-10-11 07:18:22 +11:00 • committed by GitHub
commit f1a9cd0745
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
windows/src/developer/TIKE/help/Keyman.Developer.System.HelpTopics.pas
View file

@ -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';

5
windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProject.pas
View file

@ -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;

9
windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmNewProjectParameters.pas
View file

@ -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));