paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 14:47:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Show a message whan the creation of a fppkg-configuration file failed

Browse Source 
git-svn-id: trunk@60741 -
This commit is contained in:
joost 2019-03-21 21:00:08 +00:00
parent b2a4a7868b
commit b1ce77850c
2 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/initialsetupdlgs.pas
View File

@ -43,7 +43,7 @@ uses
// RTL + FCL + LCL
Classes, SysUtils,
Forms, Controls, Buttons, Dialogs, Graphics, ComCtrls, ExtCtrls, StdCtrls, LCLProc,
pkgglobals,
pkgglobals, process,
{$IF FPC_FULLVERSION>30100}UTF8Process,{$ENDIF}
fpmkunit,
// CodeTools
@ -1598,6 +1598,7 @@ begin
begin
Proc := TProcessUTF8.Create(nil);
try
Proc.Options := proc.Options + [poWaitOnExit];
// Write fppkg.cfg
Proc.Executable := FpcmkcfgExecutable;
proc.Parameters.Add('-p');
@ -1615,20 +1616,30 @@ begin
proc.Execute;
Fppkg:=TFppkgHelper.Instance;
Fppkg.ReInitialize;
// Write default compiler configuration file
CompConfigFilename := Fppkg.GetCompilerConfigurationFileName;
if CompConfigFilename <> '' then
if proc.ExitStatus <> 0 then
IDEMessageDialog(lisFppkgProblem, Format(lisFppkgCreateFileFailed, [GetFppkgConfigFile(False, False)]), mtWarning, [mbOK])
else
begin
proc.Parameters.Clear;
proc.Parameters.Add('-p');
proc.Parameters.Add('-4');
proc.Parameters.Add('-o');
proc.Parameters.Add(CompConfigFilename);
proc.Parameters.Add('-d');
proc.Parameters.Add('fpcbin='+EnvironmentOptions.GetParsedCompilerFilename);
proc.Execute;
Fppkg:=TFppkgHelper.Instance;
Fppkg.ReInitialize;
// Write default compiler configuration file
CompConfigFilename := Fppkg.GetCompilerConfigurationFileName;
if CompConfigFilename <> '' then
begin
proc.Parameters.Clear;
proc.Parameters.Add('-p');
proc.Parameters.Add('-4');
proc.Parameters.Add('-o');
proc.Parameters.Add(CompConfigFilename);
proc.Parameters.Add('-d');
proc.Parameters.Add('fpcbin='+EnvironmentOptions.GetParsedCompilerFilename);
proc.Execute;
if proc.ExitStatus <> 0 then
IDEMessageDialog(lisFppkgProblem, Format(lisFppkgCreateFileFailed, [CompConfigFilename]), mtWarning, [mbOK]);
end;
end;
Fppkg.ReInitialize;

1
ide/lazarusidestrconsts.pas
View File

@ -1053,6 +1053,7 @@ resourcestring
lisFppkgWriteConfFailed = 'Failed to create a new Fppkg configuration. You ' +
'will have to fix the configuration manually or reinstall Free Pascal.';
lisNoFppkgPrefix = 'empty Free Pascal compiler prefix.';
lisFppkgCreateFileFailed = 'Failed to generate the configuration file "%s".';
// file dialogs
lisOpenFile = 'Open File';