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

Opkman: Display full package version.

Browse Source 
git-svn-id: trunk@54469 -
This commit is contained in:
balazs 2017-03-23 05:21:11 +00:00
parent 2b8ab52cf2
commit 6dd5585619
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/onlinepackagemanager/opkman_serializablepackages.pas
View File

@ -148,7 +148,7 @@ type
constructor Create; reintroduce;
destructor Destroy; override;
public
function RefreshHasUpdate: Boolean;
procedure RefreshHasUpdate;
property Version: TPackageVersion read FVersion write FVersion;
property Dependencies: TPackageDependencies read FDependencies write FDependencies;
property PackageStates: TPackageStates read FPackageStates write FPackageStates;
@ -436,7 +436,8 @@ end;
function TLazarusPackage.GetVersionAsString: String;
begin
Result := FVersion.AsString;
Result := IntToStr(FVersion.Major) + '.' + IntToStr(FVersion.Minor) + '.' +
IntToStr(FVersion.Release) + '.' + IntToStr(FVersion.Build);
end;
procedure TLazarusPackage.SetVersionAsString(const AValue: String);
@ -494,7 +495,7 @@ begin
inherited Destroy;
end;
function TLazarusPackage.RefreshHasUpdate: Boolean;
procedure TLazarusPackage.RefreshHasUpdate;
begin
FHasUpdate := (FUpdateVersion <> '') and (FInstalledFileVersion <> '') and
(