paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Detect empty prefix in the initial setup dialog

Browse Source 
git-svn-id: trunk@60312 -
This commit is contained in:
joost 2019-02-03 11:08:25 +00:00
parent 33da110a2d
commit dbdee36280
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/initialsetupdlgs.pas
View File

@ -1378,7 +1378,7 @@ var
begin
if csDestroying in ComponentState then exit;
CurCaption:=FppkgComboBox.Text;
if fLastParsedFppkgPrefix=CurCaption then exit;
if (fLastParsedFppkgPrefix=CurCaption) and (CurCaption<>'') then exit;
fLastParsedFppkgPrefix:=CurCaption;
Quality := CheckFppkgConfiguration();
@ -1422,6 +1422,13 @@ var
LibPathValid: Boolean;
begin
Result := sddqInvalid;
if APrefix='' then
begin
Note := lisWarning + lisNoFppkgPrefix + LineEnding;
Exit;
end;
LibPath := '';
APrefix:=TrimFilename(APrefix);
if not FileExistsCached(APrefix) then

1
ide/lazarusidestrconsts.pas
View File

@ -1052,6 +1052,7 @@ resourcestring
'Fppkg configuration: %s';
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.';
// file dialogs
lisOpenFile = 'Open File';