diff --git a/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas b/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas index 3ce825b5a64..6fcefc44368 100644 --- a/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas +++ b/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas @@ -404,6 +404,7 @@ procedure TfrmProject.WebCommandProject(Command: WideString; Params: TStringList if Command = 'fileaddnew' then begin { create a new file, add it to the project } + Assert(FGlobalProject.Options.Version = pv10); with TfrmNewFileDetails.Create(Self) do try BaseFileName := FGlobalProject.FileName; @@ -421,6 +422,7 @@ procedure TfrmProject.WebCommandProject(Command: WideString; Params: TStringList else if Command = 'fileaddexisting' then begin { locate an existing file, add it to the project } + Assert(FGlobalProject.Options.Version = pv10); FFileType := FileTypeFromParamType; dlgOpenFile.Filter := GetFileTypeFilter(FFileType, FDefaultExtension); @@ -479,6 +481,7 @@ procedure TfrmProject.WebCommandProject(Command: WideString; Params: TStringList end else if Command = 'removefile' then begin + Assert(FGlobalProject.Options.Version = pv10); pf := SelectedProjectFile; if Assigned(pf) then begin diff --git a/developer/src/tike/project/Keyman.Developer.UI.Project.UpgradeProject.pas b/developer/src/tike/project/Keyman.Developer.UI.Project.UpgradeProject.pas index 463f93ba764..7e09f2a1ba3 100644 --- a/developer/src/tike/project/Keyman.Developer.UI.Project.UpgradeProject.pas +++ b/developer/src/tike/project/Keyman.Developer.UI.Project.UpgradeProject.pas @@ -44,7 +44,8 @@ function TryUpgradeProject(Project: TProject): TUpgradeResult; Exit; end; - case MessageDlg('The current project can be upgraded to Keyman Developer 17.0 format. Do you wish to upgrade it (recommended)?', + case MessageDlg('The current project can be upgraded to Keyman Developer 17.0 format. Do you wish to upgrade it (recommended)?'#13#10#13#10+ + 'Note: upgraded projects will not be readable by older versions of Keyman Developer.', mtConfirmation, mbYesNoCancel, 0) of mrNo: Exit; mrCancel: Exit(urCancelled); diff --git a/developer/src/tike/xml/project/distribution.xsl b/developer/src/tike/xml/project/distribution.xsl index 3d72f0626fb..2cb0834092c 100644 --- a/developer/src/tike/xml/project/distribution.xsl +++ b/developer/src/tike/xml/project/distribution.xsl @@ -117,10 +117,12 @@ Open Containing Folder keyman:opencontainingfolder?id= - - Remove from Project - keyman:removefile?id= - + + + Remove from Project + keyman:removefile?id= + + diff --git a/developer/src/tike/xml/project/keyboards.xsl b/developer/src/tike/xml/project/keyboards.xsl index 3287a159865..0008ca75f55 100644 --- a/developer/src/tike/xml/project/keyboards.xsl +++ b/developer/src/tike/xml/project/keyboards.xsl @@ -176,11 +176,13 @@ keyman:openbuildfolder?id= - - Remove from Project - keyman:removefile?id= - - + + + Remove from Project + keyman:removefile?id= + + + diff --git a/developer/src/tike/xml/project/models.xsl b/developer/src/tike/xml/project/models.xsl index a68cecc347d..df4bd9f994c 100644 --- a/developer/src/tike/xml/project/models.xsl +++ b/developer/src/tike/xml/project/models.xsl @@ -162,11 +162,13 @@ keyman:openbuildfolder?id= - - Remove from Project - keyman:removefile?id= - - + + + Remove from Project + keyman:removefile?id= + + + @@ -193,11 +195,13 @@ keyman:opencontainingfolder?id= - - Remove from Project - keyman:removefile?id= - - + + + Remove from Project + keyman:removefile?id= + + + \ No newline at end of file diff --git a/developer/src/tike/xml/project/packages.xsl b/developer/src/tike/xml/project/packages.xsl index 2a5905b907f..40a4111bcad 100644 --- a/developer/src/tike/xml/project/packages.xsl +++ b/developer/src/tike/xml/project/packages.xsl @@ -146,10 +146,12 @@ keyman:openbuildfolder?id= - - Remove from Project - keyman:removefile?id= - + + + Remove from Project + keyman:removefile?id= + +