mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-11 03:15:33 +00:00
fe772e1008
Fixes #10148. We now force the SourcePath and BuildPath project properties to be a direct subfolder of the project folder, in order to avoid issues with paths in the future. This is only applied to v2.0 projects, and only enforced via the UI at this point.
99 lines
3.3 KiB
ObjectPascal
99 lines
3.3 KiB
ObjectPascal
(*
|
|
Name: Keyman.Developer.UI.Project.UfrmProjectSettings
|
|
Copyright: Copyright (C) SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 4 May 2015
|
|
|
|
Modified Date: 24 Aug 2015
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 04 May 2015 - mcdurdin - I4688 - V9.0 - Add build path to project settings
|
|
24 Aug 2015 - mcdurdin - I4865 - Add treat hints and warnings as errors into project
|
|
24 Aug 2015 - mcdurdin - I4866 - Add warn on deprecated features to project and compile
|
|
|
|
*)
|
|
unit Keyman.Developer.UI.Project.UfrmProjectSettings20; // I4688
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TfrmProjectSettings20 = class(TForm)
|
|
lblOutputPath: TLabel;
|
|
editOutputPath: TEdit;
|
|
Label2: TLabel;
|
|
cmdOK: TButton;
|
|
cmdCancel: TButton;
|
|
Label3: TLabel;
|
|
Label6: TLabel;
|
|
chkCompilerWarningsAsErrors: TCheckBox;
|
|
chkWarnDeprecatedCode: TCheckBox;
|
|
chkCheckFilenameConventions: TCheckBox;
|
|
lblSourcePath: TLabel;
|
|
editSourcePath: TEdit;
|
|
chkBuildMetadataFiles: TCheckBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure cmdOKClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
Keyman.Developer.System.Project.Project,
|
|
utildir;
|
|
|
|
procedure TfrmProjectSettings20.cmdOKClick(Sender: TObject);
|
|
var
|
|
path: string;
|
|
begin
|
|
path := Trim(DosSlashes(editOutputPath.Text));
|
|
if (path <> '') and (not path.StartsWith('$PROJECTPATH') or (path.CountChar('\') > 1)) then
|
|
begin
|
|
ShowMessage('Output path "'+path+'" should start with "$PROJECTPATH" and be no more than one level deep.');
|
|
Exit;
|
|
end;
|
|
|
|
path := Trim(DosSlashes(editSourcePath.Text));
|
|
if (path <> '') and (not path.StartsWith('$PROJECTPATH') or (path.CountChar('\') > 1)) then
|
|
begin
|
|
ShowMessage('Source path "'+path+'" should start with "$PROJECTPATH" and be no more than one level deep.');
|
|
Exit;
|
|
end;
|
|
|
|
FGlobalProject.Options.BuildPath := Trim(DosSlashes(editOutputPath.Text));
|
|
FGlobalProject.Options.SourcePath := Trim(DosSlashes(editSourcePath.Text));
|
|
FGlobalProject.Options.SkipMetadataFiles := not chkBuildMetadataFiles.Checked;
|
|
FGlobalProject.Options.CompilerWarningsAsErrors := chkCompilerWarningsAsErrors.Checked; // I4865
|
|
FGlobalProject.Options.WarnDeprecatedCode := chkWarnDeprecatedCode.Checked; // I4866
|
|
FGlobalProject.Options.CheckFilenameConventions := chkCheckFilenameConventions.Checked;
|
|
FGlobalProject.Save;
|
|
ModalResult := mrOk;
|
|
end;
|
|
|
|
procedure TfrmProjectSettings20.FormCreate(Sender: TObject);
|
|
begin
|
|
editOutputPath.Text := FGlobalProject.Options.BuildPath;
|
|
editSourcePath.Text := FGlobalProject.Options.SourcePath;
|
|
chkBuildMetadataFiles.Checked := not FGlobalProject.Options.SkipMetadataFiles;
|
|
chkCompilerWarningsAsErrors.Checked := FGlobalProject.Options.CompilerWarningsAsErrors; // I4865
|
|
chkWarnDeprecatedCode.Checked := FGlobalProject.Options.WarnDeprecatedCode; // I4866
|
|
chkCheckFilenameConventions.Checked := FGlobalProject.Options.CheckFilenameConventions;
|
|
if editOutputPath.Text = '' then editOutputPath.Text := '$PROJECTPATH';
|
|
end;
|
|
|
|
end.
|