paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:19:18 +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 begin
if csDestroying in ComponentState then exit; if csDestroying in ComponentState then exit;
CurCaption:=FppkgComboBox.Text; CurCaption:=FppkgComboBox.Text;
if fLastParsedFppkgPrefix=CurCaption then exit; if (fLastParsedFppkgPrefix=CurCaption) and (CurCaption<>'') then exit;
fLastParsedFppkgPrefix:=CurCaption; fLastParsedFppkgPrefix:=CurCaption;
Quality := CheckFppkgConfiguration(); Quality := CheckFppkgConfiguration();
@ -1422,6 +1422,13 @@ var
LibPathValid: Boolean; LibPathValid: Boolean;
begin begin
Result := sddqInvalid; Result := sddqInvalid;
if APrefix='' then
begin
Note := lisWarning + lisNoFppkgPrefix + LineEnding;
Exit;
end;
LibPath := ''; LibPath := '';
APrefix:=TrimFilename(APrefix); APrefix:=TrimFilename(APrefix);
if not FileExistsCached(APrefix) then if not FileExistsCached(APrefix) then

1
ide/lazarusidestrconsts.pas
View File

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