From 6dd5585619c801413cf354163c03b99196b0b18e Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Thu, 23 Mar 2017 05:21:11 +0000
Subject: [PATCH] Opkman: Display full package version.

git-svn-id: trunk@54469 -
---
 .../onlinepackagemanager/opkman_serializablepackages.pas   | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/onlinepackagemanager/opkman_serializablepackages.pas b/components/onlinepackagemanager/opkman_serializablepackages.pas
index 640c6e3a27..5a85173dc6 100644
--- a/components/onlinepackagemanager/opkman_serializablepackages.pas
+++ b/components/onlinepackagemanager/opkman_serializablepackages.pas
@@ -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
      (