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

IDE: Show package licenses in GUI. Issue #26392, patch from Reinier Olislagers

Browse Source 
git-svn-id: trunk@45726 -
This commit is contained in:
juha 2014-06-28 23:25:36 +00:00
parent 3926c42a5f
commit 8c19132587
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -4164,6 +4164,7 @@ resourcestring
+'installed, but the lpk file was not found';
lisOIPDescriptionDescription = '%sDescription: %s';
lisOIPDescription = 'Description: ';
lisOIPLicenseLicense = '%sLicense: %s';
lisOIPPleaseSelectAPackage = 'Please select a package';
lisOIPPackageName = 'Package Name';
lisOIPState = 'State';

2
packager/installpkgsetdlg.pas
View File

@ -720,6 +720,8 @@ begin
if Info.Description<>'' then
PkgInfoMemo.Lines.Add(lisPckOptsDescriptionAbstract
+ ': ' + Info.Description);
if Info.License<>'' then
PkgInfoMemo.Lines.Add(lisPckOptsLicense + ': ' + Info.License);
PkgInfoMemo.Lines.Add(Format(lisOIPFilename, [Info.LPKFilename]));
InfoStr:=lisCurrentState;

5
packager/openinstalledpkgdlg.pas
View File

@ -115,7 +115,10 @@ begin
if CurPkg.Missing then
HintStr:=Format(lisOIPThisPackageIsInstalledButTheLpkFileWasNotFound,[HintStr+LineEnding]);
HintStr:=Format(lisOIPDescriptionDescription, [HintStr+LineEnding,
BreakString(CurPkg.Description, 60, length(lisOIPDescription))]);
BreakString(CurPkg.Description, 60, length(lisOIPDescription))]);
if CurPkg.License<>'' then //use same indent as previous entry
HintStr:=Format(lisOIPLicenseLicense, [HintStr+LineEnding,
BreakString(CurPkg.License, 60, length(lisOIPDescription))]);
HintMemo.Text:=HintStr;
end;
end else begin