diff --git a/components/ideintf/packagelinkintf.pas b/components/ideintf/packagelinkintf.pas index f127ebee62..4486352edb 100644 --- a/components/ideintf/packagelinkintf.pas +++ b/components/ideintf/packagelinkintf.pas @@ -63,6 +63,8 @@ type FPackageType: TLazPackageType; FOrigin: TPkgLinkOrigin; FLastUsed: TDateTime; + FOPMFileName: String; + FOPMFileDate: TDateTime; public constructor Create; override; destructor Destroy; override; @@ -81,6 +83,8 @@ type property PackageType: TLazPackageType read FPackageType; property Origin: TPkgLinkOrigin read FOrigin write FOrigin; property LastUsed: TDateTime read FLastUsed write FLastUsed; + property OPMFileName: string read FOPMFileName write FOPMFileName; + property OPMFileDate: TDateTime read FOPMFileDate write FOPMFileDate; end; { TPackageLinks } diff --git a/components/onlinepackagemanager/opkman_intf.pas b/components/onlinepackagemanager/opkman_intf.pas index 8356a490db..91edcb295b 100644 --- a/components/onlinepackagemanager/opkman_intf.pas +++ b/components/onlinepackagemanager/opkman_intf.pas @@ -188,7 +188,7 @@ begin if PackageLink <> nil then begin PackageLink.Version.Assign(LazPackage.Version); - PackageLink.LPKFileDate := MetaPackage.RepositoryDate; + PackageLink.OPMFileDate := MetaPackage.RepositoryDate; FPackageLinks.Add(PackageLink); end; end; diff --git a/packager/packagelinks.pas b/packager/packagelinks.pas index 1e6964199f..0d7ca904f5 100644 --- a/packager/packagelinks.pas +++ b/packager/packagelinks.pas @@ -1201,6 +1201,7 @@ begin Result.Name := PkgName; Result.LPKUrl := PkgURL; Result.Origin := ploOnline; + Result.OPMFileName := PkgFilename; FOnlineLinks.Add(Result); end else begin diff --git a/packager/pkglinksdlg.pas b/packager/pkglinksdlg.pas index bfee45b0ba..0294701641 100644 --- a/packager/pkglinksdlg.pas +++ b/packager/pkglinksdlg.pas @@ -69,6 +69,7 @@ type property Visible: boolean read FVisible write FVisible; property IsValid: boolean read FIsValid write FIsValid; property EffectiveFilename: string read FEffectiveFilename write FEffectiveFilename; + property OPMFileDate; end; { TPackageLinksDialog } @@ -400,7 +401,7 @@ begin PkgStringGrid.Cells[5,i]:=Link.EffectiveFilename; if Link.Origin = ploOnline then - PkgStringGrid.Cells[6,i]:= FormatDateTime('YYYY/MM/DD hh:mm:ss', Link.LPKFileDate) + PkgStringGrid.Cells[6,i]:= FormatDateTime('YYYY/MM/DD hh:mm:ss', Link.OPMFileDate) else begin if Link.LastUsed=0 then @@ -519,6 +520,7 @@ begin LPKFileDateValid:=Link.LPKFileDateValid; LPKFileDate:=Link.LPKFileDate; LastUsed:=Link.LastUsed; + OPMFileDate:=Link.OPMFileDate; end; end else inherited Assign(Source);