paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fppkg: fixed compile

Browse Source 
git-svn-id: trunk@60760 -
This commit is contained in:
mattias 2019-03-24 13:14:05 +00:00
parent 3d8f05aae7
commit d8e2682f1c
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/initialsetupdlgs.pas
View File

@ -1661,7 +1661,10 @@ begin
{$ENDIF}
if CheckFppkgConfiguration(Msg)<>sddqCompatible then
IDEMessageDialog(lisFppkgProblem, Format(lisFppkgWriteConfFailed, [Msg], mtWarning, [mbOK]);
begin
IDEMessageDialog(lisFppkgProblem, Format(lisFppkgWriteConfFailed, [Msg]),
mtWarning, [mbOK]);
end;
end;
function TInitialSetupDialog.CheckFpcmkcfgQuality(out Note: string): TSDFilenameQuality;

8
packager/fppkghelper.pas
View File

@ -9,11 +9,11 @@ uses
SysUtils,
{$IF FPC_FULLVERSION>30100}
pkgFppkg,
{$ENDIF}
fprepos,
LazarusIDEStrConsts,
{$ENDIF}
LazLogger,
LazFileCache,
LazarusIDEStrConsts,
FileUtil,
LazFileUtils;
@ -111,8 +111,10 @@ begin
end;
function TFppkgHelper.HasPackage(const PackageName: string): Boolean;
{$IF FPC_FULLVERSION>30100}
var
Msg: string;
{$ENDIF}
begin
{$IF NOT (FPC_FULLVERSION>30100)}
Result := HasFPCPackagesOnly(PackageName);
@ -317,7 +319,7 @@ begin
end;
result := FIsProperlyConfigured=fpcYes;
{$ELSE}
result := True
result := True;
{$ENDIF FPC_FULLVERSION>30100}
Message := FConfStatusMessage;
end;