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

IDE: fixed compile under fpc trunk

Browse Source 
git-svn-id: trunk@60118 -
This commit is contained in:
mattias 2019-01-20 10:13:51 +00:00
parent 81add28593
commit 87bfc99a1c
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packager/fppkghelper.pas
View File

@ -8,8 +8,10 @@ uses
Classes,
SysUtils,
{$IFNDEF VER3_0}
IDEDialogs,
pkgFppkg,
{$ENDIF VER3_0}
LazarusIDEStrConsts,
{$ENDIF}
fprepos,
Dialogs;
@ -49,7 +51,10 @@ var
{ TFppkgHelper }
constructor TFppkgHelper.Create;
{$IFNDEF VER3_0}
{$IFDEF VER3_0}
begin
end;
{$ELSE}
var
FPpkg: TpkgFPpkg;
begin
@ -75,10 +80,6 @@ begin
finally
FPpkg.Free;
end;
end;
{$ELSE}
begin
end;
{$ENDIF VER3_0}
@ -99,7 +100,9 @@ end;
function TFppkgHelper.HasPackage(const PackageName: string): Boolean;
begin
{$IFNDEF VER3_0}
{$IFDEF VER3_0}
Result := HasFPCPackagesOnly(PackageName);
{$ELSE }
if IsProperlyConfigured() then
begin
Result :=
@ -121,8 +124,6 @@ begin
end
else
Result := HasFPCPackagesOnly(PackageName);
{$ELSE }
Result := HasFPCPackagesOnly(PackageName);
{$ENDIF VER3_0}
end;